Artikel ini tidak menggunakan perintah adodb.command, tetapi hanya membuat prosedur tersimpan menggunakan adodb.recordset.
Prosedur tersimpan:
CREATE PROCEDURE [dbo].[tse]
di SQL
@keyword varchar(20)=null, 'Tentukan kata kunci kueri
@choose int=null 'Tentukan jenis kueri (1 adalah judul kolom kueri, yang lainnya adalah konten)
sebagai
jika @pilih=1
pilih * dari web dengan judul seperti @kata kunci + '%'
kalau tidak
pilih * dari web yang kontennya seperti @kata kunci + '%'
kembali
PERGI
'halaman daftar.asp
<!--#include file="conn.inc" -->
<%
redup
dimsql
kata kunci redup
pilih redup
kata kunci=permintaan(“kata kunci”) 'Terima nilai yang dikirim oleh halaman
pilih=permintaan(“pilih”)
set rs=server.createobject("adodb.recordset")
sql="exec tse '"&keyword&"',"&choose&"" 'Gunakan exec untuk menjalankan prosedur tersimpan, dan teruskan kata kunci dan pilih parameter ke prosedur tersimpan.
rs.open sql,sambungan,1,1
jika rs.eof dan rs.bof maka
respon.write("Tidak ada catatan!")
respon.akhir
berakhir jika
respon.write"Data yang dicari adalah sebagai berikut:<br><br>"
lakukan sampai rs.eof
respon.write""&rs("id")&":"&rs("title")&"" 'Cetak ID dan judul artikel
respon.tulis"<br><br>"
rs.movenext
lingkaran
‘Bersihkan medan perang
rs.tutup
samb.tutup
atur rs=tidak ada
setel sambungan = tidak ada
%>