conn.asp 中连接数据库的函数如下
Sub DBConnection()
Dim db
Dim connstr
Dim db1,pass_word,User_ID,Data_Source
db1="shujuku" '数据库名称
Pass_word="sina" 'Password=帐号密码
User_ID="sina" 'User ID=登陆帐号
Data_Source="219.221.5.172" 'Data Source=服务名称或者ip
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db1&"';Data Source='"&Data_Source&"'"
On Error Resume Next
Set db = Server.CreateObject("ADODB.Connection")
db.Open connstr
If Err Then
Err.clear
Set db = Nothing
Response.Write "数据库连接出错,请通知管理员检查数据库连接字串"
Response.End()
End IF
End Sub
在另一个函数中需要连接数据库时候,调用过来
Dim Rs,db
Call DBConnection()
Set Rs = db.execute("select * from [setup]")
提示:缺少对象: 'db'
为什么会这样呢?
|