"错误的参数个数或无效的参数属性值"的错误怎么解决?

[gzl]

temp.asp
<!--#include file="Function.asp"-->
<%
dim conn,rs,sqlCommand
conn=MyConnection()
sqlCommand="select USERID from ManageUser"
rs=MyRecordSet(sqlCommand,conn) //第六行
Response.Write(rs("userid"))
rs.close
conn.close
%>
function.asp
<%
Function MyConnection()
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.open "Driver={SQL Server};Server=XX;Database=DataBase;Uid=sa;Pwd=123456;"
MyConnection=MyConn
End Function

Function MyRecordSet(sqlCommand,dconn)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sqlCommand,dconn,1,3
MyRecordSet=rs
End Function
%>
为什么这段代码说

Microsoft VBScript 运行时错误 (0x800A01C2)
错误的参数个数或无效的参数属性值
/Function/temp.asp, 第 6 行

[邦迪代驾]

set rs=conn.execute(MyRecordSet)
rs.open MyRecordSet,conn,1,1

[jinfeng003]

dim conn,rs,sqlCommand
conn=MyConnection()
sqlCommand="select USERID from ManageUser"
rs=MyRecordSet(sqlCommand,conn) //第六行
很明显就是conn没做好

VBScript的语法，对象都得用set 赋值
<%
Function MyConnection()
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.open "Driver={SQL Server};Server=XX;Database=DataBase;Uid=sa;Pwd=123456;"
set MyConnection=MyConn
End Function

Function MyRecordSet(sqlCommand,dconn)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sqlCommand,dconn,1,3
set MyRecordSet=rs
End Function
%>
改成这样就好了
上边的赋值也加上set

[jinfeng003]

你现在的处理方式很不舒服
简单的问题复杂化了

建议做个连接对象，在一个单独文件里。什么时候用什么时候include
而记录集rs什么时候用什么时候创建，用完就关上好了

[gzl]

谢谢 jinfeng003(小高手)