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'

为什么会这样呢？

Dim db
Sub DBConnection()
End Sub
作用域