الموصى به: يستخدم ASP XML لحزم المجلد المحدد وتحميله على دليل الويب ، وتفريده بنفسه "=================================" ملف 1 "pack.asp". الملفات '=================================== ٪ Explic
رمز المثال الخاص بـ ASP Online Q&A هو ملف HTML ، والذي هو test.asp ، والرمز كما يلي:
- <٪@language = vbscriptCodePage = 936 ٪>
- <٪
- ifSession (اسم المستخدم) = ثم
- استجابة. write (<script> ALERT ("الرجاء تسجيل الدخول ثم إجراء العمليات! ') ؛ window.location =' login.asp؟ reurl = test.asp '؛ </script>)
- استجابة.
- Endif
- ٪>
- <! doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // endttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
- <htmlxmlns = http: //www.w3.org/1999/xhtml>
- <head>
- <metahttp-equiv = content-typecontent = text/html ؛ charset = gb2312/>
- <title> السيناريو سؤال وجواب </title>
- <Tyletype = text/css>
- <!-
- جسم{}{
- حجم الخط: 12 بكسل ؛
- اللون:#0066ff ؛
- }
- مدخل{}{
- الحدود: 1pxSolid#ffffff ؛
- لون الخلفية: #EEEE ؛
- اليسار: 1 بكسل ؛
- أعلى: 1 بكسل ؛
- اليمين: 1px ؛
- القاع: 1 بكسل ؛
- مقطع: Rect (10px ، 10px ، 10px ، 10px) ؛
- الهامش: 1px ؛
- الحشو: 1px ؛
- }
- ->
- </style>
- </head>
- <scriptLanguage = javaScript>
- <!-
- FunctionChkform ()
- {
- vare = document.frm ؛
- varit ، العلم ، أنا ؛
- العلم = خطأ ؛
- لـ (i = 1 ؛ i <= 10 ؛ i ++)
- {
- variant = eval (e.question+i) ؛
- variantlen = eval (e.question+i+.length) ؛
- لـ (varj = 0 ؛ j <itlen ؛ j ++)
- {
- varitchk = eval (e.question+i+[+j+]. فحص) ؛
- إذا (itchk)
- {
- العلم = صحيح ؛
- استراحة؛
- }
- if (! itchk && j == itlen-1)
- {
- العلم = خطأ ؛
- استراحة؛
- }
- }
- إذا (! العلم)
- {
- تنبيه (الرجاء تحديد إجابة السؤال +i +) ؛
- ReturnFalse
- }
- }
- إذا (! العلم)
- {
- تنبيه (الرجاء تحديد إجابة السؤال +i +) ؛
- eval (e.question+i+.focus ()) ؛
- ReturnFalse
- }
- عودة
- }
- ->
- </script>
- <body>
- <viv> <strong> سيناريو سؤال وجواب </strong> </viv>
- <formName = frMacte = test_do.aspmethod = postonsubmit = return (chkform ()) ؛>
- <p> <br/>
- 1. ما هو اسم البطلة في المنسية والهبوط؟ <br/>
- <blabel>
- <inputType = Radioname = Question1Value = A/>
- أ </label>
- LAN <br/>
- <blabel>
- <inputType = Radioname = Question1Value = b/>
- ب. </label>
- Jenny <br/> <bility>
- <inputType = Radioname = Question1Value = C/>
- ج. </label> لوسي </p>
- <p> 2. ما هو اسم الشريط في الماضي الموسيقي؟ <br/>
- <blabel>
- <inputType = Radioname = Question2Value = A/>
- أ </label>
- نسي <br/>
- <blabel>
- <inputType = Radioname = Question2Value = b/>
- ب. </label>
- nv <br/>
- <blabel>
- <inputType = Radioname = Question2Value = C/>
- ج. </label>
- مثل الظل </p>
- <p> 3. ما هي الصور الموجودة على جدار الصورة المنسية؟ <br/>
- <blabel>
- <inputType = Radioname = Question3Value = A/>
- أ </label>
- بطلة الماضي <br/>
- <blabel>
- <inputType = Radioname = Question3Value = b/>
- ب. </label>
- المشهد بجانب البحر <br/>
- <blabel>
- <inputType = Radioname = Question3Value = C/>
- ج. </label>
- شريط خارجي </p>
- <p> 4. ما هو اسم النبيذ الذي يشرب البطلة في الموسيقى السابقة؟ <br/>
- <blabel>
- <inputType = Radioname = Question4Value = A/>
- أ </label>
- الجمال الوردي الأحمر <br/>
- <blabel>
- <inputType = Radioname = Question4Value = b/>
- ب. </label>
- قوس قزح سبعة ألوان <br/>
- <blabel>
- <inputType = Radioname = Question4Value = C/>
- ج. </label>
- كوستا ديل أزور </p>
- <p> 5. من هي شخصية غلاف مجلة Newvision في النسيان؟ <br/>
- <blabel>
- <inputType = Radioname = Question5Value = A/>
- A.
- <blabel>
- <inputType = Radioname = Question5Value = b/>
- ب. </label> المطر <br/>
- <blabel>
- <inputType = Radioname = Question5Value = C/>
- ج. </label> Zhang Dongjian </p>
- <p> 6. ما هو اسم السجل في الماضي؟ <br/>
- <blabel>
- <inputType = Radioname = Question6Value = A/>
- أ </label>
- سحر <br/>
- <blabel>
- <inputType = Radioname = Question6Value = b/>
- ب. </label>
- رائع <br/>
- <blabel>
- <inputType = Radioname = Question6Value = C/>
- ج. </label>
- جميل </p>
- <p> 7. ما هو مكتوب على جدار البار في الماضي الموسيقي؟ <br/>
- <blabel>
- <inputType = Radioname = Question7Value = A/>
- أ </label>
- loveisbeautiful <br/>
- <blys> <pectionType = Radioname = Question7Value = b/>
- ب. </label>
- truthisbeautiful <br/>
- <blys> <pectionType = Radioname = Question7Value = C/>
- ج. </label>
- SmileIsbeautiful </p>
- <p> 8. ما الذي يتم وضعه على البار في الماضي؟ <br/>
- <blys> <pectionType = Radioname = Question8Value = A/>
- أ </label>
- جراموفون <br/>
- <blys> <pectionType = Radioname = Question8Value = b/>
- ب. </label>
- راديو <br/>
- <blys> <pectionType = Radioname = Question8Value = C/>
- ج. </label>
- سجلات الفينيل </p>
- <p> 9. ما هو تفضيل بطل الرواية في الموسيقى السابقة؟ <br/>
- <blys> <pectionType = Radioname = Question9Value = A/>
- أ </label>
- فيلم <br/>
- <blys> <pectionType = Radioname = Question9Value = b/>
- ب. </label>
- التصوير الفوتوغرافي <br/>
- <blys> <pectionType = Radioname = Question9Value = C/>
- ج. </label>
- التبغ والموسيقى </p>
- <p> 10. ما هي هواية بطل الرواية في التباطؤ والعجب؟ <br/>
- <blys> <pectionType = Radioname = Question10value = A/>
- أ </label>
- السفر <br/>
- <blys> <pectionType = Radioname = Question10value = b/>
- ب. </label>
- التصوير الفوتوغرافي <br/>
- <blys> <pectionType = Radioname = Question10value = C/>
- ج. </label>
- انتقل إلى الإنترنت </p>
- <p> <br/>
- أقل
- <br/>
- </p>
- </form>
- </body>
- </html>
فيما يلي رمز الخلفية test_do.asp ، الرمز كما يلي:
- <٪@language = vbscriptCodePage = 936 ٪>
- <!-#includefile = conn.asp->
- <!-#includefile = function.asp->
- <٪
- استجابة
- استجابة. expires = -1
- استجابة. expiresabsolute = الآن ()-1
- ifSession (اسم المستخدم) = ثم
- Response.write (<script> ALERT ("الرجاء تسجيل الدخول ثم تشغيله! ') ؛ window.location =' login.asp؟ reurl = nv_scene_test.asp '؛ </script>)
- استجابة.
- Endif
- "أعلى درجة لخيار التعريف هي النتيجة الإجمالية
- conttotalscore = 100
- المكونات = 10
- تحديد درجة الخيار
- Dimresult (9)
- "معايير التسجيل للسؤال الأول
- النتيجة (0) = A | 10 | _ | B | 0 | _ | C | 0
- معايير النتيجة للسؤال 2
- النتيجة (1) = A | 0 | _ | B | 10 | _ | C | 0
- 'معايير نقاط السؤال الثالث
- النتيجة (2) = A | 10 | _ | B | 0 | _ | C | 0
- 'سؤال 4 نقاط معيار
- النتيجة (3) = A | 0 | _ | B | 0 | _ | C | 10
- 'سؤال 5 نقاط معيار
- النتيجة (4) = A | 0 | _ | B | 0 | _ | C | 10
- 'أسئلة 6 معايير النتيجة
- النتيجة (5) = A | 10 | _ | B | 0 | _ | C | 0
- 'السؤال 7 معايير النتيجة
- النتيجة (6) = A | 0 | _ | B | 10 | _ | C | 0
- 'سؤال 8 معايير النتيجة
- النتيجة (7) = A | 10 | _ | B | 0 | _ | C | 0
- 'سؤال 9 معايير النتيجة
- النتيجة (8) = A | 0 | _ | B | 0 | _ | C | 10
- 'أسئلة العاشرة معايير النتيجة
- النتيجة (9) = A | 0 | _ | B | 10 | _ | C | 0
- "المعايير" السؤال 11
- 'النتيجة (10) = a | 0 | _ | b | 0 | _ | c | 10
- '
- "المعايير" السؤال 12 السؤال
- 'النتيجة (11) = a | 0 | _ | b | 10 | _ | c | 0
- '
- "المعايير 13 السؤال
- 'النتيجة (12) = A | 10 | _ | B | 0 | _ | C | 0
- '
- "معايير التسجيل الرابعة عشرة
- 'النتيجة (13) = A | 0 | _ | B | 10 | _ | C | 0
- '
- '' QUEST 15th SCORE STREERIA
- 'النتيجة (14) = A | 0 | _ | B | 0 | _ | C | 10
- ifucase (request.servervariables (request_method)) = posthen
- callchk_post ()
- Dimi ، Total ، Selitem ، Summary ، Strdes ، Strout
- المجموع = 0
- fori = 0to (العناصر 1)
- selval = trim (request.form (سؤال & i+1))
- arritem = split (النتيجة (i) ، | _ |)
- forj = 0toubound (arritem)
- ifselval = split (arritem (j) ، |) (0) ثم
- TOTALTOTAL = TOTAL+CINT (Split (ARRITEM (J) ، |) (1))
- seletemseletem = seleitem & <li> سؤال & i+1 &: & selval & </li> & vbcrlf
- Endif
- التالي
- التالي
- ملخص = formatpercent (Total/TotalsCore)
- if (Total/TotalsCore)> = 0.6then
- strdes = الانتظام والملخص و <br> لقد مررت بها بنجاح
- آخر
- strdes = النتيجة والملخص و <br> للأسف ، لم يصل معدل الدقة الخاص بك إلى 60 ٪. من فضلك حاول مرة أخرى! <br> <hhref = test.asp '> العودة إلى صفحة Q & A عبر الإنترنت >> </a>
- Endif
- strout = youhaveselected thiseseitemsbelow: <br> & selitem & <br> total: & total & <br> دقتك هي: وملخص
- stroutstrout = strout & <br> & strdes
- str_sql = selectCount (1) fromuserInFoWherMemberId = '& Session (id) &'
- rowcount = dataconn.execute (str_sql) (0)
- ifrowCount> 0then'update المعلومات الشخصية إذا كانت موجودة
- str_sql = updateUserInfo
- str_sqlstr_sql = str_sql & setResult = '& formatnumber (total/totalscore ، 2) &'
- str_sqlstr_sql = str_sql & ، ip = '& get_userip () &'
- str_sqlstr_sql = str_sql & ، addtime = getDate ()
- str_sqlstr_sql = str_sql & wherememberid = '& session (id) &'
- آخر
- str_sql = insertintouserInfo (النتيجة ، العضو ، العضو ، IP)
- str_sqlstr_sql = str_sql & dase ('& formatnumber (total/totalscore ، 2) &' & session (id)
- Endif
- dataconn.execute (str_sql)
- Endif
- ٪>
- <! doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // endttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
- <htmlxmlns = http: //www.w3.org/1999/xhtml>
- <head>
- <metahttp-equiv = content-typecontent = text/html ؛ charset = gb2312/>
- <title> نتائج اختبار الأسئلة والأجوبة عبر الإنترنت </title>
- <Tyletype = text/css>
- <!-
- جسم{
- حجم الخط: 12 بكسل ؛
- اللون:#0066ff ؛
- }
- مدخل{
- الحدود: 1pxSolid#ffffff ؛
- لون الخلفية: #EEEE ؛
- اليسار: 1 بكسل ؛
- أعلى: 1 بكسل ؛
- اليمين: 1px ؛
- القاع: 1 بكسل ؛
- مقطع: Rect (10px ، 10px ، 10px ، 10px) ؛
- الهامش: 1px ؛
- الحشو: 1px ؛
- }
- ->
- </style>
- </head>
- <body>
- <٪ استجابة. write (strout) ٪>
- </body>
- </html>
مشاركة: نصائح لكائنات خطأ ASP في VBScript ، هناك عبارة عن خطأ في السيرة الذاتية التي تتسبب في تجاهل مترجم البرنامج النصي لتجاهل أخطاء وقت التشغيل ومتابعة تنفيذ رمز البرنامج النصي. ثم يمكن للنص التحقق من قيمة خاصية err.number لتحديد ما إذا كان حدث خطأ. في حالة حدوث خطأ ، يتم إرجاع قيمة غير صفرية. في ASP 3.0 ، يمكنك أيضًا استخدام Error Goto 0 "للعودة إلى" الافتراضي "