编辑“LCMS 文件结构及配置说明”

<span style="text-align:center; border:1px solid #000; float:right; padding:6px;"><strong>导航:</strong> [[LCMS|上一页]]</span>
<div style="clear:both;"></div>
==文件结构==
* active: 目录： 放置前台所需的业务处理[[ASP]]程序。
* admin: 目录： 后台管理功能。
* ckeditor: 目录： 网站集成了功能强大的[[CKEditor]]在线编辑器。
* ckfinder: 目录： 网站集成了功能强大的[[CKFinder]]文件上传及管理[[插件]]。
* core: 目录： 网站核心功能文件夹。
**asp: 目录： 存放核心ASP功能函数及类库。
**im: 目录： 集成在[[QQ]]/[[MSN]]/[[旺旺]]在线客服浮动窗口插件。
**js: 目录： 存放网站所使用的[[JS]]文件。
**pinyin: 目录： 存放刘松的拼音转汉字功能模块。
**config.asp: 文件：网站配置文件。
* data: 目录： 网站[[数据库]]存放文件夹。
* template: 目录： 网站[[模板]]页存放文件夹。
* userfiles: 目录： 保存上传文件的文件夹。

==config.asp: 文件说明==
<pre>

   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:<nowiki>http://www.k88.cn</nowiki>, 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. %>
</pre>

==相关条目==
*[[动易]]
*[[DedeCMS]]
*[[Drupal]]
*[[帝国CMS]]
*[[PageAdmin]] 


[[category:LCMS]]