当前位置： 首页 > 技术文档 > LCMS文件结构及配置说明

LCMS文件结构及配置说明

来源：LCMS企业网站管理系统 发表时间：2010-5-17 22:43:38 浏览次数：

文件结构

  • 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企业网站管理系统
  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. ' 当前版本
  22. Const Version = "1.2"
  23.  
  24. ' baseUrl: 站点基础路径，LCMS存放根路径
  25. ' 格式: baseUrl = "/lcms/"
  26. Dim baseUrl
  27. baseUrl = "/"
  28. ' Cookies存储baseUrl，应用于其他功能
  29. If baseUrl <> Request.Cookies("BaseURL") Then
  30.     Response.Cookies("BaseURL") = baseUrl
  31.     Response.Cookies("BaseURL").Expires = DateAdd("d", 30, Now())
  32. End If
  33.  
  34. ' DomainName: 站点域名，可以为空
  35. ' 格式: DomainName = "http://www.k88.cn"
  36. Dim DomainName
  37. DomainName = ""
  38.  
  39. ' defaultPage: 默认页面，与IIS默认页面一致
  40. ' defaultExtension: 生成页面文件的扩展名
  41. Dim defaultPage, defaultExtension
  42. defaultPage = "index.html"
  43. defaultExtension = ".html"
  44.  
  45. ' Language: 站点语种设置字典，项名称参考DefineLanguageType。
  46. ' default: 默认语种必须存在，其Prefix: 值为空。
  47. Dim Language
  48. Set Language = Server.CreateObject("Scripting.Dictionary")
  49. Language.CompareMode = vbTextCompare
  50. Language.Add "zh-cn", DefineLanguageType("", "中文", "LCMS企业网站管理系统", "首页", baseUrl & "template/index.asp")
  51. Language.Add "en", DefineLanguageType("en", "English", "LCMS", "INDEX", baseUrl & "template/en_index.asp")
  52.  
  53. ' DefineLanguageType: 返回站点属性字典(前缀,语种,站点名称,首页名称,首页模板地址)
  54. Function DefineLanguageType(Prefix, LanguageName, SiteName, IndexName, IndexTemplate)
  55.     Dim LanguageType
  56.     Set LanguageType = server.CreateObject("Scripting.Dictionary")
  57.     LanguageType.CompareMode = vbTextCompare
  58.     LanguageType.Add "Prefix", Prefix
  59.     LanguageType.Add "LanguageName", LanguageName
  60.     LanguageType.Add "SiteName", SiteName
  61.     LanguageType.Add "IndexName", IndexName
  62.     LanguageType.Add "IndexTemplate", IndexTemplate
  63.     Set DefineLanguageType = LanguageType
  64. End Function
  65.  
  66. ' Lang: 当前语种
  67. Dim Lang
  68. Lang = Trim(Member("Language"))
  69.  
  70. ''若获得非有效语种，使用默认语种
  71. If Not IsObject(Language(Lang)) Then
  72.     Lang = "zh-cn" '默认语种
  73. End If
  74.  
  75. ' Site: 站点信息字典
  76. Dim Site
  77. Set Site = Language(Lang)
  78.  
  79. ' Types: 字段类型配置字典
  80. Dim Types
  81. Set Types = Server.CreateObject("Scripting.Dictionary")
  82. Types.CompareMode = vbTextCompare
  83. Types.Add "Role", "普通会员|铜牌会员|银牌会员|金牌会员|管理员|超级管理员" '6种会员角色
  84. Types.Add "Discount", "10|4|2|0|0|0" '对应会员折扣 = 产品优惠价 * X%
  85. Types.Add "Gender", "保密|男|女"
  86. Types.Add "Status", "验证|正常"
  87. Types.Add "OrderStatus", "未生成订单|等待买家付款|已付款等待确认|已发货等待确认|已完成订单|已关闭订单"
  88. Types.Add "PaymentType", "在线支付|邮局汇款|银行网站转帐|银行柜台汇存"
  89. Types.Add "MessageStatus", "未读|已读|已回复|已转发"
  90.  
  91. ' Template: 频道模板配置，项名称参考DefineTemplateType，RecordCountSQL=""或PageSize=0时频道不支持分页
  92. Dim Template(5)
  93. Set Template(0) = DefineTemplateType("独立页面", "document", baseUrl & "template/" & Site("Prefix") & "column.asp", 0, "")
  94. Set Template(1) = DefineTemplateType("新闻资讯", "folder", baseUrl & "template/" & Site("Prefix") & "news.asp", 10, baseUrl & "template/" & Site("Prefix") & "news-show.asp")
  95. Set Template(2) = DefineTemplateType("产品服务", "category", baseUrl & "template/" & Site("Prefix") & "product.asp", 10, baseUrl & "template/" & Site("Prefix") & "product-show.asp")
  96. Set Template(3) = DefineTemplateType("资源下载", "resource", baseUrl & "template/" & Site("Prefix") & "download.asp", 10, baseUrl & "template/" & Site("Prefix") & "download-show.asp")
  97. Set Template(4) = DefineTemplateType("在线订单", "gear", baseUrl & "template/" & Site("Prefix") & "order.asp", 0, "")
  98. Set Template(5) = DefineTemplateType("留言板", "comment", baseUrl & "template/" & Site("Prefix") & "guestbook.asp", 0, "")
  99.  
  100. ' DefineTemplateType: 返回频道模板字典(频道名称,图标,频道模板,记录统计SQL,每页记录数,ID字段名,记录模板)
  101. Function DefineTemplateType(Name, Icon, Template, PageSize, IDTemplate)
  102.     Dim TemplateType
  103.     Set TemplateType = server.CreateObject("Scripting.Dictionary")
  104.     TemplateType.CompareMode = vbTextCompare
  105.     TemplateType.Add "Name", Name
  106.     TemplateType.Add "Icon", Icon
  107.     TemplateType.Add "Template", Template
  108.     TemplateType.Add "PageSize", PageSize
  109.     TemplateType.Add "IDTemplate", IDTemplate
  110.     Set DefineTemplateType = TemplateType
  111. End Function
  112.  
  113. ' Smtp: SMTP服务器配置信息，适用于Dv_SendMail邮件处理类模块
  114. Dim Smtp
  115. Set Smtp = Server.CreateObject("Scripting.Dictionary")
  116. Smtp.CompareMode = vbTextCompare
  117. Smtp.Add "SendObject", ""       'Email发送组建 [1=Jmail,2=Cdonts,3=Aspemail]
  118. Smtp.Add "UserName", ""         '邮件服务器登录名称
  119. Smtp.Add "Passowrd", ""         '邮件服务器登录密码
  120. Smtp.Add "Smtp", ""             'SMTP服务器地址
  121. Smtp.Add "FromEmail", ""        '发件人邮箱地址
  122. Smtp.Add "FromName", ""         '发件人名称
  123.  
  124. ' ls: 核心工作类Cls_LiuSong，封装了很多实用功能
  125. Dim ls
  126. Set ls = New Cls_LiuSong
  127.  
  128. ' 打开开发者调试模式，默认开启
  129. ls.Debug = False
  130.  
  131. ' 链接数据库
  132. ls.OleDbConnection Server.MapPath(baseUrl & "data/#" & Site("Prefix") & "data.mdb")
  133.  
  134. ' c: 频道操作类Cls_Channel，极大简化频道操作及模板开发
  135. ' channel: 默认频道对象
  136. Dim c, channel
  137. Set c = New Cls_Channel
  138.  
  139. ' i: 公用循环变量
  140. Dim i
  141.  
  142. ' 用户身份验证
  143. MemberCheck()
  144. %>