لا تستخدم هذه المقالة الأمر adodb.command، ولكنها تقوم ببساطة بإنشاء إجراء مخزن باستخدام adodb.recordset.
الإجراء المخزن:
، إنشاء الإجراء [dbo].[tse]
في SQL
@keyword varchar(20)=null, 'حدد الكلمة الأساسية للاستعلام.'
@choose int=null 'حدد نوع الاستعلام (1 هو عنوان عمود الاستعلام، والآخرون عبارة عن محتوى)
مثل
إذا @ اختر = 1
حدد * من الويب حيث يكون العنوان مثل @keyword + '%'
آخر
حدد * من الويب حيث يوجد محتوى مثل @keyword + '%'
يعود
يذهب
"صفحة list.asp."
<!--#include file="conn.inc" -->
<%
باهتة
com.dimsql
الكلمة الأساسية قاتمة
اختيار خافت
الكلمة الرئيسية=طلب(“keyword“) 'استلام القيمة التي أرسلتها الصفحة
اختر=طلب("اختر")
مجموعة rs=server.createobject("adodb.recordset")
sql="exec tse '"&keyword&"',"&choose&"" 'استخدم exec لتنفيذ الإجراء المخزن، وتمرير الكلمة الأساسية واختيار المعلمات إلى الإجراء المخزن.
rs.open SQL، كون، 1،1
إذا rs.eof وrs.bof ذلك الحين
استجابة.كتابة ("لا توجد سجلات!")
Response.end
نهاية إذا
Response.write"السجلات التي تم البحث عنها هي كما يلي:<br><br>"
افعل حتى rs.eof
Response.write""&rs("id")&":":&rs("title")&"" 'اطبع معرف وعنوان المقالة
رد.اكتب"<br><br>"
rs.movenext
حلقة
"نظف ساحة المعركة."
rs. Close
conn. Close
تعيين RS=لا شيء
مجموعة كون = لا شيء
%>