#TITLE=تركيب ووظائف ASP الشائعة
#معلومات
بعض بناء الجملة والوظائف المخصصة شائعة الاستخدام في ASP
#فرز = ن
#T= ===بناء جملة ASP الشائع===
#ت=========================================================================
#T=متعلق بقاعدة البيانات
#T= الاتصال بقاعدة بيانات ACCESS
<%
خافت DBName، كونيتيكت
DBName^! "تحديد مسار قاعدة البيانات واسمها."
SET Conn = Server.CreateObject(ADODB.Connection)
Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات= & Server.MapPath(DBName)
%>
#T= الاتصال بقاعدة بيانات MS SQL
<%
ديم كون
SET Conn=Server.CreateObject(ADODB.connection)
Conn.Open PROVIDER=SQLOLEDB;مصدر البيانات=اسم خادم SQL أو عنوان IP;UID=حساب تسجيل الدخول إلى قاعدة البيانات;PWD=كلمة مرور قاعدة البيانات;قاعدة البيانات=اسم قاعدة البيانات
%>
#T= إنشاء مجموعة سجلات
SET ^!=Server.CreateObject(ADODB.recordset)
#T= تنفيذ أمر SQL
RS.Open SQL، كون، 1،1
#T= تنفيذ أمر SQL
كون.تنفيذ(^!)
#T= RS ينفذ أوامر SQL مباشرة
SET RS = Conn.Execute(^!)
#T= إغلاق مجموعة السجلات
إغلاق
ضبط RS = لا شيء
#T= إغلاق قاعدة البيانات
كون.إغلاق
SETConn=لا شيء
#ت=========================================================================
#T=متغيرات الخادم ذات الصلة
#T= احصل على عنوان الصفحة السابقة
Request.ServerVariables(HTTP_REFERER)
#T= احصل على اسم الخادم 1
Request.ServerVariables(SERVER_NAME)
#T= احصل على اسم الخادم 2
Request.ServerVariables(HTTP_HOST)
#T= احصل على IP الخاص بالخادم
Request.ServerVariables(LOCAL_ADDR)
#T= احصل على IP المستخدم
Request.ServerVariables(Remote_Host)
#T= احصل على IP1 الحقيقي للمستخدم
Request.serverVariables(REMOTE_ADDR)
#T= احصل على وظيفة IP الحقيقية للمستخدم
الدالة GetRealIP()
GetRealIP = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
إذا (GetRealIP =) ثم GetRealIP = Request.ServerVariables(REMOTE_ADDR)
وظيفة النهاية
#T= الحصول على منفذ الخادم
Request.ServerVariables(SERVER_PORT)
#T= احصل على نظام تشغيل الخادم
Request.ServerVariables(OS)
#T= احصل على المسار المطلق للخادم
Request.ServerVariables(APPL_PHYSICAL_PATH)
#T= احصل على المسار المطلق لهذا الملف 1
Requet.ServerVariables(PATH_TRANSLATED)
#T= احصل على المسار المطلق لهذا الملف 2
Server.mappath(Request.ServerVariables(SCRIPT_NAME))
#T= احصل على المسار النسبي لهذا الملف 1
Request.ServerVariables(URL)
#T= احصل على المسار النسبي لهذا الملف 2
Request.ServerVariables(SCRIPT_NAME)
#T= احصل على المسار النسبي لهذا الملف 3
Request.ServerVariables(PATH_INFO)
#T= احصل على المعلمات بعد شريط العناوين
Request.ServerVariables(QUERY_STRING)
#T= الحصول على معلومات نظام الخادم
Request.ServerVariables(HTTP_USER_AGENT)
#T= الكشف عن مكون الخادم
<%
الدالة IsObjInstalled(strClassString)
على خطأ استئناف التالي
IsObjInstalled = خطأ
الخطأ = 0
DimxTestObj
SET xTestObj = Server.CreateObject(strClassString)
IF(0 = خطأ)THEN IsObjInstalled = True
SET xTestObj = لا شيء
الخطأ = 0
وظيفة النهاية
'IF(IsObjInstalled(Persits.Upload)=True)ثم
'Response.Write يدعم مكون AspUpload
'آخر
' Response.Write لا يدعم مكون AspUpload
'انتهى إذا
%>
#T= احصل على لغة العميل
^!Request.ServerVariables(HTTP_ACCEPT_LANGUAGE)
#T= احصل على معلومات العميل: HTTP_USER_AGENT
^!Request.ServerVariables(HTTP_USER_AGENT)
#T= احصل على قيمة عنصر قيمة النموذج (Form).
نموذج الطلب(^!)
#T= احصل على القيمة التي تم تمريرها بواسطة عنوان URL
سلسلة الاستعلام (^!)
#T= احصل على عنوان URL الكامل
الدالة GetUrl()
GetUrl=http://&Request.ServerVariables(SERVER_N ... .ServerVariables(URL)
IF(Request.ServerVariables(QUERY_STRING)<>)THEN GetURL=GetUrl&?& Request.ServerVariables(QUERY_STRING)
وظيفة النهاية
#ت=========================================================================
#T=وظيفة مخصصة
#T= تصفية أحرف HTML
<%
'تصفية وظيفة أحرف HTML
الدالة HTMLEncode(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) & Chr(10)، </P><P>)
str = استبدال(str، Chr(10)، <BR>)
str = استبدال (str، Chr(255)، )
نهاية إذا
HTMLEncode = str
وظيفة النهاية
%>
#T= تحقق مما إذا كانت الصفحة السابقة قد تم إرسالها من هذا الموقع
<%
'تحقق مما إذا كانت الصفحة السابقة قد تم إرسالها من هذا الموقع
"الرجوع: صحيح، خطأ
'======================================================================== = =============
الدالة IsSelfRefer()
خافت sHttp_Referer، sServer_Name
sHttp_Referer = CStr(Request.ServerVariables(HTTP_REFERER))
sServer_Name = CStr(Request.ServerVariables(SERVER_NAME))
IF(Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name)THEN
IsSelfRefer = صحيح
آخر
IsSelfRefer = خطأ
نهاية إذا
وظيفة النهاية
%>
#T= مسح كافة علامات HTML
<%
"مسح علامات HTML."
شريط الوظائفHTML(htmlStr)
خافت regEx
SETregEx = NewRegexp
regEx.IgnoreCase = صحيح
regEx.Global = صحيح
regEx.Pattern = <.+?>
htmlStr = regEx.Replace(htmlStr,)
htmlStr = استبدال(htmlStr, <,<)
htmlStr = استبدال(htmlStr, >,>)
htmlStr = استبدال(htmlStr,chr(10,)
htmlStr = استبدال(htmlStr,chr(13,)
stripHTML = htmlStr
تعيين regEx = لا شيء
وظيفة النهاية
%>
#T= احصل على طول السلسلة
<%
'وظيفة للعثور على طول السلسلة
الدالة GetLength(str)
طول خافت
لأني = 1 إلى لين (شارع)
IF(تصاعدي(منتصف(str,i,1))<0 أو تصاعدي(منتصف(str,i,1))>256)ثم
الطول=الطول+2
آخر
الطول=الطول+1
نهاية إذا
التالي
GetLength=Length
وظيفة النهاية
%>
#T= اعتراض السلسلة ذات الطول المحدد
<%
"اعترض سلسلة ذات طول محدد، واستبدل الزائد بـ..."
الدالة StrLeft(str,strlen)
إذا (شارع =) ثم
سترليفت =
وظيفة الخروج
نهاية إذا
خافت ل، ر، ج، ط
str = Replace(Replace(Replace(Replace(str, , ),,chr(34))),>,>),<,<)
ل = لين (شارع)
ر = 0
لأني = 1 إلى ل
ج = عبس (تصاعدي (منتصف (شارع، ط، 1)))
إذا (ج> 255) إذن
ر=ر+2
آخر
ر=ر+1
نهاية إذا
إذا(ر>سترلين)ثم
StrLeft = اليسار (شارع، ط) & ...
الخروج ل
آخر
StrLeft = str
نهاية إذا
التالي
StrLeft = Replace(Replace(Replace(Replace(StrLeft, , ),chr(34),),>,>),<,<)
وظيفة النهاية
%>
#T= احصل على معلمات إرسال آمنة
<%
'======================================================================== = =============
"فحص حقن SQL."
'الوظيفة الوظيفية: تصفية علامات الاقتباس المفردة في معلمات الأحرف، والحكم على المعلمات الرقمية، وتعيين قيمة 0 إذا لم تكن نوعًا رقميًا
'معنى المعلمة: المعلمات str ---- المطلوب تصفيتها
'strType ---- نوع المعلمة، مقسم إلى نوع الحرف والنوع الرقمي، ونوع الحرف هو s، والنوع الرقمي هو i
'======================================================================== = =============
الدالة CheckStr(str,strType)
خافت strTmp
strTmp =
إذا (strType =s) إذن
strTmp = استبدال(Trim(str),','')
ELSEIF(strType=i)ثم
IF(IsNumeric(str)=False)THEN str=False
strTmp = str
آخر
strTmp = str
نهاية إذا
CheckStr= strTmp
وظيفة النهاية
%>
#T= تصفية الأحرف السيئة (BadWord)
<%
'تصفية الأحرف السيئة (الكلمات السيئة)
وظيفة ChkBadWords(fString)
خافت الكلمات السيئة، الكلمات، ط
BadWords = اللعنة|اللعنة عليك|اللعنة عليه|اللعنة عليك|اللعنة|الكلب|اللقيط|العضو التناسلي النسوي|القضيب|اللقيط|الاغتصاب|ممارسة الحب|العذراء|زيمين|فالون|فالون|هونغزي|فالون
إذا (ليس (IsNull(BadWords) أو IsNull(fString)))ثم
الكلمات = سبليت (BadWords، |)
لأني = 0 إلى UBound(الكلمات)
fString = Replace(fString, bwords(i), string(Len(bwords(i)),*))
التالي
ChkBadWords = fString
نهاية إذا
وظيفة النهاية
%>
#T= إنشاء كلمة مرور عشوائية ذات طول مخصص
<%
'إنشاء كلمة مرور عشوائية ذات طول مخصص
وظيفة makePassword(maxLen)
خافت strNewPass
خافت ما التالي، العلوي، السفلي، intCounter
عشوائية
بالنسبة لـ intCounter = 1 إلى maxLen
WhatsNext = Int((1 - 0 + 1) * Rnd + 0)
إذا (whatsNext = 0) ثم
'شخصية
العلوي = 90
أقل = 65
آخر
العلوي = 57
أقل = 48
نهاية إذا
strNewPass = strNewPass & Chr(Int((العلوي - السفلي + 1) * Rnd + السفلي))
التالي
makePassword = strNewPass
وظيفة النهاية
'الاستجابة. كتابة كلمة المرور(8)
%>
#T= احتفظ بالتنسيق بتنسيق HTML عند ملء منطقة النص
<%
'======================================================================== = =============
'قم بإزالة تنسيق Html المستخدم عند جلب القيم من قاعدة البيانات وملء مربع الإدخال
'ملاحظة: القيمة =؟ يجب استخدام علامات الاقتباس المزدوجة هنا
'======================================================================== = =============
الدالة فيHTML(str)
خافت درجة الحرارة
درجة الحرارة = شارع
في أتش تي أم أل =
إذا IsNull(sTemp) = صحيح إذن
وظيفة الخروج
نهاية إذا
sTemp = استبدال (sTemp، &، &)
sTemp = استبدال (sTemp، <br>،chr(13))
sTemp = استبدال (sTemp، <، <)
sTemp = استبدال (sTemp، >، >)
sTemp = استبدال (sTemp،، Chr(34))
inHTML = sTemp
وظيفة النهاية
%>
#T= وظيفة التحقق من تعبير الجدول العادي
<%
'وظيفة التحقق من التعبير العادي، نمط سلسلة التعبير العادي التي تحتاج إلى التحقق منها
'======================================================================== = =============
الدالة RegExpTest(pattern, strng)
Dim regEx, retVal 'إنشاء متغيرات.
SET regEx = New RegExp ' إنشاء تعبير عادي.
regEx.Pattern = patrn ' تعيين النمط.
regEx.IgnoreCase = False 'تعيين ما إذا كنت تريد أن تكون حساسًا لحالة الأحرف.
retVal = regEx.Test(strng) 'تنفيذ اختبار البحث.
RegExpTest = retVal 'قيمة الإرجاع، إذا كانت غير متطابقة، تُرجع خطأ، إذا كانت متطابقة، تُرجع صحيحًا
ضبط regEx = لا شيء
وظيفة النهاية
%>
#T= إنشاء سلسلة عشوائية
<%
'إنشاء سلسلة عشوائية
وظيفةRndCode()
مجموعة كود خافت، مجموعة المبلغ
مجموعة الكود = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
AmountSet = 62 'كمية النص
عشوائية
Dim vCode(10)، vCodes،i
لأني = 0 إلى 9
vCode(i) = Int(Rnd * AmountSet)
vCodes = vCodes & Mid(CodeSet، vCode(i) + 1, 1)
التالي
RndCode=vCodes
وظيفة النهاية
%>
#ت=========================================================================
#T=FSO العمليات ذات الصلة
#T= تحديد ما إذا كان الدليل موجودًا أم لا
<%
الدالة IsFloderExist(strFolderName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
إذا (FSO.FolderExists(strFolderName))ثم
IsFloderExist = صحيح
آخر
IsFloderExist = خطأ
نهاية إذا
ضبط FSO = لا شيء
وظيفة النهاية
%>
#T= إنشاء الدليل
<%
وظيفة إنشاء المجلد (strFolderName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
IF(FSO.FolderExists(strFolderName) = خطأ)ثم
FSO.CreateFolder(strFolderName)
نهاية إذا
ضبط FSO = لا شيء
وظيفة النهاية
%>
#T= حذف الدليل
<%
وظيفة حذف المجلد (strFolderName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
IF(FSO.FolderExists(strFolderName))ثم
FSO.DeleteFolder(strFolderName)
نهاية إذا
ضبط FSO = لا شيء
وظيفة النهاية
%>
#T= تحديد ما إذا كان الملف موجودًا أم لا
<%
الدالة IsFileExist(strFileName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
إذا (FSO.FileExists(strFileName))ثم
IsFileExist = صحيح
آخر
IsFileExist = خطأ
نهاية إذا
ضبط FSO = لا شيء
وظيفة النهاية
%>
#T=حذف الملف
<%
وظيفة حذف الملف (strFileName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
إذا (FSO.FileExists(strFileName))ثم
FSO.DeleteFile(strFileName)
نهاية إذا
ضبط FSO = لا شيء
وظيفة النهاية
%>
#ت=========================================================================
#T= العديد من الوظائف التي يشيع استخدامها من قبل لصوص ASP
<%
الدالة ByteToStr(vIn)
خافت strReturn،i،ThisCharCode،innerCode،Hight8،Low8،NextCharCode
strReturn =
لأني = 1 إلى LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
إذا كان (ThisCharCode <&H80) إذن
strReturn = strReturn & Chr(ThisCharCode)
آخر
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ط = ط + 1
نهاية إذا
التالي
ByteToStr = strReturn
وظيفة النهاية
الدالة GetHttpPageContent(url,Method,SendStr)
استرجاع خافت
استرجاع المجموعة = Server.CreateObject(Microsoft.XMLHTTP)
مع الاسترجاع
.طريقة الفتح، عنوان url، خطأ،،
.setRequestHeader نوع المحتوى، application/x-www-form-urlencoded
إرسال (SendStr)
GetHttpPageContent = .ResponseBody
نهاية مع
مجموعة الاسترجاع = لا شيء
GetHttpPageContent=ByteToStr(GetHttpPageContent)
وظيفة النهاية
الدالة RegExpText(strng,regStr)
التعابير المنطقية الخافتة، المطابقة، التطابقات، RetStr
SET regEx = New RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = صحيح
regEx.Global = صحيح
مجموعة التطابقات = regEx.Execute(strng)
لكل مباراة في المباريات
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
التالي
RegExpText = RetStr
تعيين regEx=لا شيء
وظيفة النهاية
الدالة StreamBytesToBstr(strBody, CodeBase)
خافت objStream
SET objStream = Server.CreateObject(Adodb.Stream)
مع أوبجستريم
.النوع = 1
الوضع = 3
.يفتح
.اكتب strBody
.الموضع = 0
.النوع = 2
.Charset = CodeBase
StreamBytesToBstr = .ReadText
.يغلق
نهاية مع
SET objStream = لا شيء
وظيفة النهاية
%>