dim conn,connstr,acc_mdb
Const SystemDatabaseType = "sql" '系统数据库类型,"SQL"为MS SQL2000数据库,"ACCESS"为MS ACCESS 2000数据库
'如果是ACCESS数据库,请认真修改
acc_mdb="****.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径,如果是安装在网站根目录,直接修改文件名即可。如果是安装在网站某一目录下,则在前面加上此目录
'如果是SQL数据库,请修改好以下数据库选项
SqlUsername = "sa" 'SQL数据库用户名
SqlPassword = "8888" 'SQL数据库用户密码
SqlDatabaseName = "student" 'SQL数据库名
SqlHostIP = "(local)" 'SQL主机IP地址(本地可用“127.0.0.1”或“(local)”,非本机请用真实IP)
on error resume next
If SystemDatabaseType = "sql" Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
Else
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(acc_mdb)
End If
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
[此贴子已经被作者于2007-3-13 22:50:37编辑过]