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编辑过]
谢谢楼上的讲解,很详细。我还想知道上面的"sa","8888"这个是在什么地方设置的?是不是在建数据库的时候弄?
原来是这样啊,我试试,谢谢楼上的指教!!!
如果在本地建的网站(sqlserver数据库)要挪到服务器上,是不是要在服务器上重新建数据库啊?