哪位能提供几个ASP远程调用存储过程的小例子？

[spear_nj]

谢谢帮忙

[pengdali]

set myConn=server.CreateObject("adodb.connection")
set myRS=server.CreateObject("adodb.recordset")
myConn.Open Application("connect")

'执行存储过程dt_l_checkpassword
'检验用户名和密码是否正确
set myRS=myConn.Execute("dt_l_checkpassword '"&UsernameGet&"','"&PasswordGet&"'" )

[pengdali]

连接：

<%
dim a,b,c
set a=server.createobject("adodb.connection")
a.open"driver={ sql server};server=gg;uid=ss;pwd=12331233;database=student"
b="select * from xsjk"
set c=server.createobject("adodb.recordset")
c.open b,a
response.write c("user")&"<br>"

%>

[CoolAbu]

ASP代码
<%

OpenDB Conn
set rst=server.createobject("adodb.recordset")
Conn.CursorLocation=3
set cmd=server.createobject("adodb.command")
cmd.ActiveConnection=Conn
cmd.CommandText="Doc_Journal02"
cmd.CommandType=4
set p1=cmd.CreateParameter("class",128,1,50,"%"&request("class")&"%")
cmd.Parameters.Append p1
set p1=cmd.CreateParameter("class1",128,1,50,"%"&request("class1")&"%")
cmd.Parameters.Append p1
if request("DirCode2")="" then
DirCode2="%%"
else
DirCode2=request("DirCode2")
end if
set p1=cmd.CreateParameter("DirCode2",128,1,50,DirCode2)
cmd.Parameters.Append p1
set p1=cmd.CreateParameter("Keyword2",128,1,50,"%"&request("KeyWord2")&"%")
cmd.Parameters.Append p1

set rst=cmd.execute
rst.pagesize=10
%>


存储过程

CREATE PROCEDURE Doc_Journal02 @class nvarchar(50),
@class1 nvarchar(50),
@DirCode2 nvarchar(50),
@Keyword2 nvarchar(50)
AS
if(@class<>null and @class<>'%%') Begin
Select 刊名,出版日期,期刊性质,网址 From 刊物信息
Where 学科分类 Like @class
End
Else if(@class1<>null and @class1<>'%%') Begin
Select 刊名,出版日期,期刊性质,网址 From 刊物信息
Where 期刊性质 Like @class1
End
Else if(@DirCode2='刊名') Begin
Select 刊名,出版日期,期刊性质,网址 From 刊物信息
Where 刊名 Like @Keyword2
Or 英文刊名 like @Keyword2
End
Else if(@DirCode2='文章题目') Begin
Select 文件名,题目,年,期,目录名 From 医学文献
Where 题目 Like @Keyword2 and 栏目分类='期刊'
End
Else if(@DirCode2='关键词') Begin
Select 文件名,题目,年,期,目录名 From 医学文献
Where 关键词 Like @Keyword2 and 栏目分类='期刊'
End
Else if(@DirCode2='作者') Begin
Select 文件名,题目,年,期,目录名 From 医学文献
Where 作者 Like @Keyword2 and 栏目分类='期刊'
End
Else if(@DirCode2='作者单位') Begin
Select 文件名,题目,年,期,目录名 From 医学文献
Where 作者单位 Like @Keyword2 and 栏目分类='期刊'
End
GO