在使用之前，根据自己选择的数据库（ACCESS或者是SQL SERVER）设置标志变量，如果您使用的是ACCESS数据库，请将变量IsSqlData设置为0，如果使用的是SQL SERVER数据库，请将变量IsSqlData设置为1。
如果使用ACCESS数据库，设置好变量IsSqlData后，再设置DB变量，指明数据库所在的位置（相对路径，相对于当前要使用数据库的文件）；如果使用的是SQL SERVER数据库，需要设置数据库的名称、数据库的访问用户、数据库的访问密码和数据库的位置（地址）。
如果您觉得没必要将两个功能合在一起写，请自行修改。
泡泡ASP相关代码：
Dim IsSqlData, Conn, DB, Connstr, DataBaseName, DataPassword, DataUserName, DataLocal
Rem ACCESS数据库IsSqlData=0；SQL SERVER数据库IsSqlData=1
IsSqlData = 0
On Error Resume Next
If IsSqlData = 1 Then
Rem Sql Server数据库的连接
DataBaseName = "数据库名"
DataPassword = "数据库访问密码"
DataUserName = "数据库访问用户名"
DataLocal = "数据库位置"
Connstr = "Provider = Sqloledb; User ID = " & DataUserName & "; Password = " & DataPassword & "; Initial Catalog = " & DataBaseName & "; Data Source = " & DataLocal & ";"
Else
Rem ACCESS数据库的连接
DB = "数据库位置+数据库名"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&DB&"")
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
Rem 如果连接发生错误，给出错误提示！
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错!"
Response.End()
End If
|
添加到百度搜藏
收藏到QQ书签