1)
set rs=conn.execute ("execute Pro_ConnectNote '"&qssj&"','"&jzsj&"','"&departmentname&"'")
2)
set cmd=server.createobject("adodb.command")
set cmd.activeconnection=conn
cmd.commandtype=4
cmd.commandtext="Pro_ConnectNote"
set tmp1=cmd.createparameter("userid",200,1,50)
cmd.parameters.append tmp1
set tmp2=cmd.createparameter("userpwd",200,1,50)
cmd.parameters.append tmp2
set tmp3=cmd.createparameter("retvalue",200,1,50)
cmd.parameters.append tmp3
cmd("userid")=qssj
cmd("userpwd")=jzsj
cmd("retvalue")=departmentname
cmd.execute
for i=0 to 2
set rs(i)=Server.CreateObject("ADODB.Recordset")
SQLcmd = "Select top " + CStr(i + 1)+ " * From MEMBER order by id"
response.write sqlcmd
rs(i).Open SQLcmd, conn,0,1
next
先声明一下rs(3)
建议写程序的时候引用变量先声明