موصى به: نصيحة لاستخدام حلقة في ASP تشترك هذه المقالة بشكل أساسي في نصيحة لـ A for loop في ASP. أنا حقًا لا أهتم بها. آمل أن يتمكن الأصدقاء الذين يفهمون ASP من الرجوع إليه.
<٪
'===========================================
قائمة الوظائف:
1: إنشاء اتصال قاعدة بيانات Connopen (DatabasEconnectStr ، dbtype ، conn_object)
2: افصل وكرات قاعدة البيانات (conn_object)
3: منع حقن SQL من SafereQuest (Paraname ، paratype)
4: تنسيق تاريخ تاريخ (DateSt ، dateType)
'5: عرض رسالة خطأ دش (errstr)
6: ابحث عن بيانات محددة في سلسلة الاستعلام SelectStr (ContentStr ، PatternStr ، PatternNum)
7: قم بتصفية الحرف المحدد (ContentStr ، Badwords)
'8: زحف محتوى الملف عن بُعد (urlstr)
9: معالجة تدفق البيانات معالجة BYTESTOBSTR (الجسم ، CSET)
'10: ترميز برامج ترميز ملفات تعريف الارتباط (ContentSt)
11: فك تشفير ملفات تعريف الارتباط decodecookie (ContentSt)
12: تحقق مما إذا كان مصدر إرسال البيانات هو chkpost قانوني ()
'13: تشفير مخصص myencrypt (strpassword)
'14: يحظر على Nobuffer () مؤقتًا في هذه الصفحة
'15: نص صفحة الويب على نص HTMLencode (FSTRING)
'16: اعتراض الطول المحدد للسلسلة من الرأس (حسب عدد الأحرف) gottopic (str ، strlen)
'17: تحقق من رمز التحقق checkRadompass (radompass)
18: إنشاء رمز التحقق getCode ()
19: احصل على إصدار نظام تشغيل العميل GetSystem ()
'20: معاملة قاعدة البيانات connmanage (conn_object)
'21: Quicksort (العودية) Quicksort (ARR ، Low ، High)
22: قم بتوصيل عناصر الصفيف في سلسلة محددة arr_join (arr ، حرف)
23: إرجاع عدد الأوتار مقسومة على عدد معين من الأحرف العد _character (str ، الحرف)
'24: اعتراض العدد المحدد من السلاسل في السلسلة التي تحتوي على splitter inter_str_by_character_num (str ، الحرف ، ابدأ ، num)
'25: استخدم الدفق لتنزيل ملف تنزيل الملف (strfile)
'26: رسالة الإرجاع send_back (كلمات النتائج)
'27: احصل على رسالة خطأ get_err ()
'28: على عكس الاستجابة الأكثر أمانًا (المحتوى)
'29: حفظ RemoteFile (LocalFilename ، RemoteFileurl)
30: ...
Dim language_arr (10)
اللغة _arr (0) = إعداد المعلمة لاتصال قاعدة البيانات غير صحيح!
اللغة _arr (1) = إعداد المعلمة النوع لاتصال قاعدة البيانات غير صحيح!
LANGUE_ARR (2) = فشل اتصال قاعدة البيانات!
language_arr (3) = قيمة المعلمة غير القانونية!
language_arr (4) = قيمة المعلمة ليست تنسيق تاريخ صالح!
لغة _arr (5) = فشل العملية!
language_arr (6) = العمود لديه اسم مكرر!
language_arr (7) = اسم العمود فارغ!
LANGUE_ARR (8) = فشل إنشاء مجلد العمود!
language_arr (9) = ليس لديك هذا الإذن!
'
معرف الوظيفة: 1
وظيفة الوظيفة: إنشاء اتصال بقاعدة البيانات
وقت التعديل:
معلمات الخليفة:
'ConnectStRSTR: سلسلة اتصال قاعدة البيانات
'ConnectType: نوع قاعدة البيانات الفئة الرقمية ، 0 هو الوصول ، 1 هو MS SQL
'قيمة الإرجاع:
'
sub connopen (databaseConnectstr ، dbtype ، conn_object)
تعيين conn_object = server.createBject (adodb.connection)
إذا كان databaseConnectstr = ثم اتصل على shamer (language_arr (0))
إذا كان dbtype = 0 ثم
conn_object.open driver = {Microsoft Access Driver (*.mdb)} ؛ dbq = & databaseConnectstr
elseif dbtype = 1 ثم
conn_object.open provider = sqloledb.1 ؛ & databaseConnectstr
آخر
استدعاء دش (language_arr (1))
إنهاء إذا
err.clear
نهاية الفرعية
'
معرف الوظيفة: 2
الوظيفة: افصل قاعدة البيانات
وقت التعديل:
معلمات الخليفة:
'قيمة الإرجاع:
'
واردة فرعية (conn_object)
conn_object.close
تعيين conn_object = لا شيء
نهاية الفرعية
'
معرف الوظيفة: 3
وظيفة الوظيفة: منع حقن SQL
وقت التعديل:
معلمات الخليفة:
'paraname: paraname-character
'paratype: paratype: نوع المعلمة نوع رقمي (1 يعني أن المعلمات أعلاه هي أرقام ، و 0 يعني أن المعلمات أعلاه هي أحرف)
'قيمة الإرجاع:
سلسلة ترشيح
'
وظيفة saferequest (paraname ، paratype)
قاتمة بارافالوي
paravalue = طلب (بارانام)
حدد Case Paratype
الحالة 0
paravalue = استبدال (paravalue ، '، [النظام: 34])
paravalue = استبدال (paravalue ، = ، [النظام: 61])
الحالة 1
إذا لم يكن isnumberic (paravalue) ثم اتصل على الاستحمام (language_arr (3))
الحالة -1
إذا لم يكن isnumberic (paravalue) ثم اتصل على الاستحمام (language_arr (3))
إذا كان paravalue = ثم paravalue = 0
حالة أخرى
إذا كان Len (paravalue)> paratype ثم اتصل بـ Showerr (language_arr (3))
paravalue = استبدال (paravalue ، '، [النظام: 34])
paravalue = استبدال (paravalue ، = ، [النظام: 61])
نهاية الاختيار
saferequest = paravalue
وظيفة نهاية
'======================================== "معرف الوظيفة: 4
وظيفة الوظيفة: تاريخ التنسيق
وقت التعديل:
معلمات الخليفة:
'دايستور: دايستور:
'paratype: نوع نوع الرقم الرقمي
'قيمة الإرجاع:
تاريخ تنسيق
دالة DateFormat (datestr ، datetype)
Dimaterring
إذا isDate (datestr) = false ثم
استدعاء دش (language_arr (4))
إنهاء إذا
حدد case datetype
الحالة 1
dateString = Year (datest) &-& month (datestr) &-& day (datest)
الحالة 2
dateString = Year (datest) &. & month (datester) &. & day (datest)
الحالة 3
dateString = year (datest) و/& month (datest) &/day (datest)
الحالة 4
dateString = month (datest) &/& day (datest) و/& year (datester)
الحالة 5
dateString = Day (datest) و/& month (datest) و/& year (datest)
الحالة 6
dateString = month (datest) &-& day (datest) &-& year (datester)
الحالة 7
dateString = month (datest) &. & day (datest) &. & year (datester)
القضية 8
datestring = month (datest) &-& day (datester)
الحالة 9
dateString = month (datest) و/& day (datester)
الحالة 10
dateString = month (datester) &. & day (datest)
الحالة 11
dateString = month (datest) & language_arr (6) & day (datest) & language_arr (7)
الحالة 12
dateString = Day (datest) & language_arr (7) & hour (datest) & language_arr (8)
الحالة 13
dateString = Day (datest) & language_arr (7) & hour (datest) & language_arr (8)
القضية 14
dateString = ساعة (datest) & language_arr (8) و Minute (datest) & language_arr (9)
الحالة 15
dateString = ساعة (datest) &: & minute (datester)
القضية 16
dateString = Year (datest) & language_arr (5) & month (datest) & language_arr (6) & day (datest) & language_arr (7)
حالة أخرى
البيانات = البيانات
نهاية الاختيار
DateFormat = dateString
وظيفة نهاية
'
معرف الوظيفة: 5
وظيفة الوظيفة: موجه خطأ العرض
وقت التعديل:
معلمات الخليفة:
'errstr: خطأ - نوع الحرف نوع الحرف
"قيمة الإرجاع: العودة إلى صفحة التقديم
'
مشاركة: دليل عمود Ewebeditor v3.8 العنوان: ASP Ewebeditor v3.8 دليل الأعمدة (الإصدارات الأخرى هي اختبارات) ملف الضعف: ASP/Browse.asp تحدث الضعف: spitparam () stype = ucase (trim (request.querystring (type))))
صفحتان في إجمالي الصفحة السابقة 12 الصفحة التالية