الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

ASP Online سؤال السؤال والإجابة رمز مثال

الكاتب：Eve Cole وقت التحديث：2025-05-07 07:16:01

الموصى به: يستخدم ASP XML لحزم المجلد المحدد وتحميله على دليل الويب ، وتفريده بنفسه
"=================================" ملف 1 "pack.asp". الملفات '=================================== ٪ Explic

رمز المثال الخاص بـ ASP Online Q&A هو ملف HTML ، والذي هو test.asp ، والرمز كما يلي:

  1.  <٪@language = vbscriptCodePage = 936 ٪>
  2.  <٪
  3.  ifSession (اسم المستخدم) = ثم
  4.  استجابة. write (<script> ALERT ("الرجاء تسجيل الدخول ثم إجراء العمليات! ') ؛ window.location =' login.asp؟ reurl = test.asp '؛ </script>)
  5.  استجابة.
  6.  Endif
  7.  ٪>
  8.  <! doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // endttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
  9.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  10.  <head>
  11.  <metahttp-equiv = content-typecontent = text/html ؛ charset = gb2312/>
  12.  <title> السيناريو سؤال وجواب </title>
  13.  <Tyletype = text/css>
  14.  <!-
  15.  جسم{}{
  16.  حجم الخط: 12 بكسل ؛
  17.  اللون:#0066ff ؛
  18.  }
  19.  مدخل{}{
  20.  الحدود: 1pxSolid#ffffff ؛
  21.  لون الخلفية: #EEEE ؛
  22.  اليسار: 1 بكسل ؛
  23.  أعلى: 1 بكسل ؛
  24.  اليمين: 1px ؛
  25.  القاع: 1 بكسل ؛
  26.  مقطع: Rect (10px ، 10px ، 10px ، 10px) ؛
  27.  الهامش: 1px ؛
  28.  الحشو: 1px ؛
  29.  }
  31.  ->
  32.  </style>
  33.  </head>
  34.  <scriptLanguage = javaScript>
  35.  <!-
  36.  FunctionChkform ()
  37.  {
  38.  vare = document.frm ؛
  39.  varit ، العلم ، أنا ؛
  40.  العلم = خطأ ؛
  43.  لـ (i = 1 ؛ i <= 10 ؛ i ++)
  44.  {
  45.  variant = eval (e.question+i) ؛
  46.  variantlen = eval (e.question+i+.length) ؛
  48.  لـ (varj = 0 ؛ j <itlen ؛ j ++)
  49.  {
  50.  varitchk = eval (e.question+i+[+j+]. فحص) ؛
  52.  إذا (itchk)
  53.  {
  54.  العلم = صحيح ؛
  55.  استراحة؛
  56.  }
  58.  if (! itchk && j == itlen-1)
  59.  {
  60.  العلم = خطأ ؛
  61.  استراحة؛
  62.  }
  63.  }
  65.  إذا (! العلم)
  66.  {
  67.  تنبيه (الرجاء تحديد إجابة السؤال +i +) ؛
  68.  ReturnFalse
  69.  }
  71.  }
  72.  إذا (! العلم)
  73.  {
  74.  تنبيه (الرجاء تحديد إجابة السؤال +i +) ؛
  75.  eval (e.question+i+.focus ()) ؛
  76.  ReturnFalse
  77.  }
  78.  عودة
  79.  }
  80.  ->
  81.  </script>
  82.  <body>
  83.  <viv> <strong> سيناريو سؤال وجواب </strong> </viv>
  84.  <formName = frMacte = test_do.aspmethod = postonsubmit = return (chkform ()) ؛>
  85.  <p> <br/>
  86.  1. ما هو اسم البطلة في المنسية والهبوط؟ <br/>
  87.  <blabel>
  88.  <inputType = Radioname = Question1Value = A/>
  89.  أ </label>
  90.  LAN <br/>
  91.  <blabel>
  92.  <inputType = Radioname = Question1Value = b/>
  93.  ب. </label>
  94.  Jenny <br/> <bility>
  95.  <inputType = Radioname = Question1Value = C/>
  96.  ج. </label> لوسي </p>
  97.  <p> 2. ما هو اسم الشريط في الماضي الموسيقي؟ <br/>
  98.  <blabel>
  99.  <inputType = Radioname = Question2Value = A/>
  100.  أ </label>
  101.  نسي <br/>
  102.  <blabel>
  103.  <inputType = Radioname = Question2Value = b/>
  104.  ب. </label>
  105.  nv <br/>
  106.  <blabel>
  107.  <inputType = Radioname = Question2Value = C/>
  108.  ج. </label>
  109.  مثل الظل </p>
  110.  <p> 3. ما هي الصور الموجودة على جدار الصورة المنسية؟ <br/>
  111.  <blabel>
  112.  <inputType = Radioname = Question3Value = A/>
  113.  أ </label>
  114.  بطلة الماضي <br/>
  115.  <blabel>
  116.  <inputType = Radioname = Question3Value = b/>
  117.  ب. </label>
  118.  المشهد بجانب البحر <br/>
  119.  <blabel>
  120.  <inputType = Radioname = Question3Value = C/>
  121.  ج. </label>
  122.  شريط خارجي </p>
  123.  <p> 4. ما هو اسم النبيذ الذي يشرب البطلة في الموسيقى السابقة؟ <br/>
  124.  <blabel>
  125.  <inputType = Radioname = Question4Value = A/>
  126.  أ </label>
  127.  الجمال الوردي الأحمر <br/>
  128.  <blabel>
  129.  <inputType = Radioname = Question4Value = b/>
  130.  ب. </label>
  131.  قوس قزح سبعة ألوان <br/>
  132.  <blabel>
  133.  <inputType = Radioname = Question4Value = C/>
  134.  ج. </label>
  135.  كوستا ديل أزور </p>
  136.  <p> 5. من هي شخصية غلاف مجلة Newvision في النسيان؟ <br/>
  137.  <blabel>
  138.  <inputType = Radioname = Question5Value = A/>
  139.  A.
  140.  <blabel>
  141.  <inputType = Radioname = Question5Value = b/>
  142.  ب. </label> المطر <br/>
  143.  <blabel>
  144.  <inputType = Radioname = Question5Value = C/>
  145.  ج. </label> Zhang Dongjian </p>
  146.  <p> 6. ما هو اسم السجل في الماضي؟ <br/>
  147.  <blabel>
  148.  <inputType = Radioname = Question6Value = A/>
  149.  أ </label>
  150.  سحر <br/>
  151.  <blabel>
  152.  <inputType = Radioname = Question6Value = b/>
  153.  ب. </label>
  154.  رائع <br/>
  155.  <blabel>
  156.  <inputType = Radioname = Question6Value = C/>
  157.  ج. </label>
  158.  جميل </p>
  159.  <p> 7. ما هو مكتوب على جدار البار في الماضي الموسيقي؟ <br/>
  160.  <blabel>
  161.  <inputType = Radioname = Question7Value = A/>
  162.  أ </label>
  163.  loveisbeautiful <br/>
  164.  <blys> <pectionType = Radioname = Question7Value = b/>
  165.  ب. </label>
  166.  truthisbeautiful <br/>
  167.  <blys> <pectionType = Radioname = Question7Value = C/>
  168.  ج. </label>
  169.  SmileIsbeautiful </p>
  170.  <p> 8. ما الذي يتم وضعه على البار في الماضي؟ <br/>
  171.  <blys> <pectionType = Radioname = Question8Value = A/>
  172.  أ </label>
  173.  جراموفون <br/>
  174.  <blys> <pectionType = Radioname = Question8Value = b/>
  175.  ب. </label>
  176.  راديو <br/>
  177.  <blys> <pectionType = Radioname = Question8Value = C/>
  178.  ج. </label>
  179.  سجلات الفينيل </p>
  180.  <p> 9. ما هو تفضيل بطل الرواية في الموسيقى السابقة؟ <br/>
  181.  <blys> <pectionType = Radioname = Question9Value = A/>
  182.  أ </label>
  183.  فيلم <br/>
  184.  <blys> <pectionType = Radioname = Question9Value = b/>
  185.  ب. </label>
  186.  التصوير الفوتوغرافي <br/>
  187.  <blys> <pectionType = Radioname = Question9Value = C/>
  188.  ج. </label>
  189.  التبغ والموسيقى </p>
  190.  <p> 10. ما هي هواية بطل الرواية في التباطؤ والعجب؟ <br/>
  191.  <blys> <pectionType = Radioname = Question10value = A/>
  192.  أ </label>
  193.  السفر <br/>
  194.  <blys> <pectionType = Radioname = Question10value = b/>
  195.  ب. </label>
  196.  التصوير الفوتوغرافي <br/>
  197.  <blys> <pectionType = Radioname = Question10value = C/>
  198.  ج. </label>
  199.  انتقل إلى الإنترنت </p>
  200.  <p> <br/>
  201.  أقل
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

فيما يلي رمز الخلفية test_do.asp ، الرمز كما يلي:

  1.  <٪@language = vbscriptCodePage = 936 ٪>
  2.  <!-#includefile = conn.asp->
  3.  <!-#includefile = function.asp->
  4.  <٪
  5.  استجابة
  6.  استجابة. expires = -1
  7.  استجابة. expiresabsolute = الآن ()-1
  9.  ifSession (اسم المستخدم) = ثم
  10.  Response.write (<script> ALERT ("الرجاء تسجيل الدخول ثم تشغيله! ') ؛ window.location =' login.asp؟ reurl = nv_scene_test.asp '؛ </script>)
  11.  استجابة.
  12.  Endif
  14.  "أعلى درجة لخيار التعريف هي النتيجة الإجمالية
  15.  conttotalscore = 100
  16.  المكونات = 10
  17.  تحديد درجة الخيار
  18.  Dimresult (9)
  19.  "معايير التسجيل للسؤال الأول
  20.  النتيجة (0) = A | 10 | _ | B | 0 | _ | C | 0
  22.  معايير النتيجة للسؤال 2
  23.  النتيجة (1) = A | 0 | _ | B | 10 | _ | C | 0
  25.  'معايير نقاط السؤال الثالث
  26.  النتيجة (2) = A | 10 | _ | B | 0 | _ | C | 0
  28.  'سؤال 4 نقاط معيار
  29.  النتيجة (3) = A | 0 | _ | B | 0 | _ | C | 10
  31.  'سؤال 5 نقاط معيار
  32.  النتيجة (4) = A | 0 | _ | B | 0 | _ | C | 10
  34.  'أسئلة 6 معايير النتيجة
  35.  النتيجة (5) = A | 10 | _ | B | 0 | _ | C | 0
  37.  'السؤال 7 معايير النتيجة
  38.  النتيجة (6) = A | 0 | _ | B | 10 | _ | C | 0
  40.  'سؤال 8 معايير النتيجة
  41.  النتيجة (7) = A | 10 | _ | B | 0 | _ | C | 0
  43.  'سؤال 9 معايير النتيجة
  44.  النتيجة (8) = A | 0 | _ | B | 0 | _ | C | 10
  46.  'أسئلة العاشرة معايير النتيجة
  47.  النتيجة (9) = A | 0 | _ | B | 10 | _ | C | 0
  49.  "المعايير" السؤال 11
  50.  'النتيجة (10) = a | 0 | _ | b | 0 | _ | c | 10
  51.  '
  52.  "المعايير" السؤال 12 السؤال
  53.  'النتيجة (11) = a | 0 | _ | b | 10 | _ | c | 0
  54.  '
  55.  "المعايير 13 السؤال
  56.  'النتيجة (12) = A | 10 | _ | B | 0 | _ | C | 0
  57.  '
  58.  "معايير التسجيل الرابعة عشرة
  59.  'النتيجة (13) = A | 0 | _ | B | 10 | _ | C | 0
  60.  '
  61.  '' QUEST 15th SCORE STREERIA
  62.  'النتيجة (14) = A | 0 | _ | B | 0 | _ | C | 10
  65.  ifucase (request.servervariables (request_method)) = posthen
  66.  callchk_post ()
  67.  Dimi ، Total ، Selitem ، Summary ، Strdes ، Strout
  68.  المجموع = 0
  71.  fori = 0to (العناصر 1)
  72.  selval = trim (request.form (سؤال & i+1))
  73.  arritem = split (النتيجة (i) ، | _ |)
  75.  forj = 0toubound (arritem)
  77.  ifselval = split (arritem (j) ، |) (0) ثم
  79.  TOTALTOTAL = TOTAL+CINT (Split (ARRITEM (J) ، |) (1))
  80.  seletemseletem = seleitem & <li> سؤال & i+1 &: & selval & </li> & vbcrlf
  81.  Endif
  82.  التالي
  83.  التالي
  84.  ملخص = formatpercent (Total/TotalsCore)
  86.  if (Total/TotalsCore)> = 0.6then
  87.  strdes = الانتظام والملخص و <br> لقد مررت بها بنجاح
  88.  آخر
  89.  strdes = النتيجة والملخص و <br> للأسف ، لم يصل معدل الدقة الخاص بك إلى 60 ٪. من فضلك حاول مرة أخرى! <br> <hhref = test.asp '> العودة إلى صفحة Q & A عبر الإنترنت >> </a>
  90.  Endif
  92.  strout = youhaveselected thiseseitemsbelow: <br> & selitem & <br> total: & total & <br> دقتك هي: وملخص
  93.  stroutstrout = strout & <br> & strdes
  95.  str_sql = selectCount (1) fromuserInFoWherMemberId = '& Session (id) &'
  96.  rowcount = dataconn.execute (str_sql) (0)
  98.  ifrowCount> 0then'update المعلومات الشخصية إذا كانت موجودة
  99.  str_sql = updateUserInfo
  100.  str_sqlstr_sql = str_sql & setResult = '& formatnumber (total/totalscore ، 2) &'
  101.  str_sqlstr_sql = str_sql & ، ip = '& get_userip () &'
  102.  str_sqlstr_sql = str_sql & ، addtime = getDate ()
  103.  str_sqlstr_sql = str_sql & wherememberid = '& session (id) &'
  104.  آخر
  105.  str_sql = insertintouserInfo (النتيجة ، العضو ، العضو ، IP)
  106.  str_sqlstr_sql = str_sql & dase ('& formatnumber (total/totalscore ، 2) &' & session (id)
  107.  Endif
  108.  dataconn.execute (str_sql)
  109.  Endif
  112.  ٪>
  113.  <! doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // endttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
  114.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  115.  <head>
  116.  <metahttp-equiv = content-typecontent = text/html ؛ charset = gb2312/>
  117.  <title> نتائج اختبار الأسئلة والأجوبة عبر الإنترنت </title>
  118.  <Tyletype = text/css>
  119.  <!-
  120.  جسم{
  121.  حجم الخط: 12 بكسل ؛
  122.  اللون:#0066ff ؛
  123.  }
  124.  مدخل{
  125.  الحدود: 1pxSolid#ffffff ؛
  126.  لون الخلفية: #EEEE ؛
  127.  اليسار: 1 بكسل ؛
  128.  أعلى: 1 بكسل ؛
  129.  اليمين: 1px ؛
  130.  القاع: 1 بكسل ؛
  131.  مقطع: Rect (10px ، 10px ، 10px ، 10px) ؛
  132.  الهامش: 1px ؛
  133.  الحشو: 1px ؛
  134.  }
  136.  ->
  137.  </style>
  138.  </head>
  140.  <body>
  141.  <٪ استجابة. write (strout) ٪>
  142.  </body>
  143.  </html>

مشاركة: نصائح لكائنات خطأ ASP
في VBScript ، هناك عبارة عن خطأ في السيرة الذاتية التي تتسبب في تجاهل مترجم البرنامج النصي لتجاهل أخطاء وقت التشغيل ومتابعة تنفيذ رمز البرنامج النصي. ثم يمكن للنص التحقق من قيمة خاصية err.number لتحديد ما إذا كان حدث خطأ. في حالة حدوث خطأ ، يتم إرجاع قيمة غير صفرية. في ASP 3.0 ، يمكنك أيضًا استخدام Error Goto 0 "للعودة إلى" الافتراضي "

مقالات ذات صلة