موصى به: استخدم مرشح لتحقيق استرجاع ثانوي للمعلومات فكر في سؤال: كيفية تحقيق البحث الثانوي بناءً على البحث الأول؟ عادةً ما يكون نهجنا هو حفظ ظروف البحث أثناء البحث الأول ، ودمج شرطين للبحث أثناء البحث في الصف الثاني لإجراء استعلام جديد على قاعدة البيانات ، مثل: البحث الأول:
'-----------------------------------------------------------------------------
دالة الوظيفة: حظر رمز HTML
'المعلمات: معلومات إدخال مستخدم Strinput
'-----------------------------------------------------------------------------
Function Funinput (strinput)
إذا لم يكن isnull (str) ثم
strinput = استبدال (strinput ، <، <)
strinput = استبدال (strinput ،> ،>)
strinput = استبدال (strinput ، chr (32) ،)
strinput = استبدال (strinput ، chr (34) ،)
strinput = استبدال (strinput ، chr (39) ، ')
strinput = استبدال (strinput ، chr (13) ،)
funinput = strinput
إنهاء إذا
وظيفة نهاية
'-----------------------------------------------------------------------------
وظيفة الوظيفة: منع حقن SQL
'المعلمات: بيانات مقدمة المستخدم strvalue
نوع بيانات blotype
'قيمة المعلمة: البيانات العددية الحقيقية
'بيانات الحرف الخاطئة
'-----------------------------------------------------------------------------
وظيفة FUNSQL (strvalue ، blotype)
إذا كان blotype ثم
إذا isnumeric (strvalue) ثم
funsql = clng (strvalue)
آخر
strvalue = 0
إنهاء إذا
آخر
إذا لم يكن isnull (strvalue) ثم
strvalue = lace (strvalue)
strvalue = استبدال (strvalue ، '،' ')
strvalue = استبدال (strvalue ، حدد ،)
strvalue = استبدال (strvalue ، تحديث ،)
strvalue = استبدال (strvalue ، أدخل ،)
strvalue = استبدال (strvalue ، حذف ،)
strvalue = استبدال (strvalue ، ؛ ،)
strvalue = استبدال (strvalue ، ،)
strvalue = استبدال (strvalue ، chr (255) ،)
strvalue = استبدال (strvalue ،*،)
strvalue = استبدال (strvalue ، ٪ ،)
إنهاء إذا
إنهاء إذا
funsql = strvalue
وظيفة نهاية
'-------------------------------------------------------------------------------
وظيفة الوظيفة: تحويل النوع الشائع
'المعلمات: نوع البيانات _type
بيانات _value
'قيمة المعلمة: _type 1: تحويل إلى بيانات عددية
'_type 2: تحويل إلى بيانات الأحرف
'_type 3: تحويل إلى بيانات منطقية
'-------------------------------------------------------------------------------
وظيفة funswitch (value_ ، type_)
عند استئناف الخطأ التالي
حدد CASE TYPE_
الحالة 1
إذا isnumeric (value_) ثم
إذا لم يكن isnull (value_) ثم
funswitch = clng (value_)
آخر
funswitch = 0
إنهاء إذا
آخر
funswitch = 0
إنهاء إذا
الحالة 2
إذا لم يكن isnull (value_) ثم
funswitch = CSTR (value_)
آخر
funswitch =
إنهاء إذا
الحالة 3
إذا لم يكن isnull (value_) و isnumeric (value_) ثم
funswitch = cbool (value_)
آخر
funswitch = خطأ
إنهاء إذا
حالة أخرى
Response.redirect (error.asp؟ err = يرجى تحديد نوع البيانات المراد نقله في funswitch!)
نهاية الاختيار
إذا err.number <> 0 ثم
استجابة. redirect (error.asp؟ err = حدث خطأ غير معروف أثناء تحويل البيانات!)
err.clear
إنهاء إذا
وظيفة نهاية
'' -----------------------------------------------------------------------------
وظيفة الوظيفة: تحقق مما إذا كانت البيانات تأتي من الخارج
المعلمات: لا شيء
'-----------------------------------------------------------------------------
وظيفة checkfrom ()
server_v1 = cstr (request.servervariables (http_referer))
server_v2 = cstr (request.servervariables (server_name))
إذا كان MID (server_v1،8 ، len (server_v2)) <> server_v2 ثم
checkfrom = صحيح
آخر
checkfrom = false
إنهاء إذا
وظيفة نهاية
'' -----------------------------------------------------------------------------
وظيفة الوظيفة: مربع موجه JS
'المعلمات: strurl: عنوان الصفحة تم إرجاعه بعد النقر فوق موافق
'Strmsg: معلومات حوار معلومات
'-----------------------------------------------------------------------------
وظيفة funmsg (strurl ، strmsg)
استجابة. write <script language = 'javaScript'> & _
VBCRLF & ALERT (& strmsg &) ؛ & _
vbcrlf & window.location = & strurl & ؛ & _
VBCRLF و </script>
وظيفة نهاية
'-------------------------------------------------------------------------------
وظيفة الوظيفة: الترحيل العام
'المعلمات: عدد صفحات intpageCount
"عدد الصفحات الحالي غير المحدود
سجلات إجمالية intrecordcount
'intpagesize عدد السجلات المعروضة لكل صفحة
'-------------------------------------------------------------------------------
FUNCTION FUNPAGE (IntPageCount ، intmypage ، intrecordCount ، intpagesize)
'عند استئناف الخطأ التالي
Dim Intfor ، intlist ، intlist_b
استعلام خافت ، أ ، س ، درجة الحرارة
الإجراء = http: // & request.servervariables (http_host) & request.servervariables (script_name)
Query = split (request.ServerVariables (Query_String) ، &)
لكل X في الاستعلام
a = split (x ، =)
إذا كان STROCMP (A (0) ، صفحة ، vbtextCompare) <> 0 ثم
temp = temp & a (0) & = & a (1) & &
إنهاء إذا
التالي
إذا intmypage> 1 ثم
funPage = funPage & <a href = '& action &؟ & temp & page = 1' 'title =' last page 'class =' no '> <font face =' webdings '> 9 </font> </a>
funPage = funPage & <a href = '& action &؟ & temp & page = & intmypage-1 &' title = 'private page' class = 'no'> <font face = 'webdings'> 7 </font> </a>
آخر
funPage = funPage & <font face = 'webdings'> 9 </font>
funPage = funPage & <font face = 'webdings'> 7 </font>
إنهاء إذا
إذا intlist <> 0 ثم
إذا cintmypage = intlist ثم
intlist = intlist 5
إنهاء إذا
آخر
intlist = intmypage 5
إنهاء إذا
إذا intlist-9 <1 ثم
intlist_b = 1
آخر
intlist_b = intlist-9
إنهاء إذا
لـ intfor = intlist_b إلى intlist
إذا كان intfor <= intpageCount ثم
إذا كانت intfor = intmypage ثم '---- قم بعمل نص الصفحة الحالية باللون الأحمر ولا يمكن النقر عليه
funPage = funpage & strmode & <font color = '#ff0000'> <b> & intfor & </b> </font>
آخر
funPage = funpage & strmode & <a href = '& action &؟ & temp & page = & intfor &' class = 'no'> & intfor & </a>
إنهاء إذا
إنهاء إذا
strmode = <font color = '#bbbbbb'> | </font>
التالي
إذا intmypage <intpageCount ثم
funPage = funPage & <a href = '& action &؟ & temp & page = & intmypage 1 &' title = 'last page' class = 'no'> <font face = 'webdings'> 8 </font> </a>
funPage = funPage & <a href = '& action &؟ & temp & page = & intpageCount &' title = 'last page' class = 'no'> <font face = 'webdings'>: </font> </a>
آخر
funPage = funPage & <font face = 'webdings'> 8 </font>
funPage = funPage & <font face = 'webdings'>: </font> </a>
إنهاء إذا
funPage = <table width = '100 ٪' border = '0' cellpacing = '0' cellpadding = '0'> <tr> & _ _
VBCRLF & <td width = '40 ٪ 'style = font: 14px> current & intmypage & page & intpagesize & list/page total & intpagecount & page/& intrecordCount & List Records </td> & _ _ _
vbcrlf & <td width = '60 ٪ 'align =' right '> & _
vbcrlf & <table width = '360' border = '0' cellpacing = '0' cellpadding = '0' cellpadding = '0'> <tr> & _ _
vbcrlf & <td align = 'right' style = font: 14px> & funpage & </td> & _
vbcrlf & </r> </table> </td> </tr> & _
VBCRLF و </lood>
إذا err.number <> 0 ثم
err.clear
Response.redirect (error.asp؟ err = وظيفة ترقيم الصفحات لها خطأ ، يرجى الاتصال بالمسؤول! |)
إنهاء إذا
وظيفة نهاية
'*********************************************************
اسم الوظيفة: تسليط الضوء
"الوظيفة: يتم عرض الكلمات الرئيسية البحث بالألوان المميزة
'المعلمة strtext هي السلسلة أو المتغير حيث يتم تسليط الضوء على السلسلة أو المتغير
'Strfind هو سلسلة أو متغير يتم تسليط الضوء عليه ،
"بادئة رمز HTML المميزة لـ Strbefore تشبه: <font color = Red>
أبرز Fradfter لاحقة رمز HTML: </font>
'************************************************************
تسليط الضوء على الوظيفة (strtext ، strfind ، strbefore ، strafter)
قاتمة NPOs
خافت نلين
خافت نلينال
nlen = len (strfind)
nlenall = nlen len (strbefore) len (strafter) 1
تسليط الضوء = strtext
إذا nlen> 0 و len (تسليط الضوء)> 0 ثم
NPOS = instr (1 ، تسليط الضوء ، strfind ، 1)
افعل بينما NPOS> 0
تسليط الضوء = اليسار (تسليط الضوء ، NPOS - 1) و _
Strbefore & Mid (Aightlization ، NPOS ، NLEN) & Strafter & _
منتصف (تسليط الضوء ، NPOS nlen)
NPOS = Instr (NPOS nlenall ، Awayze ، Strfind ، 1)
حلقة
إنهاء إذا
وظيفة نهاية
مشاركة: ASP 3.0 البرمجة المتقدمة (31) 7.1.2 إن اكتشاف ومعالجة الأخطاء الدلالية أو وقت التشغيل أمر مزعج ، لكنك ستواجه بعض الأخطاء الأخرى المثيرة حقًا في البرمجة - الخطأ الدلالي (خطأ الدلالي) ، أو & ld