يمنع التحقق من التسجيل أسماء المستخدمين من إدخال مسافات، ويستبدل asp الأحرف الخاصة في رمز الوظيفة على دفعات check.asp
انسخ رمز الكود كما يلي:
<%
'''''''''''''''''''''''''''
الدالة استبدال النص (fString،pattern،replStr)
Set regEx = New RegExp ' إنشاء تعبير عادي.
regEx.Pattern = patrn ' تعيين النمط.
regEx.IgnoreCase = True ' قم بتعيين ما إذا كنت تريد أن تكون حساسًا لحالة الأحرف.
regEx.Global = True ' قم بتعيين التوفر العالمي.
ReplaceText = regEx.Replace(&fString&,&replStr&) 'Replace.
تعيين regEx = لا شيء
وظيفة النهاية
'''''''''''''''''''''''''''
'''''''''''''''''''''''''''
الدالة HTMLEncode(fString)
fString=تريم(fString)
fString=Replace(fString,CHR(9,)
fString=Replace(fString,CHR(13,)
fString=Replace(fString,CHR(22,)
fString=Replace(fString,CHR(38),&) '&
fString=Replace(fString,CHR(32), ) '
fString=Replace(fString,CHR(34),) '
fString=Replace(fString,CHR(37),%) '%
fString=Replace(fString,CHR(39),') ''
fString=Replace(fString,CHR(42),*) '*
fString=Replace(fString,CHR(43),+) '+
fString=Replace(fString,CHR(44),,) ',
fString=Replace(fString,CHR(45)&CHR(45),--) '--
fString=Replace(fString,CHR(92),/) '/
'fString=Replace(fString,CHR(95),_) '_
fString=Replace(fString,CHR(40),() '(
fString=Replace(fString,CHR(41),)) ')
fString=Replace(fString,CHR(60),<) '<
fString=Replace(fString,CHR(62),>) '>
fString=Replace(fString,CHR(123),{) '{
fString=Replace(fString,CHR(125),}) '}
fString=Replace(fString,CHR(59),;) ';
fString=Replace(fString,CHR(10),<br>)
fString=ReplaceText(fString,([&#])([a-z0-9]*);,$1$2;)
fString=ReplaceText(fString,(fuck|shit),string(len(&$1&),*))
إذا IsSqlDataBase=0 ثم "تصفية كاتاكانا (الأحرف اليابانية) [/u30A0-/u30FF] بواسطة yuzi
fString = الهروب (fString)
fString=ReplaceText(fString,%u30([AF][0-F]),0$1;)
fString=unescape(fString)
نهاية إذا
HTMLEncode=fString
وظيفة النهاية
'''''''''''''''''''''''''''
'''''''''''''''''''''''''''
وظيفةRequestInt(fString)
RequestInt=طلب(fString)
إذا كان IsNumeric(RequestInt) ثم
RequestInt=int(RequestInt)
آخر
طلبInt=0
نهاية إذا
وظيفة النهاية
'''''''''''''''''''''''''''
اسم المستخدم=HTMLEncode(unescape(Request.QueryString(UserName)))
UserNameLength=RequestInt(UserNameLength)
إذا كان len(UserName)<>UserNameLength إذن
اسم المستخدم Response.write غير قانوني!
آخر
اسم المستخدم Response.write قانوني!
نهاية إذا
%>
تعد وظيفة HTMLEncode خطوة ضرورية لتحويل اسم المستخدم إلى أحرف قانونية.
تحدد وظيفة RequestInt بشكل أساسي ما إذا كان اسم المستخدم يحتوي على مسافات بناءً على عدد الأحرف الصالحة التي تم إدخالها.
طريقة الاتصال: check.asp?UserName=username&UserNameLength=username length
يتم استخدام check.asp بشكل عام لحكم Ajax