'------------------------------------------------ - -------------------------
'الوظيفة: درع كود HTML
'المعلمة: معلومات إدخال المستخدم StrInput
'------------------------------------------------ - -------------------------
الدالة FunInput(StrInput)
إذا لم يكن فارغًا (Str) إذن
StrInput=RePlace(StrInput,<,<)
StrInput=replace(StrInput,>,>)
StrinPut=replace(Strinput,chr(32), )
stringinput=replace(strinput,chr(34,)
stringinput=replace(strinput,chr(39),')
stringinput=replace(strinput,chr(13),)
FunInput=string
نهاية إذا
وظيفة النهاية
'------------------------------------------------ - -------------------------
'الوظيفة: منع حقن SQL
'المعلمة: البيانات المقدمة من المستخدم StrValue
"نوع البيانات BloType."
'قيمة المعلمة: بيانات رقمية حقيقية
"بيانات شخصية خاطئة
'------------------------------------------------ - -------------------------
وظيفة FunSQL (StrValue، BloType)
إذا BloType بعد ذلك
إذا Isnumeric(StrValue) ثم
FunSQL=clng(StrValue)
آخر
القيمة StrValue=0
نهاية إذا
آخر
إذا لم يكن فارغًا (StrValue) إذن
StrValue=lcase(StrValue)
StrValue=Replace(StrValue,','')
StrValue=replace(StrValue,select,)
StrValue=replace(StrValue,update,)
StrValue=replace(StrValue,insert,)
StrValue=replace(StrValue,delete,)
StrValue=replace(StrValue,;,)
StrValue=replace(StrValue, ,)
StrValue=replace(StrValue,chr(255,)
StrValue=replace(StrValue,*,)
StrValue=replace(StrValue,%,)
نهاية إذا
نهاية إذا
FunSQL=StrValue
وظيفة النهاية
'------------------------------------------------ - ----------------------
'الوظيفة: تحويل النوع الشائع
المعلمة: _اكتب نوع البيانات
' _بيانات القيمة
'قيمة المعلمة: _النوع 1: تحويل إلى بيانات رقمية
' _النوع 2: تحويل إلى بيانات شخصية
' _النوع 3: تحويل إلى بيانات منطقية
'------------------------------------------------ - ----------------------
وظيفة FunSwitch(Value_,Type_)
على خطأ استئناف المقبل
اختر نوع الحالة_
الحالة 1
إذا كانت غير رقمية (Value_) إذن
إذا لم يكن فارغًا (Value_) إذن
FunSwitch=clng(Value_)
آخر
تبديل المرح = 0
نهاية إذا
آخر
تبديل المرح = 0
نهاية إذا
الحالة 2
إذا لم يكن فارغًا (Value_) إذن
FunSwitch=cstr(Value_)
آخر
FunSwitch=
نهاية إذا
الحالة 3
إذا لم يكن الأمر كذلك فارغًا (Value_) وisnumeric(Value_) إذن
FunSwitch=cbool(Value_)
آخر
FunSwitch=false
نهاية إذا
حالة أخرى
Response.redirect(Error.asp?err=يرجى تحديد نوع البيانات المراد نقلها في FunSwitch!)
حدد النهاية
إذا err.number<>0 ثم
Response.redirect(Error.asp?err=حدث خطأ غير معروف أثناء تحويل البيانات!)
خطأ. واضح
نهاية إذا
وظيفة النهاية
''------------------------------------------------ -----------------------
الوظيفة: التحقق مما إذا كانت البيانات تأتي من الخارج
المعلمات: لا يوجد
'------------------------------------------------ - -------------------------
وظيفة الاختيار من ()
server_v1=Cstr(Request.ServerVariables(HTTP_REFERER))
server_v2=Cstr(Request.ServerVariables(SERVER_NAME))
إذا كان mid(server_v1,8,len(server_v2))<>server_v2 إذن
checkfrom=true
آخر
checkfrom=false
نهاية إذا
وظيفة النهاية
''------------------------------------------------ -----------------------
'الوظيفة: مربع موجه JS
المعلمات: StrURL: عنوان الصفحة المراد الرجوع إليه بعد النقر فوق "موافق".
'StrMSG: مربع الحوار يطالب بالمعلومات
'------------------------------------------------ - -------------------------
الدالة FunMsg(StrURL,StrMSG)
Response.write <script language='javascript'>&_
Vbcrlf&alert(&StrMSG&);&_
Vbcrlf&window.location=&StrURL&;&_
فبكرلف&</script>
وظيفة النهاية
'------------------------------------------------ - ----------------------
'الوظيفة: الترحيل العالمي
'المعلمة: إجمالي عدد الصفحات في عدد الصفحات
"رقم الصفحة الحالية لـ Intmypage."
'إجمالي عدد السجلات
'Intpagesize عدد السجلات المعروضة في كل صفحة
'------------------------------------------------ - ----------------------
وظيفة funpage (Intpagecount،Intmypage،Intrecordcount،Intpagesize)
'عند استئناف الخطأ بعد ذلك
خافت Intfor،Intlist،intlist_b
استعلام خافت، a، x، temp
الإجراء = http:// & Request.ServerVariables(HTTP_HOST) & Request.ServerVariables(SCRIPT_NAME)
الاستعلام = تقسيم (Request.ServerVariables(QUERY_STRING)، &)
لكل x في الاستعلام
أ = تقسيم (س، =)
إذا كانت StrComp(a(0)، page، vbTextCompare) <> 0 ثم
درجة الحرارة = درجة الحرارة & أ(0) & = & أ(1) & &
نهاية إذا
التالي
إذا intmypage> 1 ثم
funpage=funpage & <a href='&action&?&temp&page=1' title='Top page' class='no'><fontface='Webdings'>9</font></a>
funpage=funpage&<a href='&action&?&temp&page=&Intmypage-1 & ' title='الصفحة السابقة' class='no'><fontface='Webdings'>7</font></a>
آخر
funpage=funpage &<fontface='Webdings'>9</font>
funpage=funpage&<fontface='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='الصفحة التالية' class='no'><fontface='Webdings'>8</font></a>
funpage=funpage &<a href='&action&?&temp&page=& Intpagecount & ' title='الصفحة الأخيرة' class='no'><fontface='Webdings'>:</font></a>
آخر
funpage=funpage& <fontface='Webdings'>8</font>
funpage=funpage &<fontface='Webdings'>:</font></a>
نهاية إذا
funpage=<عرض الجدول='100%' border='0' تباعد الخلايا='0' cellpadding='0'><tr>&_
vbcrlf&<td width='40%' style=font:14px> الحالي &Intmypage& الصفحة&Intpagesize& السجلات/إجمالي الصفحة &Intpagecount& الصفحات/&Intrecordcount& السجلات</td>&_
vbcrlf&<td width='60%' align='right'>&_
vbcrlf&<table width='360' border='0' cellpacing='0' cellpadding='0'><tr>&_
vbcrlf&<td align='right' style=font:14px>&funpage& </td>&_
vbcrlf&</tr></table></td></tr>&_
vbcrlf&</table>
إذا err.number<>0 ثم
خطأ. واضح
Response.redirect(error.asp?err=حدث خطأ في وظيفة الترحيل، يرجى الاتصال بالمسؤول!|)
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * *
'اسم الوظيفة: تسليط الضوء
'الوظيفة: يتم عرض الكلمات الرئيسية التي تم البحث عنها بألوان مميزة
'المعلمة strText هي السلسلة أو المتغير الذي يحتوي على السلسلة أو المتغير المراد تمييزه
'strFind هي السلسلة أو المتغير الذي سيتم تمييزه،
'strBeforeإن بادئة كود HTML المميزة هي: <font color=red>
'strAfterلاحقة كود HTML المميز:</font>
'********************************************************************************************************************************************************************************* * ***
تمييز الدالة (strText، strFind، strBefore، strAfter)
ديمبوس
خافت لين
ديم نلينالكل
نلين = لين (سترفيند)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
تسليط الضوء = strText
إذا nLen > 0 وLen(تسليط الضوء) > 0 ثم
nPos = InStr(1, Highlight, strFind, 1)
افعل بينما nPos> 0
Highlight = Left(Highlight, nPos - 1) & _
strBefore & Mid(Highlight، nPos، nLen) & strAfter & _
منتصف (تمييز، nPos + nLen)
nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)
حلقة
نهاية إذا
وظيفة النهاية