LCMS 文件结构及配置说明
导航: 上一页
文件结构
- active: 目录： 放置前台所需的业务处理ASP程序。
- admin: 目录： 后台管理功能。
- ckeditor: 目录： 网站集成了功能强大的CKEditor在线编辑器。
- ckfinder: 目录： 网站集成了功能强大的CKFinder文件上传及管理插件。
- core: 目录： 网站核心功能文件夹。
- *asp: 目录： 存放核心ASP功能函数及类库。
- *im: 目录： 集成在QQ/MSN/旺旺在线客服浮动窗口插件。
- *js: 目录： 存放网站所使用的JS文件。
- *pinyin: 目录： 存放刘松的拼音转汉字功能模块。
- *config.asp: 文件：网站配置文件。
- data: 目录： 网站数据库存放文件夹。
- template: 目录： 网站模板页存放文件夹。
- userfiles: 目录： 保存上传文件的文件夹。
config.asp: 文件说明
1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
2. <%
3. Option Explicit
4. Session.CodePage = 65001
5. Response.Charset = "utf-8"
6. Response.Buffer = True
7. '---------------------------------------------------------------
8. ' LCMS 1.0.0
9. ' Copyright (c) 2010 K88.CN - LCMS 版权所有。
10. ' 配置要求:
11. ' 检查baseUrl变量储存的站点基础路径是否有效。
12. ' 检查Language语种设置字典，至少存在一种语言设置。
13. ' 核心工作类Cls_LiuSong，引用名称ls。
14. ' 配置语种：
15. ' 模板文件储存在[template]目录下，除默认语言前缀为空外，其他语种模板文件统一增加语种前缀，例如"en_"。
16. ' 数据库文件储存在[data]目录下，除默认语言前缀为空外，其他语种数据库文件统一增加语种前缀，例如"en_"。
17. ' 根据Lang变量，将当前语种应用到站点中，储存在Site字典中。
18. ' 作者: 刘松 (Web:http://www.k88.cn , QQ:276359669, MSN:cniir@hotmail.com)
19. '---------------------------------------------------------------
20.
21. ' baseUrl: 站点基础路径，LCMS存放根路径
22. ' 格式: baseUrl = "/lcms/"
23. Dim baseUrl
24. baseUrl = "/"
25. ' Cookies存储baseUrl，应用于其他功能
26. If baseUrl <> Request.Cookies("BaseURL") Then
27. Response.Cookies("BaseURL") = baseUrl
28. Response.Cookies("BaseURL").Expires = DateAdd("d", 30, Now())
29. End If
30.
31. ' DomainName: 站点域名，可以为空
32. ' 格式: DomainName = "http://www.k88.cn"
33. Dim DomainName
34. DomainName = ""
35.
36. ' defaultPage: 默认页面，与IIS默认页面一致
37. ' defaultExtension: 生成页面文件的扩展名
38. Dim defaultPage, defaultExtension
39. defaultPage = "index.html"
40. defaultExtension = ".html"
41.
42. ' Language: 站点语种设置字典，项名称参考DefineLanguageType。
43. ' default: 默认语种必须存在，其Prefix: 值为空。
44. Dim Language
45. Set Language = Server.CreateObject("Scripting.Dictionary")
46. Language.CompareMode = vbTextCompare
47. Language.Add "zh-cn", DefineLanguageType("", "中文", "LCMS内容管理系统", "首页", baseUrl & "template/index.asp")
48. Language.Add "en", DefineLanguageType("en", "English", "LCMS", "INDEX", baseUrl & "template/en_index.asp")
49.
50. ' DefineLanguageType: 返回站点属性字典(前缀,语种,站点名称,首页名称,首页模板地址)
51. Function DefineLanguageType(Prefix, LanguageName, SiteName, IndexName, IndexTemplate)
52. Dim LanguageType
53. Set LanguageType = server.CreateObject("Scripting.Dictionary")
54. LanguageType.CompareMode = vbTextCompare
55. LanguageType.Add "Prefix", Prefix
56. LanguageType.Add "LanguageName", LanguageName
57. LanguageType.Add "SiteName", SiteName
58. LanguageType.Add "IndexName", IndexName
59. LanguageType.Add "IndexTemplate", IndexTemplate
60. Set DefineLanguageType = LanguageType
61. End Function
62.
63. ' Lang: 当前语种
64. Dim Lang
65. Lang = Trim(Member("Language"))
66.
67. ''若获得非有效语种，使用默认语种
68. If Not IsObject(Language(Lang)) Then
69. Lang = "zh-cn" '默认语种
70. End If
71.
72. ' Site: 站点信息字典
73. Dim Site
74. Set Site = Language(Lang)
75.
76. ' Types: 字段类型配置字典
77. Dim Types
78. Set Types = Server.CreateObject("Scripting.Dictionary")
79. Types.CompareMode = vbTextCompare
80. Types.Add "Role", "普通会员|铜牌会员|银牌会员|金牌会员|管理员|超级管理员" '6种会员角色
81. Types.Add "Discount", "10|4|2|0|0|0" '对应会员折扣 = 产品优惠价 * X%
82. Types.Add "Gender", "保密|男|女"
83. Types.Add "Status", "验证|正常"
84. Types.Add "OrderStatus", "未生成订单|等待买家付款|已付款等待确认|已发货等待确认|已完成订单|已关闭订单"
85. Types.Add "PaymentType", "在线支付|邮局汇款|银行网站转帐|银行柜台汇存"
86. Types.Add "MessageStatus", "未读|已读|已回复|已转发"
87.
88. ' Template: 频道模板配置，项名称参考DefineTemplateType，RecordCountSQL=""或PageSize=0时频道不支持分页
89. Dim Template(5)
90. Set Template(0) = DefineTemplateType("独立页面", "document", baseUrl & "template/" & Site("Prefix") & "column.asp", "", 0, "", "")
91. Set Template(1) = DefineTemplateType("新闻资讯", "folder", baseUrl & "template/" & Site("Prefix") & "news.asp", "select count(*) from
Articles where Status = 1 and {this}", 20, "ArticleID", baseUrl & "template/" & Site("Prefix") & "news-show.asp")
92. Set Template(2) = DefineTemplateType("产品服务", "category", baseUrl & "template/" & Site("Prefix") & "product.asp",
"select count(*) from Products where Status = 1 and {this}", 20, "ProductID", baseUrl & "template/" & Site("Prefix") & "product-show.asp")
93. Set Template(3) = DefineTemplateType("资源下载", "resource", baseUrl & "template/" & Site("Prefix") & "download.asp",
"select count(*) from Resources where Status = 1 and {this}", 20, "ResourceID", baseUrl & "template/" & Site("Prefix") & "download-show.asp")
94. Set Template(4) = DefineTemplateType("在线订单", "gear", baseUrl & "template/" & Site("Prefix") & "order.asp", "", 0, "", "")
95. Set Template(5) = DefineTemplateType("留言板", "comment", baseUrl & "template/" & Site("Prefix") & "guestbook.asp", "", 0, "", "")
96.
97. ' DefineTemplateType: 返回频道模板字典(频道名称,图标,频道模板,记录统计SQL,每页记录数,ID字段名,记录模板)
98. Function DefineTemplateType(Name, Icon, Template, RecordCountSQL, PageSize, IDField, IDTemplate)
99. Dim TemplateType
100. Set TemplateType = server.CreateObject("Scripting.Dictionary")
101. TemplateType.CompareMode = vbTextCompare
102. TemplateType.Add "Name", Name
103. TemplateType.Add "Icon", Icon
104. TemplateType.Add "Template", Template
105. TemplateType.Add "RecordCountSQL", RecordCountSQL
106. TemplateType.Add "PageSize", PageSize
107. TemplateType.Add "IDField", IDField
108. TemplateType.Add "IDTemplate", IDTemplate
109. Set DefineTemplateType = TemplateType
110. End Function
111.
112. ' Smtp:SMTP服务器配置信息，适用于Dv_SendMail邮件处理类模块
113. Dim Smtp
114. Set Smtp = Server.CreateObject("Scripting.Dictionary")
115. Smtp.CompareMode = vbTextCompare
116. Smtp.Add "SendObject", "" 'Email发送组建 [1=Jmail,2=Cdonts,3=Aspemail]
117. Smtp.Add "UserName", "" '邮件服务器登录名称
118. Smtp.Add "Passowrd", "" '邮件服务器登录密码
119. Smtp.Add "Smtp", "" 'SMTP服务器地址
120. Smtp.Add "FromEmail", "" '发件人邮箱地址
121. Smtp.Add "FromName", "" '发件人名称
122.
123. ' ls: 核心工作类Cls_LiuSong，封装了很多实用功能
124. Dim ls
125. Set ls = New Cls_LiuSong
126. ' 链接数据库
127. ls.OleDbConnection Server.MapPath(baseUrl & "data/#" & Site("Prefix") & "data.mdb")
128.
129. ' i: 公用循环变量
130. Dim i
131.
132. ' 用户身份验证
133. MemberCheck()
134. %>