<%
'----------------------------------------------------------------- --------------------------
' نموذج الطلب: طلب نموذج الطلب
'----------------------------------------------------------------- --------------------------
الاستجابة. كتابة بيانات النموذج ()
دالة بيانات النموذج ()
خافت llngMaxFieldIndex
خافت llngFieldIndex
خافت llngMaxValueIndex
خافت llngValueIndex
خافت lstrDebug
"نموذج العد
llngMaxFieldIndex = Request.Form.Count
'أخبر المستخدم إذا كان النموذج غير موجود
إذا كان llngMaxFieldIndex = 0 إذن
FormData = "بيانات النموذج فارغة."
وظيفة الخروج
انتهي إذا
ابدأ في إنشاء قائمة بجميع النماذج
lstrDebug = "<OL>"
' حلقة من خلال كل نموذج
من أجل llngFieldIndex = 1 إلى llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))
'احسب القيم
llngMaxValueIndex = Request.Form(llngFieldIndex).Count
"إذا لم يكن الحقل يحتوي على قيم متعددة ...
إذا كان llngMaxValueIndex = 1 إذن
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' آخر حلقة من خلال كل قيمة
آخر
lstrDebug = lstrDebug & "<OL>"
من أجل llngValueIndex = 1 إلى llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
التالي
lstrDebug = lstrDebug & "</OL>"
انتهي إذا
lstrDebug = lstrDebug & "</LI>"
التالي
lstrDebug = lstrDebug & "</OL>"
'إرجاع البيانات
FormData = lstrDebug
دالة النهاية
%>
<%
'----------------------------------------------------------------- ------------------------
' قم بالإجابة على السؤال: قم بالطلب من خلال request.querystring، إذن!
'----------------------------------------------------------------- ------------------------
Response.Write QueryStringData()
الدالة QueryStringData()
خافت llngMaxFieldIndex
خافت llngFieldIndex
خافت llngMaxValueIndex
خافت llngValueIndex
خافت lstrDebug
' عد QueryString
llngMaxFieldIndex = Request.QueryString.Count
'دع المستخدم يعرف ما إذا كانت QueryString غير موجودة
إذا كان llngMaxFieldIndex = 0 إذن
QueryStringData = "بيانات QueryString فارغة."
وظيفة الخروج
انتهي إذا
ابدأ في إنشاء قائمة بجميع QueryString
lstrDebug = "<OL>"
'حلقة من خلال كل سلسلة استعلام
من أجل llngFieldIndex = 1 إلى llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))
'احسب القيم
llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count
"إذا لم يكن الحقل يحتوي على قيم متعددة ...
إذا كان llngMaxValueIndex = 1 إذن
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
' آخر حلقة من خلال كل قيمة
آخر
lstrDebug = lstrDebug & "<OL>"
من أجل llngValueIndex = 1 إلى llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
التالي
lstrDebug = lstrDebug & "</OL>"
انتهي إذا
lstrDebug = lstrDebug & "</LI>"
التالي
lstrDebug = lstrDebug & "</OL>"
'إرجاع البيانات
QueryStringData = lstrDebug
وظيفة النهاية
٪>