<%
'######################################################################
'## 配置系统
'######################################################################
Dim SiteWebFilePath, SiteAdminPath, SiteCaChePath
'## 配置网站目录,不建议存放在子目录(二级目录)中运行
SiteWebFilePath = "/"
'## 配置网站后台目录
SiteAdminPath = SiteWebFilePath & "Admin/"
'## 配置网站缓存目录
SiteCaChePath = SiteWebFilePath & "Plug/cache/"
'######################################################################
'## 配置数据库目录
'######################################################################
Dim DataBaseType, DataBasePath, DataBaseFilePath, DataBaseBakPath
Dim TablePrefix, SysLable, FieldPrefix
'## 配置数据库备份目录
DataBaseBakPath = SiteWebFilePath & "Database/bak/"
DataBaseFilePath = SiteWebFilePath & "/Database/"
'## 配置数据表前缀
TablePrefix = "HL_"
SysLable = "zjjcms"
FieldPrefix = "MY_"
'## 配置数据库类型,1:Access,0:SQL Server
DataBaseType = 1
'## Access 数据库路径配置
DataBasePath = SiteWebFilePath & "Database/global.mdb"
'## SQL 数据库配置
'##		SqlServerName	----- SQL数据库服务器名,连接服务器名（本地用local，外地用IP）
'##		SqlDbName		----- SQL数据库名称
'##		SqlUserName		----- SQL数据库用户名称
'##		SqlUserPass		----- SQL数据库用户密码
Dim SqlServerName, SqlDbName, SqlUserName, SqlUserPass
SqlServerName = "(local)"
SqlDbName = "globalsql"
SqlUserName = "sa"
SqlUserPass = "sa"
'## Access与SQL的时间关键词
Dim GetSqlTime, GetSqlDay, GetSqlHour, GetSqlMonth
'		GetSqlTime			----- 当前时间
'		GetSqlMonth			----- 月
'		GetSqlDay			----- 天
'		GetSqlHour			----- 时
If DataBaseType = 1 Then
    GetSqlTime = "Now()"
    GetSqlMonth = "'m'"
    GetSqlDay = "'d'"
    GetSqlHour = "'h'"
Else
    GetSqlTime = "GetDate()"
    GetSqlMonth = "Month"
    GetSqlDay = "Day"
    GetSqlHour = "Hour"
End If
%>