明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

自己寫的一個(gè)容易ASP調(diào)用存儲過程查詢

發(fā)表時(shí)間：2024-01-30 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]本文用到?jīng)]有用到adodb.command命令，只是簡單的做了一個(gè)用adodb.recordset來執(zhí)行存儲過程。存儲過程：'在SQL中建立dbo.tse存儲過程CREATE PROCEDURE [dbo].[tse] @keyword varchar(20)=null, '定義...

本文用到?jīng)]有用到adodb.command命令，只是簡單的做了一個(gè)用adodb.recordset來執(zhí)行存儲過程。

存儲過程：
'在SQL中建立dbo.tse存儲過程

CREATE PROCEDURE [dbo].[tse]
@keyword varchar(20)=null,  '定義查詢的關(guān)鍵字
@choose int=null                    '定義查詢的類型（1為查詢列title,其他為content）
as
if @choose=1
select * from web where title like @keyword + '%'
else
select * from web where content like @keyword + '%'
return
GO

 

'list.asp頁
<!--#include file="conn.inc" -->
<%
dim rs
dim sql
dim keyword
dim choose
keyword=request(“keyword“) '接收頁面?zhèn)魉偷闹?br>choose=request(“choose“)
set rs=server.createobject("adodb.recordset")
sql="exec tse '"&keyword&"',"&choose&""     '用exec執(zhí)行tse存儲過程，把keyword，choose給存儲過程傳遞參數(shù)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("沒有任何記錄！")
response.end
end if
response.write"搜索到的記錄如下:<br><br>"
do until rs.eof 
response.write""&rs("id")&":"&rs("title")&""   '打印出文章的ID和標(biāo)題
response.write"<br><br>"
rs.movenext
loop
'打掃戰(zhàn)場
rs.close
conn.close
set rs=nothing           
set conn = nothing   
%>