<%
'conn为连接字符
sql1=""
sql2=""
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
rs2.open sql2,conn,1,1
'这样就同时打开了两个数据集











%>

DIM checklg,UserID,UserName,UserTel,UserMail 
DIM MyComm,MyRst 
UserID = 1 
'checklogin()为自定义函数，判断访问者是否登录 
checklg = checklogin() 
Set MyComm = Server.CreateObject("ADODB.Command") 
with MyComm

.ActiveConnection = MyConStr 'MyConStr是数据库连接字串 
.CommandText = "getUserList" '指定存储过程名 
.CommandType = 4 '表明这是一个存储过程 
.Prepared = true '要求将SQL命令先行编译 
.Parameters.append .CreateParameter("@userid",3,1,4,UserID) 
.Parameters.append .CreateParameter("@checklogin",11,1,1,checklg) 
Set MyRst = .Execute 
end with 
Set MyComm = Nothing 

'从第一个记录集中取值 
UserName = MyRst(0) 
'从第二个记录集中取值 
if not MyRst is Nothing then 
Set MyRst = MyRst.NextRecordset() 
UserTel = MyRst(0) 
UserMail = MyRst(1) 
end if 
Set MyRst = Nothing 

set rs=server.createobject("adodb.recordset")
sql1=""
rs1.open sql1,conn,1,1
rs.close

sql2=""
rs1.open sql2,conn,1,1
rs.close

sql3=""
rs1.open sql3,conn,1,1
rs.close