/*SP7*/

CREATE PROCEDURE dbo.getUserInfo

@userid int,

@checklogin bit

as

set nocount on

begin

if @userid is null or @checklogin is null return

select username

from dbo.[usrinfo]

where userid=@userid

--若为登录用户，取usertel及usermail

if @checklogin=1

select usertel,usermail

from dbo.[userinfo]

where userid=@userid

return

end

go

　　以下是ASP代码：

'**调用返回多个记录集的存储过程**

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 = "getUserInfo" '指定存储过程名

　.CommandType = 4 '表明这是一个存储过程

　.Prepared = true '要求将SQL命令先行编译

　.Parameters.append .CreateParameter("@userid",3,1,4,UserID)

　.Parameters.append .CreateParameter("@checklogin",11,1,1,checklg)

　Set MyRst = .Execute