<%
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H
Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
Const DataBaseType=0                   '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const MsxmlVersion=".3.0"                '系统采用XML版本设置

Const EnableSiteManageCode = True        '是否启用后台管理认证码 是： True  否： False
Const SiteManageCode = "999"      '后台管理认证码，请修改，这样即使有人知道了您的后台用户名和密码也不能登录后台

If DataBaseType=0 then
 '如果是ACCESS数据库，请认真修改好下面的数据库的文件名
 DBPath       = "/KScms/KesionCMS6.mdb"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
Else
  '如果是SQL数据库，请认真修改好以下数据库选项
  DataServer   = "(local)"                                  '数据库服务器IP
  DataUser     = "sa"                                       '访问数据库用户名
  DataBaseName = "KesionCMS6"                                '数据库名称
  DataBasePsw  = "989066"                                   '访问数据库密码
End if

 '采集数据库路径
 CollectDBPath="\KScms\Collect\KS_Collect.Mdb"

'=============================================================== 以下代码请不要自行修改========================================经查，数据库路径没有错误