موصى به: مجموعة مفيدة من الوظائف في تطوير ASP (2) مجموعة من الوظائف المفيدة في تطوير ASP مفيدة للغاية ، يرجى الاحتفاظ بها! "*********************************************" تصفية الارتباط التشعبي "*****************************************
مجموعة من الوظائف المفيدة في تطوير ASP مفيدة للغاية! أتمنى أن يحافظ الجميع على ذلك!
<٪
'******************************************
'منع التقديمات الخارجية
'******************************************
وظيفة chkpost ()
Dim Server_v1 ، server_v2
chkpost = خطأ
server_v1 = cstr (request.servervariables (http_referer))
server_v2 = cstr (request.servervariables (server_name))
إذا كان MID (server_v1،8 ، len (server_v2)) <> server_v2 ثم
chkpost = خطأ
آخر
chkpost = صحيح
إنهاء إذا
وظيفة نهاية
'******************************************
تصفية IP
'******************************************
وظيفة matchip (IP)
عند استئناف الخطأ التالي
matchip = خطأ
قفص SIP ، Splitip
لكل رشفة في filterip
sip = استبدال (sip ،*،/d*)
Splitip = split (sip ،.)
Dim Re و Strmatchs و Strip
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = (& splitip (0) |). (& splitip (1) |). (& splitip (2) |). (& splitip (3) |)
تعيين strmatchs = re.execute (IP)
الشريط = strmatchs (0) .SubMatches (0) &. & strmatchs (0) .Submatches (1) &. & strmatchs (0) .Submatches (2) &. & strmatchs (0) .Submatches (3)
إذا الشريط = IP ثم matchip = true: وظيفة الخروج
تعيين strmatchs = لا شيء
تعيين إعادة = لا شيء
التالي
وظيفة نهاية
'******************************************
احصل على رمز التسجيل
'******************************************
وظيفة getCode ()
getCode = <img src = common/getCode.asp alt = style = margin-right: 40px ؛/>
وظيفة نهاية
'******************************************
'الحد من أنواع الملفات
'******************************************
وظيفة isValidFile (file_type)
isValidfile = false
قاتمة
لكل صناديق في up_filetype
if file_type = gname ثم
isValidfile = صحيح
الخروج ل
إنهاء إذا
التالي
وظيفة نهاية
'******************************************
الكشف عما إذا يتم تضمين اللغة الإنجليزية والأرقام فقط
'******************************************
وظيفة isvalidchars (Str)
قاتمة إعادة ، chkststr
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = [^_/. a-za-z/d]
isvalidchars = صحيح
chkststr = re.replace (str ،)
إذا كان chkststr <> str ثم isValidChars = خطأ
تعيين إعادة = لا شيء
وظيفة نهاية
'******************************************
الكشف عما إذا يتم تضمين اللغة الإنجليزية والأرقام فقط
'******************************************
وظيفة isvalidvalue (arrayn ، str)
isvalidvalue = خطأ
قاتمة
لكل ضحكة في Arrayn
إذا str = gname ثم
Isvalidvalue = صحيح
الخروج ل
إنهاء إذا
التالي
وظيفة نهاية
'******************************************
اكتشف ما إذا كان الرقم صالحًا
'******************************************
وظيفة isinteger (الفقرة)
isInteger = خطأ
إذا لم يكن (isnull (para) أو trim (para) = أو لم
isInteger = صحيح
إنهاء إذا
وظيفة نهاية
'******************************************
الكشف عن اسم المستخدم
'******************************************
وظيفة isValiduserName (اسم المستخدم Byval)
عند استئناف الخطأ التالي
قاتمة أنا ، ج
خافت Vusername
isValiduserName = صحيح
لأني = 1 إلى لين (اسم المستخدم)
C = Lase (منتصف (اسم المستخدم ، أنا ، 1))
إذا
isValiduserName = خطأ
وظيفة الخروج
إنهاء إذا
التالي
لكل vusername في register_username
إذا كان اسم المستخدم = vusername ثم
isValiduserName = خطأ
الخروج ل
إنهاء إذا
التالي
وظيفة نهاية
'******************************************
تحقق مما إذا كان عنوان البريد الإلكتروني صالحًا
'******************************************
وظيفة isValidemail (البريد الإلكتروني)
أسماء خافتة ، الاسم ، أنا ، ج
isValidemail = صحيح
أسماء = انقسام (البريد الإلكتروني ، @)
إذا كان Ubound (أسماء) <> 1 ثم
isValidemail = خطأ
وظيفة الخروج
إنهاء إذا
لكل اسم في الأسماء
إذا كان len (name) <= 0 ثم
isValidemail = خطأ
وظيفة الخروج
إنهاء إذا
لأني = 1 إلى لين (الاسم)
C = LCASE (MID (الاسم ، i ، 1))
إذا كانت instr (abcdefghijklmnopqrstuvwxyz_-. ، c) <= 0 وليس isnumeric (c) ثم
isValidemail = خطأ
وظيفة الخروج
إنهاء إذا
التالي
إذا ترك (الاسم ، 1) =. أو اليمين (الاسم ، 1) =. ثم
isValidemail = خطأ
وظيفة الخروج
إنهاء إذا
التالي
إذا instr (أسماء (1) ،.) <= 0 ثم
isValidemail = خطأ
وظيفة الخروج
إنهاء إذا
i = len (أسماء (1)) - Instrrev (أسماء (1) ،.)
إذا كنت <> 2 وأنا <> 3 ثم
isValidemail = خطأ
وظيفة الخروج
إنهاء إذا
إذا instr (البريد الإلكتروني ، ..)> 0 ثم
isValidemail = خطأ
إنهاء إذا
وظيفة نهاية
'******************************************
تمييز الكلمات الرئيسية
'******************************************
تسليط الضوء على الوظيفة (Byval Strcontent ، Byref Arraywords)
Dim Intcounter ، Strtemp ، intpos ، inttaglength ، intkeywordlength ، bupdate
إذا كان LEN (ArrayWords) <1 ثم تمييز = strcontent: وظيفة الخروج
ل intpos = 1 إلى لين (strcontent)
bupdate = خطأ
إذا كان منتصف (strcontent ، intpos ، 1) = <ثم
عند استئناف الخطأ التالي
inttaglength = (instr (intpos ، strcontent ،> ، 1) - intpos)
إذا أخطأ بعد ذلك
تسليط الضوء = strcontent
err.clear
إنهاء إذا
strtemp = strtemp & mid (strcontent ، intpos ، inttaglength)
intpos = intpos + inttaglength
إنهاء إذا
إذا كانت كلمات ArrayWords <> ثم
intkeywordlength = len (arrywords)
إذا كان LACE (Mid (strcontent ، intpos ، intkeywordlength)) = lace (arraywords) ثم
strtemp = strtemp & <span class = high1> & mid (strcontent ، intpos ، intkewordlength) & </span>
intpos = intpos + intkeywordlength - 1
bupdate = صحيح
إنهاء إذا
إنهاء إذا
إذا كان bupdate = خطأ ثم
strtemp = strtemp & mid (strcontent ، intpos ، 1)
إنهاء إذا
التالي
تسليط الضوء = strtemp
وظيفة نهاية
المشاركة: مجموعة مفيدة من الوظائف في تطوير ASP (3) مجموعة من الوظائف المفيدة في تطوير ASP مفيدة للغاية ، يرجى الاحتفاظ بها! "*********************************************" شريحة محتوى-تقسيم سطر "********************************************** (محتوى byval ، محتوى byval) dim ts ، i ، l contentNums = int (