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

Question

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&"'" )

Answer 1

连接：<% 
  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>"%>

Answer 2

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