IsSqlDataBase = 0 '主数据库类型(1=SQL,0=AC)'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
SqlUsername = "sa" '主数据库登录用户
SqlPassword = "" '主数据库登录密码
SqlLocalName = "(local)" '数据库服务器,本机用“(local)”
DbPath = "/wrunion/data/union.asp"
if IsSqlDataBase=1 then
TrueType = "1"
FalseType = "0"
SqlNowString = "GetDate()"
else
TrueType = "True"
FalseType = "False"
SqlNowString = "Now()"
end if
'主站数据库链接过程
Sub OpenConn()
if IsObject(Conn) then Exit Sub
if IsSqlDataBase=1 then
Db.ConnValue =  "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
else
Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
end if
Set Conn=Db.OpenConnection("主数据库")
End Sub出现主数据库链接出错,请检查数据库链接字符串!