为什么子程序里的数据库链接都无效了？有人有相同经历？

[dy630]

-----////数据库链接子程序/////-----------------------------
Sub ConnMyuser_Open()
set ConnMyuser = server.CreateObject("ADODB.Connection")
ConnMyuser.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=myuser"
Response.Write "test"
End Sub
-----------------------------------------------------------

-----////调用ConnMyuser/////-------------------------------
Call ConnMyuser_Open()
Set Rs = server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM GroupUser WHERE UID=1102 AND UGID=2",ConnMyuser,1,1
-----------------------------------------------------------

-----////结果/////-----------------------------------------
test
ADODB.Recordset 错误 '800a0bb9'

变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。

user.asp，行19
-----------------------------------------------------------


分析：已打印"test"，说明调用子程序成功。但就是不认子程序中的ConnMyuser

[songzx66]

因为是局部变量，出不了作用域。可作成函数返回connmyuser

[iloveyouonlyonce]

set ConnMyuser = server.CreateObject("ADODB.Connection")
ConnMyuser.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=myuser"
Response.Write "test"
Set Rs = server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection = ConnMyuser
Rs.Open "SELECT * FROM GroupUser WHERE UID=1102 AND UGID=2",ConnMyuser,1,1

[iloveyouonlyonce]

不能放在SUB里面或者都放进去

[julyclyde]

局部变量
换function，把对象传出来