يمكن للأصدقاء الذين يستخدمون ASP لتطوير مواقع الويب التعلم من وظائف ASP الخاصة به لتسهيل التعلم وتحسين كفاءة التطوير . انسخ الكود كما يلي:
<%
'-----
'Tianfeng ASP class v1.0، يدمج وظائف asp الشائعة في وظيفة واحدة
'تيانفينج جميع الحقوق محفوظة
'س: 76994859 البريد الإلكتروني: [email protected]
'جميع أسماء الوظائف هي كما يلي:
' StrLength(str) يحصل على طول السلسلة
'CutStr(str,strlen) قطع طول السلسلة
' CheckIsEmpty(tstr) يتحقق مما إذا كان فارغًا
'isInteger(para) اختبار عدد صحيح
' التحقق من أحرف الاسم CheckName(str).
' التحقق من كلمة المرور CheckPassword(str).
' CheckEmail (البريد الإلكتروني) التحقق من تنسيق البريد الإلكتروني
'Alert(msg,goUrl) ينبثق مربع حوار موجه
' رسالة خطأ GoBack(Str1,Str2,isback).
' Suc(str1,str2,url) رسالة نجاح العملية
' يكتشف ChkPost() ما إذا كان النموذج قد تم إرساله خارج الموقع
'PSql () يمنع حقن SQL
'FiltrateHtmlCode(Str) يمنع إنشاء HTML
'HtmlCode(str) عامل تصفية HTML
'استبدال HTML (tstr) تنظيف HTML
'GetIP() احصل على عنوان IP للعميل
'GetBrowser يحصل على معلومات متصفح العميل
يحصل GetSystem على نظام تشغيل العميل
'GetUrl() يحصل على عنوان URL للصفحة الحالية بما في ذلك المعلمات
'CUrl() احصل على عنوان URL للصفحة الحالية
يحصل GetExtend على امتداد الملف
' CheckExist(table,fieldname,fieldcontent,isblur) يكتشف ما إذا كان محتوى الحقل في الجدول موجودًا أم لا
' GetNum(table,fieldname,resulttype,args) يكتشف عدد الحقول الموجودة في الجدول، والحد الأقصى للقيمة، والحد الأدنى للقيمة، وما إلى ذلك.
' GetFolderSize (Folderpath) يحسب حجم المجلد
' GetFileSize (اسم الملف) يحسب حجم الملف
' يكتشف IsObjInstalled (strClassString) ما إذا كان المكون مثبتًا أم لا
"SendMail JMAILSend mail
'ResponseCookies تكتب ملفات تعريف الارتباط
' CleanCookies مسح ملفات تعريف الارتباط
يحصل GetTimeover على وقت تنفيذ صفحة البرنامج
'تنسيق حجم التنسيق
'تنسيق الوقت FormatTime
"البروج يحصل على علامة البروج
"الكوكبة تحصل على الكوكبة
'-----
فئة Cls_fun
'-－－－－－－－－معالجة الأحرف－－－－－－－－－－－－－－－－－－－－－－－－－
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: StrLength
'الوظيفة: الحصول على طول السلسلة (الأحرف الصينية هي 2)
'المعلمة: str ---- محتوى السلسلة
'قيمة الإرجاع: طول السلسلة
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة StrLength(str)
مندوب خافت، عدسة، ط
تعيين مندوب = regexp الجديد
rep.Global=true
rep.IgnoreCase=true
rep.Pattern=[/u4E00-/u9FA5/uF900-/uFA2D]
لكل i في rep.Execute(str)
عدسة=عدسة+1
التالي
تعيين مندوب = لا شيء
عدسة = عدسة + لين (شارع)
strLength=lens
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: CutStr
'الوظيفة: قص طول السلسلة، وعرض علامات الحذف إذا تجاوزت الطول
'المعلمة: str ---- محتوى السلسلة
' strlen ------الطول الذي سيتم عرضه
'قيمة الإرجاع: محتوى السلسلة بعد القطع
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة CutStr(str,strlen)
خافت ل، ر، ط، ج
إذا str= ثم
Cutstr=
وظيفة الخروج
نهاية إذا
str=Replace(Replace(Replace(Replace(Replace(str, , ),,Chr(34)),>,>),<,<),|,|)
ل = لين (شارع)
ر = 0
لأني=1 إلى ل
ج = عبس (تصاعدي (منتصف (شارع، ط، 1)))
إذا ج> 255 ثم
ر=ر+2
آخر
ر=ر+1
نهاية إذا
إذا t>=strlen ثم
Cutstr=Left(str,i) & ...
الخروج ل
آخر
Cutstr=str
نهاية إذا
التالي
Cutstr=Replace(Replace(Replace(Replace(replace(cutstr, , ),Chr(34),),>,>),<,<),|,|)
وظيفة النهاية
'--－－－－－－－－－－－－－التحقق من السلسلة－－－－－－－－－－－－－－－－－－－－－－－ －－
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: CheckIsEmpty
'الوظيفة: التحقق مما إذا كانت فارغة أم لا
'المعلمة: tstr ---- سلسلة
'قيمة الإرجاع: صحيح ليس فارغًا، وخطأ فارغًا
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة CheckIsEmpty(tstr)
CheckIsEmpty=false
إذا كان IsNull(tstr) أو Tstr= ثم قم بإنهاء الوظيفة
شارع خافت، إعادة
شارع=Tstr
تعيين إعادة = RegExp الجديد
re.IgnoreCase =True
re.Global=صحيح
str = استبدال (str، vbNewLine، )
str = استبدال (str، Chr(9)، )
شارع = استبدال (شارع،،)
شارع = استبدال (شارع،،)
re.Pattern=<img(.[^>]*)>
str =re.Replace(Str,94kk)
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
تعيين إعادة = لا شيء
إذا كانت Str<> ثم CheckIsEmpty=true
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: isInteger
'الوظيفة: اختبار عدد صحيح
'المعلمة: tstr ---- حرف
'قيمة الإرجاع: صحيح هو عدد صحيح، وخطأ ليس عددا صحيحا
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة هي عدد صحيح (الفقرة)
على خطأ استئناف التالي
ديمستر
خافت ل، ط
إذا كانت NUll(الفقرة) إذن
isInteger=false
وظيفة الخروج
انتهي إذا
شارع = cstr (الفقرة)
إذا تقليم (شارع) = ثم
isInteger=false
وظيفة الخروج
انتهي إذا
ل = لين (شارع)
لأني = 1 إلى ل
إذا كان mid(str,i,1)>9 أو mid(str,i,1)<0
isInteger=false
وظيفة الخروج
انتهي إذا
التالي
isInteger=true
إذا كان err.number<>0 ثم err.clear
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: CheckName
'الوظيفة: التحقق من أحرف الاسم
'المعلمة: str ---- سلسلة
'قيمة الإرجاع: صحيح صحيح، خطأ غير صحيح
'********************************************************************************************************************************************************************************* * **
اسم التحقق من الوظيفة العامة (Str)
اسم الاختيار = صحيح
ديم ريب، مرر
تعيين Rep=RegExp الجديد
Rep.Global=صحيح
Rep.IgnoreCase=صحيح
'تطابق الحروف والأرقام والشرطات السفلية والأحرف الصينية ويجب أن تبدأ بأحرف أو شرطات سفلية أو أحرف صينية
Rep.Pattern=^[a-zA-Z_u4e00-/u9fa5][/w/u4e00-/u9fa5]+$
تعيين المرور=Rep.Execute(Str)
إذا pass.count=0 ثم CheckName=false
تعيين مندوب = لا شيء
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: التحقق من كلمة المرور
'الوظيفة: التحقق من كلمة المرور
'المعلمة: str ---- سلسلة
'قيمة الإرجاع: صحيح صحيح، خطأ غير صحيح
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة CheckPassword(Str)
تمريرة خافتة
التحقق من كلمة المرور = صحيح
إذا كانت Str <> إذن
مندوب خافت
تعيين Rep = RegExp الجديد
Rep.Global = صحيح
Rep.IgnoreCase = صحيح
'تطابق الحروف والأرقام والشرطات السفلية والنقاط
Rep.Pattern=[a-zA-Z0-9_/.]+$
تمرير=rep.Test(Str)
تعيين مندوب = لا شيء
إذا لم يتم اجتيازه، فتحقق من كلمة المرور = خطأ
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: التحقق من البريد الإلكتروني
'الوظيفة: الكشف عن تنسيق البريد الإلكتروني
'المعلمة: str ----عنوان البريد الإلكتروني
'قيمة الإرجاع: صحيح صحيح، خطأ غير صحيح
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة CheckEmail (البريد الإلكتروني)
CheckEmail=true
مندوب خافت
تعيين Rep = RegExp الجديد
rep.pattern=([/.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(/.([a-zA- Z0-9]){2,}){1,4}$
pass=rep.Test(البريد الإلكتروني)
تعيين مندوب = لا شيء
إذا لم تمر ثم CheckEmail=false
وظيفة النهاية
'----موجه المعلومات------------------------- －－
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: تنبيه
'الوظيفة: ينبثق مربع حوار موجه
'المعلمة: رسالة ---- معلومات مربع الحوار
' gourl ---- إلى أين تتجه بعد المطالبة
'قيمة الإرجاع: لا شيء
'********************************************************************************************************************************************************************************* * **
تنبيه الوظيفة العامة (msg،goUrl)
رسالة = استبدال (رسالة،'،/')
إذا goUrl= إذن
goUrl=history.go(-1);
آخر
goUrl=window.location.href='&goUrl&'
نهاية إذا
Response.Write (<script language=JavaScript type=text/javascript>&vbNewLine&alert(' & msg & ');&goUrl&vbNewLine&</script>)
الاستجابة.النهاية
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: GoBack
'الوظيفة: رسالة خطأ موجهة
'المعلمة: str1 ---- عنوان المطالبة بالمعلومات
' str2 ---- محتوى المعلومات الفوري
'isback----ما إذا كان سيتم عرض الإرجاع
'قيمة الإرجاع: لا شيء
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GoBack(Str1,Str2,isback)
إذا كانت Str1= ثم Str1=رسالة خطأ
إذا كانت Str2= ثم Str2=يرجى ملء جميع الحقول المطلوبة
إذا عاد = ثم
Str2=Str2& <a href=javascript:history.go(-1)>الرجوع لإعادة التعبئة</a></li>
آخر
Str2=Str2
نهاية إذا
الاستجابة.كتابة<div style=margin-left:5px;border:1px Solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : أبيض;حجم الخط:14px;الخلفية:#799AE1;الخلفية:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:mid;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>×</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
Response.end
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: Suc
'الوظيفة: معلومات موجهة للنجاح
'المعلمة: str1 ---- عنوان المطالبة بالمعلومات
' str2 ---- محتوى المعلومات الفوري
' URL ---- عنوان المرسل
'قيمة الإرجاع: لا شيء
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة Suc(str1,str2,url)
إذا كانت str1= ثم Str1=نجحت العملية
إذا كانت str2= إذن Str2=تم إكمال هذه العملية بنجاح!
إذا كان url= ثم url=javascript:history.go(-1)
str2=str2& <a href=&url& >الرجوع لمتابعة الإدارة</a>
الاستجابة.كتابة<div style=margin-left:5px;border:1px Solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : أبيض;حجم الخط:14px;الخلفية:#799AE1;الخلفية:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:mid;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>√</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
وظيفة النهاية
'------ －－
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: ChkPost
'الوظيفة: منع تقديم النموذج خارج الموقع
'قيمة الإرجاع: صحيح للإرسال في الموقع، وخطأ للإرسال خارج الموقع
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة ChkPost()
خافت URL1، URL2
chkpost=true
url1=Cstr(Request.ServerVariables(HTTP_REFERER))
url2=Cstr(Request.ServerVariables(SERVER_NAME))
إذا كان Mid(url1,8,Len(url2))<>url2 إذن
chkpost=false
وظيفة الخروج
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: PSql
'الوظيفة: منع حقن SQL
'قيمة الإرجاع: إذا كانت فارغة، فلن يكون هناك حقن. وإذا لم تكن فارغة، فسيتم حقنها وسيتم إرجاع الحرف الذي تم حقنه.
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة PSql()
بسكل=
badwords= 'anti' anti; anti and anti exec anti Insert anti حدد مكافحة التحديث مكافحة حذف مكافحة العد مكافحة * مكافحة % مكافحة حقوق الإنسان مكافحة منتصف مكافحة ماستر مكافحة اقتطاع مكافحة شار مكافحة إعلان مكافحة |
كلمة سيئة = انقسام (كلمات سيئة، الدفاع)
إذا Request.Form<> ثم
لكل TF_Post في Request.Form
لأني=0 إلى Ubound(badword)
إذا Instr(LCase(Request.Form(TF_Post)),badword(i))>0 ثم
Psql = كلمة سيئة (ط)
وظيفة الخروج
نهاية إذا
التالي
التالي
نهاية إذا
إذا Request.QueryString<> ثم
لكل TF_Get In Request.QueryString
لأني=0 إلى Ubound(badword)
إذا Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0 ثم
Psql = كلمة سيئة (ط)
وظيفة الخروج
نهاية إذا
التالي
التالي
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: FiltrateHtmlCode
'الوظيفة: منع إنشاء كود html
'المعلمة: str ---- سلسلة
'********************************************************************************************************************************************************************************* * **
مرشح الوظيفة العامةHtmlCode(Str)
إذا لم يكن isnull(str) وstr<> إذن
Str=Replace(Str,Chr(9,)
Str=replace(Str,|,|)
Str=replace(Str,chr(39),')
سلسلة = استبدال (سلسلة،<،<)
سلسلة = استبدال (سلسلة،>،>)
Str = استبدال (str، CHR(13)،)
Str = استبدال (str، CHR(10)،)
FiltrateHtmlCode=Str
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
"اسم الوظيفة: HtmlCode
'الوظيفة: تصفية علامات HTML
'المعلمة: str ---- سلسلة
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة HtmlCode(str)
إذا لم يكن isnull(str) وstr<> إذن
شارع = استبدال (شارع، >، >)
شارع = استبدال (شارع، <، <)
str = استبدال (str، CHR(32)، )
str = استبدال (str، CHR(9)، )
str = استبدال (str، CHR(34)، )
str = استبدال (str، CHR(39)، ')
str = استبدال (str، CHR(13)، )
str = استبدال (str، CHR(10)، )
str = استبدال (str، script، script)
كود HTML = str
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: استبدال HTML
'الوظيفة: HTML نظيف
'المعلمة: tstr ---- سلسلة
'********************************************************************************************************************************************************************************* * **
استبدال الوظيفة العامة HTML(tstr)
شارع خافت، إعادة
شارع=Tstr
تعيين إعادة = RegExp الجديد
re.IgnoreCase =True
re.Global=صحيح
re.Pattern=<(p|//p|br)>
Str=re.Replace(Str,vbNewLine)
re.Pattern=<img.[^>]*src(=| )(.[^>]*)>
str=re.replace(str,[img]$2[/img])
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
تعيين إعادة = لا شيء
استبدالhtml=Str
وظيفة النهاية
'------------احصل على بعض المعلومات حول العميل والخادم------------------
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: GetIP
'الوظيفة: الحصول على عنوان IP للعميل
'قيمة الإرجاع: عنوان IP للعميل
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GetIP()
درجة الحرارة الخافتة
درجة الحرارة = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
إذا كان Temp = أو isnull(Temp) أو isEmpty(Temp) ثم Temp = Request.ServerVariables(REMOTE_ADDR)
إذا كان Instr(Temp,')>0 فإن Temp=0.0.0.0
GetIP=درجة الحرارة
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: GetBrowser
'الوظيفة: الحصول على معلومات متصفح العميل
'قيمة الإرجاع: معلومات متصفح العميل
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GetBrowser()
info=Request.ServerVariables(HTTP_USER_AGENT)
إذا Instr(info,NetCaptor 6.5.0)>0 ثم
المتصفح=NetCaptor 6.5.0
elseif Instr(info,MyIe 3.1)>0 ثم
browser=MyIe 3.1
elseif Instr(info,NetCaptor 6.5.0RC1)>0 ثم
المتصفح=NetCaptor 6.5.0RC1
elseif Instr(info,NetCaptor 6.5.PB1)>0 ثم
browser=NetCaptor 6.5.PB1
elseif Instr(info,MSIE 5.5)>0 ثم
المتصفح = إنترنت إكسبلورر 5.5
elseif Instr(info,MSIE 6.0)>0 ثم
المتصفح = إنترنت إكسبلورر 6.0
elseif Instr(info,MSIE 6.0b)>0 ثم
المتصفح = إنترنت إكسبلورر 6.0ب
elseif Instr(info,MSIE 5.01)>0 ثم
المتصفح = إنترنت إكسبلورر 5.01
elseif Instr(info,MSIE 5.0)>0 ثم
المتصفح = إنترنت إكسبلورر 5.00
elseif Instr(info,MSIE 4.0)>0 ثم
المتصفح = إنترنت إكسبلورر 4.01
آخر
browser=other
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
"اسم الوظيفة: GetSystem
'الوظيفة: الحصول على نظام تشغيل العميل
'قيمة الإرجاع: نظام تشغيل العميل
'********************************************************************************************************************************************************************************* * **
الدالة GetSystem()
info=Request.ServerVariables(HTTP_USER_AGENT)
إذا Instr(info,NT 5.1)>0 ثم
النظام=ويندوز إكس بي
elseif Instr(info,Tel)>0 ثم
system=Telport
elseif Instr(info,webzip)>0 ثم
system=webzip
elseif Instr(info,flashget)>0 ثم
system=flashget
elseif Instr(info,offline)>0 ثم
النظام = غير متصل
elseif Instr(info,NT 5)>0 ثم
النظام=ويندوز 2000
elseif Instr(info,NT 4)>0 ثم
النظام = ويندوز NT4
elseif Instr(info,98)>0 ثم
النظام=ويندوز 98
elseif Instr(info,95)>0 ثم
النظام=ويندوز 95
elseif instr(info,unix) أو instr(info,linux) أو instr(info,SunOS) أو instr(info,BSD) ثم
النظام = يشبه يونكس
elseif instr(thesoft,Mac) بعد ذلك
نظام=ماك
آخر
النظام=أخرى
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
"اسم الوظيفة: GetUrl
'الوظيفة: احصل على عنوان URL بما في ذلك المعلمات
"قيمة الإرجاع: احصل على عنوان URL بما في ذلك المعلمات
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GetUrl()
خافت strTemp
strTemp=Request.ServerVariables(Script_Name)
إذا كان Trim(Request.QueryString)<> إذن
strTemp=strTemp&?
لكل M_item في Request.QueryString
strTemp=strTemp&M_item&=&Server.UrlEncode(Trim(Request.QueryString(&M_item&)))
التالي
نهاية إذا
GetUrl=strTemp
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: CUrl
'الوظيفة: وظيفة للحصول على عنوان URL للصفحة الحالية
"قيمة الإرجاع: وظيفة عنوان URL للصفحة الحالية."
'********************************************************************************************************************************************************************************* * **
الدالةCUrl()
Domain_Name = LCase(Request.ServerVariables(Server_Name))
Page_Name = LCase(Request.ServerVariables(Script_Name))
Quary_Name = LCase(Request.ServerVariables(Quary_String))
إذا Quary_Name = إذن
CUrl = http://&Domain_Name&Page_Name
آخر
CUrl = http://&Domain_Name&Page_Name&?&Quary_Name
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: GetExtend
'الوظيفة: الحصول على امتداد الملف
'المعلمة: اسم الملف ---- اسم الملف
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GetExtend (اسم الملف)
خافت tmp
إذا كان اسم الملف <> ثم
tmp=mid(filename,instrrev(filename,.)+1,len(filename)-instrrev(filename,.))
تمة=LCase(تمة)
إذا كان instr(1,tmp,asp)>0 أو instr(1,tmp,php)>0 أو instr(1,tmp,php3)>0 أو instr(1,tmp,aspx)>0 إذن
getextend=txt
آخر
getextend=tmp
نهاية إذا
آخر
الحصول على تمديد =
نهاية إذا
وظيفة النهاية
'------ －
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: CheckExist
'الوظيفة: اكتشاف ما إذا كان هناك محتوى معين موجود في حقل معين في جدول معين
'المعلمة: الجدول ---- اسم الجدول
'اسم الحقل ----اسم الحقل
'المحتوى الميداني ----محتوى الحقل
' isblur ---- ما إذا كان سيتم التطابق الغامض
'قيمة الإرجاع: خطأ غير موجود، صحيح موجود
'********************************************************************************************************************************************************************************* * **
الوظيفة CheckExist (الجدول، اسم الحقل، محتوى الحقل، isblur)
CheckExist=false
إذا كان isblur = 1 ثم
قم بتعيين rsCheckExist=conn.execute(اختر * من &table& حيث &fieldname& مثل '%&fieldcontent&%')
آخر
تعيين rsCheckExist=conn.execute(اختر * من &table& حيث &fieldname&= '&fieldcontent&')
انتهي إذا
إذا لم يكن الأمر كذلك (rsCheckExist.eof وrsCheckExist.bof) فإن CheckExist=true
rsCheckExist.إغلاق
تعيين rsCheckExist=لا شيء
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: GetNum
'الوظيفة: كشف الرقم أو الحد الأقصى أو الأدنى لقيمة حقل معين في الجدول
'المعلمة: الجدول ---- اسم الجدول
'اسم الحقل ----اسم الحقل
'resulttype ----إرجاع النتائج (العدد/الحد الأقصى/الدقيقة)
' args ---- مشاركة إضافية (ترتيب حسب ...)
'قيمة الإرجاع: قيمة عددية
'********************************************************************************************************************************************************************************* * **
الدالة GetNum (الجدول، اسم الحقل، نوع النتيجة، الوسائط)
GetFieldContentNum=0
إذا كان اسم الحقل = ثم اسم الحقل = *
sqlGetFieldContentNum=select &resulttype&(&fieldname&) من &table& args
تعيين rsGetFieldContentNum=conn.execute(sqlGetFieldContentNum)
إذا لم يكن الأمر كذلك (rsGetFieldContentNum.eof و rsGetFieldContentNum.bof) ثم GetFieldContentNum=rsGetFieldContentNum(0)
rsGetFieldContentNum.إغلاق
اضبط rsGetFieldContentNum=لا شيء
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: UpdateValue
'الوظيفة: تحديث قيمة حقل معين في الجدول
'المعلمة: الجدول ---- اسم الجدول
'اسم الحقل ----اسم الحقل
'قيمة الحقل----القيمة المحدثة
'فعلتُ
'url ------- عنوان تمت إعادة توجيهه بعد التحديث
'قيمة الإرجاع: لا شيء
'********************************************************************************************************************************************************************************* * **
قيمة تحديث الوظيفة العامة (الجدول، اسم الحقل، قيمة الحقل، المعرف، عنوان URL)
conn.Execute(update &table& set &fieldname&=&fieldvalue& Where id=&CLng(trim(id)))
إذا كان url<> ثم عنوان URL الخاص بإعادة التوجيه
وظيفة النهاية
'-－－－－－－－－－－－－－معلومات وعمليات الخادم－－－－－－－－－－－－－－－－－－
'********************************************************************************************************************************************************************************* * **
"اسم الوظيفة: GetFolderSize
'الوظيفة: حساب حجم المجلد
'المعلمات: اسم الملف ---- مسار المجلد واسم المجلد
'قيمة الإرجاع: قيمة عددية
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GetFolderSize(Folderpath)
خافت fso، d، الحجم، showsize
تعيين fso=server.createobject(scripting.filesystemobject)
drvpath=server.mappath(مسار المجلد)
إذا fso.FolderExists(drvpath) ثم
تعيين د=fso.getfolder(drvpath)
size=d.size
GetFolderSize=FormatSize(الحجم)
آخر
GetFolderSize=Folderpath&Folder غير موجود
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
"اسم الوظيفة: GetFileSize
'الوظيفة: حساب حجم الملف
'المعلمة: اسم الملف ---- مسار الملف واسم الملف
'قيمة الإرجاع: قيمة عددية
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GetFileSize(اسم الملف)
خافت fso، drvpath، d، الحجم، showsize
تعيين fso=server.createobject(scripting.filesystemobject)
filepath=server.mappath(اسم الملف)
إذا كان fso.FileExists (مسار الملف) إذن
تعيين د=fso.getfile(مسار الملف)
size=d.size
GetFileSize=FormatSize(size)
آخر
GetFileSize=اسم الملف&الملف غير موجود
نهاية إذا
تعيين fso=لا شيء
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: IsObjInstalled
'الوظيفة: التحقق من تثبيت المكون
'المعلمة: strClassString ---- اسم المكون
'قيمة الإرجاع: خطأ غير موجود، صحيح موجود
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة IsObjInstalled(strClassString)
على خطأ استئناف التالي
IsObjInstalled=False
خطأ = 0
DimxTestObj
تعيين xTestObj=Server.CreateObject(strClassString)
إذا كان 0 = خطأ، فإن IsObjInstalled = صحيح
تعيين xTestObj=لا شيء
خطأ = 0
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: SendMail
'الوظيفة: استخدم مكون Jmail لإرسال رسائل البريد الإلكتروني
'المعلمة: ServerAddress ---- عنوان الخادم
'AddRecipient----عنوان المستلم
'الموضوع ---- الموضوع
'الجسم----محتوى الرسالة
"المرسل ---- عنوان المرسل."
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
على خطأ استئناف المقبل
خافت JMail
تعيين JMail=Server.CreateObject(JMail.SMTPMail)
إذا أخطأت بعد ذلك
SendMail= لم يتم تثبيت مكون JMail
واضح
وظيفة الخروج
نهاية إذا
JMail.Logging=صحيح
JMail.Charset=gb2312
JMail.ContentType = text/html
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=AddRecipient
JMail.Subject=Subject
JMail.Body=MailBody
JMail.Sender=Sender
JMail.From = MailFrom
JMail.Priority=1
JMail.Execute
اضبط JMail = لا شيء
إذا أخطأت بعد ذلك
SendMail=err.description
واضح
آخر
SendMail=موافق
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: ملفات تعريف الارتباط للاستجابة
'الوظيفة: كتابة ملفات تعريف الارتباط
'المعلمة: المفتاح ---- اسم ملف تعريف الارتباط
القيمة ---- قيمة ملف تعريف الارتباط
' تنتهي الصلاحية ---- وقت انتهاء صلاحية ملف تعريف الارتباط
'********************************************************************************************************************************************************************************* * **
ملفات تعريف الارتباط للاستجابة للوظيفة العامة (المفتاح، القيمة، انتهاء الصلاحية)
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Response.Cookies(Key)=&القيمة&
إذا انتهت الصلاحية<>0 ثم Response.Cookies(Key).Expires=date+Expires
Response.Cookies(Key).Path=DomainPath
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: CleanCookies
'الوظيفة: مسح ملفات تعريف الارتباط
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة CleanCookies()
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
لكل objCookie في الطلب.Cookies
Response.Cookies(objCookie)=
Response.Cookies(objCookie).Path=DomainPath
التالي
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: GetTimeOver
'الوظيفة: مسح ملفات تعريف الارتباط
'المعلمة: علامة ---عرض وحدة الوقت 1=ثانية، وإلا بالميلي ثانية
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة GetTimeOver(العلم)
DimEndTime
إذا العلم = 1 ثم
EndTime=FormatNumber(Timer() - StartTime، 6، صحيح)
getTimeOver = وقت تنفيذ هذه الصفحة: & وقت الانتهاء والثواني
آخر
EndTime=FormatNumber((Timer() - StartTime) * 1000، 3، صحيح)
getTimeOver = وقت تنفيذ هذه الصفحة: & EndTime & ميلي ثانية
نهاية إذا
وظيفة النهاية
'-－－－－－－－－－－－－－－－تنسيق السلسلة－－－－－－－－－－－－－－－－－－－－ －－
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: حجم التنسيق
'الوظيفة: تنسيق الحجم
'المعلمة: الحجم ----الحجم المطلوب تنسيقه
'********************************************************************************************************************************************************************************* * **
حجم تنسيق الوظيفة العامة (dsize)
إذا كان dsize>=1073741824 إذن
FormatSize=Formatnumber(dsize/1073741824,2) وGB
elseif dsize>=1048576 إذن
FormatSize=Formatnumber(dsize/1048576,2) & ميغابايت
elseif dsize>=1024 إذن
FormatSize=Formatnumber(dsize/1024,2) & KB
آخر
حجم التنسيق=dsize والبايت
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: FormatTime
'الوظيفة: تنسيق الوقت
'المعلمة: DateTime ---- الوقت المطلوب تنسيقه
'تنسيق ----تنسيق النموذج
'********************************************************************************************************************************************************************************* * **
تنسيق الوظيفة العامة (التاريخ والوقت والتنسيق)
حدد تنسيق الحالة
الحالة 1
FormatTime=&year(DateTime)&year&month(DateTime)&month&day(DateTime)&日
الحالة 2
FormatTime=&month(DateTime)&month&day(DateTime)&
الحالة 3
FormatTime=&year(DateTime)&/&month(DateTime)&/&day(DateTime)&
الحالة 4
FormatTime=&month(DateTime)&/&day(DateTime)&
الحالة 5
FormatTime=&month(DateTime)&month&day(DateTime)&日&FormatDateTime(DateTime,4)&
الحالة 6
temp=الأحد، الاثنين، الثلاثاء، الأربعاء، الخميس، الجمعة، السبت
درجة الحرارة = الانقسام (درجة الحرارة،،)
FormatTime=temp(Weekday(DateTime)-1)
حالة أخرى
FormatTime=DateTime
حدد النهاية
وظيفة النهاية
'--------------------متنوع--------------------
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: زودياك
'الوظيفة: الحصول على الحياة والموت
'المعلمة: عيد ميلاد ---- عيد ميلاد
'********************************************************************************************************************************************************************************* * **
الوظيفة العامة زودياك (عيد ميلاد)
إذا كان IsDate(عيد ميلاد) ثم
سنة الميلاد = سنة (عيد الميلاد)
قائمة الأبراج = مصفوفة (قرد، دجاج، كلب، خنزير، فأر، ثور، نمر، أرنب، تنين، ثعبان، حصان، خروف)
دائرة الأبراج = قائمة الأبراج (سنة الميلاد 12)
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * **
'اسم الوظيفة: كوكبة
'الوظيفة: احصل على الكوكبة
'المعلمة: عيد ميلاد ---- عيد ميلاد
'********************************************************************************************************************************************************************************* * **
كوكبة الوظيفة العامة (عيد ميلاد)
إذا كان IsDate(عيد ميلاد) ثم
كوكبةالاثنين = الشهر (عيد الميلاد)
يوم الكوكبة = يوم (عيد الميلاد)
إذا كان Len(ConstellationMon)<2 فإن ConstellationMon=0&ConstellationMon
إذا كان Len(ConstellationDay)<2 فإن ConstellationDay=0&ConstellationDay
MyConstellation=ConstellationMon&ConstellationDay
إذا MyConstellation <0120 ثم
كوكبة=<img src=images/Constellation/g.gif />elseif MyConstellation <0219 ثم
كوكبة=<img src=images/Constellation/h.gif />elseif MyConstellation <0321 ثم
كوكبة=<img src=images/Constellation/i.gif />elseif MyConstellation <0420 ثم
كوكبة=<img src=images/Constellation/^.gif />elseif MyConstellation <0521 ثم
كوكبة=<img src=images/Constellation/_.gif />elseif MyConstellation <0622 ثم
كوكبة=<img src=images/Constellation/`.gif />elseif MyConstellation <0723 ثم
كوكبة=<img src=images/Constellation/a.gif />elseif MyConstellation <0823 ثم
كوكبة=<img src=images/Constellation/b.gif />elseif MyConstellation <0923 ثم
كوكبة=<img src=images/Constellation/c.gif />elseif MyConstellation <1024 ثم
كوكبة=<img src=images/Constellation/d.gif />elseif MyConstellation <1122 ثم
كوكبة=<img src=images/Constellation/e.gif />elseif MyConstellation <1222 ثم
كوكبة=<img src=images/Constellation/f.gif />elseif MyConstellation > 1221 ثم
كوكبة=<img src=images/Constellation/g.gif />نهاية إذا
نهاية إذا
وظيفة النهاية
"======================================================================================== =
'اسم الوظيفة: الصفحة التلقائية
'الوظيفة: ترقيم الصفحات تلقائيًا للمقالات الطويلة
'المعلمات: المعرف والمحتوى وurlact
"======================================================================================== =
وظيفة الصفحة التلقائية (المحتوى، المعلمة، pagevar)
contentStr=split(content,pagevar)
حجم الصفحات=ubound(contentStr)
إذا كان حجم الصفحة> 0 ثم
إذا كان Int(Request(page))= أو Int(Request(page))=0 إذن
رقم الصفحة = 1
آخر
pageNum=طلب(صفحة)
انتهي إذا
إذا pageNum-1<=pagesize إذن
AutoPage=AutoPage&contentStr(pageNum-1)
AutoPage=AutoPage&<div style=margin-top:10px;text-align:right;padding-right:15px;><font color=blue>رقم الصفحة:</font><font color=red>
لأن i=0 إلى حجم الصفحات
إذا كنت = pageNum-1 ثم
AutoPage=AutoPage&[<font color=red>&i+1&</font>]
آخر
إذا instr(paramater,?)>0 إذن
AutoPage=AutoPage&<a href=¶mater&&page=&i+1&>[&(i+1)&]</a>
آخر
AutoPage=AutoPage&<a href=¶mater&?page=&i+1&>[&(i+1)&]</a>
نهاية إذا
نهاية إذا
التالي
AutoPage=AutoPage&</font></div>
آخر
AutoPage=AutoPage&عملية غير قانونية! تم تجاوز رقم الصفحة! <a href=javascript:history.back(-1)><u>رجوع</u></a>
نهاية إذا
آخر
الصفحة التلقائية=content
نهاية إذا
وظيفة النهاية
نهاية الفصل
%>