导航
  • 主页
  • 基础类
  • 应用实例
  • 新技术前沿

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

spear_nj 2002-12-29 08:03:12
谢谢帮忙
...全文
2 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
CoolAbu 2002-12-29
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
回复
pengdali 2002-12-29
连接:

<%
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>"

%>
回复
pengdali 2002-12-29
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&"'" )
回复
发动态
发帖子
MS-SQL Server
创建于2007-09-28

3.2w+

社区成员

MS-SQL Server相关内容讨论专区
申请成为版主
社区公告
暂无公告