หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา ASP

ASP คำถามออนไลน์และคำตอบรหัสตัวอย่าง

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-05-07 07:16:01

แนะนำ: ASP ใช้ XML เพื่อจัดทำโฟลเดอร์ที่ระบุและอัปโหลดไปยังเว็บไดเรกทอรี
'================================' ไฟล์ 1 'Pack.asp' เปลี่ยน CPathName ตัวแปรนี้ 'จะสร้างไฟล์ data.xml ในไดเรกทอรีไดเรกทอรีปัจจุบัน ไฟล์ '================================== % ตัวเลือก Explic Explic

รหัสตัวอย่างสำหรับคำถามและคำตอบออนไลน์ของ ASP คือไฟล์ HTML ซึ่งเป็น test.asp และรหัสมีดังนี้:

  1.  <%@language = vbscriptCodePage = 936%>
  2.  -
  3.  ifsession (ชื่อผู้ใช้) = จากนั้น
  4.  Response.write (<script> Alert ('โปรดเข้าสู่ระบบจากนั้นทำการดำเนินการ!'); window.location = 'login.asp? reurl = test.asp'; </script>)
  5.  Response.end ()
  6.  endif
  7.  -
  8.  <! doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // enhttp: //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.  <styleType = text/css>
  14.  -
  15.  ร่างกาย{}{
  16.  ขนาดตัวอักษร: 12px;
  17.  สี:#0066ff;
  18.  -
  19.  ป้อนข้อมูล{}{
  20.  ชายแดน: 1pxsolid#ffffff;
  21.  พื้นหลังสี: #eeeeee;
  22.  ซ้าย: 1px;
  23.  ด้านบน: 1px;
  24.  ขวา: 1px;
  25.  ด้านล่าง: 1px;
  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, Flag, I;
  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.  returntrue;
  79.  -
  80.  -
  81.  </script>
  82.  <body>
  83.  <div> <strong> สถานการณ์คำถามและคำตอบ </strong> </div>
  84.  <formName = frmaction = test_do.aspmethod = postonsubmit = return (chkform ());>
  85.  <p> <br/>
  86.  1. นางเอกในการลืมและลงชื่ออะไร? <br/>
  87.  <label>
  88.  <inputType = radioname = question1Value = a/>
  89.  a. </lable>
  90.  lan <br/>
  91.  <label>
  92.  <inputType = radioname = question1Value = b/>
  93.  b. </lable>
  94.  Jenny <br/> <baild>
  95.  <inputType = radioname = question1Value = c/>
  96.  c. </lable> Lucy </p>
  97.  <p> 2. ชื่อของบาร์ในอดีตเพลงคืออะไร? <br/>
  98.  <label>
  99.  <inputType = radioname = question2Value = a/>
  100.  a. </lable>
  101.  ลืมไปแล้ว <br/>
  102.  <label>
  103.  <inputType = radioname = question2Value = b/>
  104.  b. </lable>
  105.  NV <br/>
  106.  <label>
  107.  <inputType = radioname = question2Value = c/>
  108.  c. </lable>
  109.  เหมือนเงา </p>
  110.  <p> 3. มีรูปถ่ายอะไรบ้างบนผนังของภาพถ่ายที่ถูกลืม? <br/>
  111.  <label>
  112.  <inputType = radioname = question3Value = a/>
  113.  a. </lable>
  114.  นางเอกในอดีต <br/>
  115.  <label>
  116.  <inputType = radioname = question3Value = b/>
  117.  b. </lable>
  118.  ทิวทัศน์ริมทะเล <br/>
  119.  <label>
  120.  <inputType = radioname = question3Value = c/>
  121.  c. </lable>
  122.  บาร์ด้านนอก </p>
  123.  <p> 4. ชื่อไวน์ที่นางเอกเครื่องดื่มในเพลงที่ผ่านมาคืออะไร? <br/>
  124.  <label>
  125.  <inputType = radioname = question4Value = a/>
  126.  a. </lable>
  127.  ความงามสีชมพูแดง <br/>
  128.  <label>
  129.  <inputType = radioname = question4Value = b/>
  130.  b. </lable>
  131.  รุ้งเจ็ดสี <br/>
  132.  <label>
  133.  <inputType = radioname = question4Value = c/>
  134.  c. </lable>
  135.  Costa del Azure </p>
  136.  <p> 5. ใครเป็นตัวละครปกของนิตยสาร Newvision ในการหลงลืม? <br/>
  137.  <label>
  138.  <inputType = radioname = quustion5Value = a/>
  139.  a. </lable> Xuanbin <br/>
  140.  <label>
  141.  <inputType = radioname = quustion5Value = b/>
  142.  b. </lable> ฝน <br/>
  143.  <label>
  144.  <inputType = radioname = quustion5Value = c/>
  145.  c. </lable> Zhang Dongjian </p>
  146.  <p> 6. ชื่อของบันทึกในอดีตของเพลงคืออะไร? <br/>
  147.  <label>
  148.  <inputType = radioname = question6Value = a/>
  149.  a. </lable>
  150.  Bewitched <br/>
  151.  <label>
  152.  <inputType = radioname = question6Value = b/>
  153.  b. </lable>
  154.  ยอดเยี่ยม <br/>
  155.  <label>
  156.  <inputType = radioname = question6Value = c/>
  157.  c. </lable>
  158.  สวยงาม </p>
  159.  <p> 7. มีอะไรเขียนบนผนังบาร์ในอดีตของดนตรี? <br/>
  160.  <label>
  161.  <inputType = radioname = question7Value = a/>
  162.  a. </lable>
  163.  loveisbeautiful <br/>
  164.  <label> <putType = radioname = question7Value = b/>
  165.  b. </lable>
  166.  ความจริงที่สวยงาม <br/>
  167.  <label> <putType = radioname = question7Value = c/>
  168.  c. </lable>
  169.  Smileisbeautiful </p>
  170.  <p> 8. วางอะไรไว้ในบาร์ในอดีตของดนตรี? <br/>
  171.  <label> <putType = radioname = question8Value = a/>
  172.  a. </lable>
  173.  gramophone <br/>
  174.  <label> <putType = radioname = question8Value = b/>
  175.  b. </lable>
  176.  วิทยุ <br/>
  177.  <label> <putType = radioname = question8Value = c/>
  178.  c. </lable>
  179.  บันทึกไวนิล </p>
  180.  <p> 9. ความชอบของตัวเอกชายในเพลงที่ผ่านมาคืออะไร? <br/>
  181.  <label> <putType = radioname = quustion9Value = a/>
  182.  a. </lable>
  183.  ภาพยนตร์ <br/>
  184.  <label> <putType = radioname = quustion9Value = b/>
  185.  b. </lable>
  186.  การถ่ายภาพ <br/>
  187.  <label> <putType = radioname = quustion9Value = c/>
  188.  c. </lable>
  189.  ยาสูบและเพลง </p>
  190.  <p> 10. งานอดิเรกของตัวเอกในคูลดาวน์และความมหัศจรรย์คืออะไร? <br/>
  191.  <label> <putType = radioname = question10Value = a/>
  192.  a. </lable>
  193.  เดินทาง <br/>
  194.  <label> <putType = radioname = question10Value = b/>
  195.  b. </lable>
  196.  การถ่ายภาพ <br/>
  197.  <label> <putType = radioname = question10Value = c/>
  198.  c. </lable>
  199.  ออนไลน์ </p>
  200.  <p> <br/>
  201.  <inputType = submitName = submentValue = submit/ subment/
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

ต่อไปนี้เป็นรหัสพื้นหลัง test_do.asp รหัสมีดังนี้:

  1.  <%@language = vbscriptCodePage = 936%>
  2.  <!-#includit file = conn.asp->
  3.  <!-#includefile = function.asp->
  4.  -
  5.  Response.cacheControl = ไม่มีแคช
  6.  Response.expires = -1
  7.  Response.expiresabsolute = Now ()-1
  9.  ifsession (ชื่อผู้ใช้) = จากนั้น
  10.  Response.write (<script> Alert ('โปรดเข้าสู่ระบบจากนั้นใช้งาน!'); window.location = 'login.asp? reurl = nv_scene_test.asp'; </script>)
  11.  Response.end ()
  12.  endif
  14.  'คะแนนสูงสุดสำหรับตัวเลือกคำจำกัดความคือคะแนนรวม
  15.  consttotalscore = 100
  16.  constitems = 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.  'คำถามที่ 10 เกณฑ์คะแนน
  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.  '' คำถามที่ 14 เกณฑ์การให้คะแนน
  59.  'ผลลัพธ์ (13) = a | 0 | _ | b | 10 | _ | c | 0
  60.  -
  61.  '' คำถามที่ 15 เกณฑ์คะแนน
  62.  'ผลลัพธ์ (14) = a | 0 | _ | b | 0 | _ | c | 10
  65.  ifucase (request.serverVariables (request_method)) = postthen
  66.  callchk_post ()
  67.  dimi, total, selitem, สรุป, 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 (แยก (arritem (j), |) (1))
  80.  selitemselitem = selitem & <li> คำถาม & i+1 &: & selval & </li> & vbcrlf
  81.  endif
  82.  ต่อไป
  83.  ต่อไป
  84.  summary = formatpercent (total/totalscore)
  86.  if (total/totalscore)> = 0.6 จากนั้น
  87.  strdes = ความสม่ำเสมอและสรุป & <br> คุณผ่านไปแล้วสำเร็จแล้ว
  88.  อื่น
  89.  strdes = ผลลัพธ์ & สรุป & <br> น่าเศร้าอัตราความแม่นยำของคุณยังไม่ถึง 60% โปรดลองอีกครั้ง! <br> <ahref = test.asp '> กลับไปที่หน้าถาม & ตอบออนไลน์ >> </a>
  90.  endif
  92.  strout = youhaveselectedtheseitemsbelow: <br> & selitem & <br> ทั้งหมด: & ทั้งหมด & <br> ความแม่นยำของคุณคือ: & สรุป
  93.  stroutstrout = strout & <br> & strdes
  95.  str_sql = selectcount (1) fromuserinfowherememberid = '& เซสชัน (id) &'
  96.  rowcount = dataconn.execute (str_sql) (0)
  98.  ifrowcount> 0 แล้วข้อมูลส่วนบุคคลหากมีอยู่จริง
  99.  str_sql = updateUserInfo
  100.  str_sqlstr_sql = str_sql & setResult = '& formatNumber (ทั้งหมด/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 = '& เซสชัน (id) &'
  104.  อื่น
  105.  str_sql = insertintouserInfo (ผลลัพธ์, memberId, memberName, IP)
  106.  str_sqlstr_sql = str_sql & ค่า ('& formatNumber (ทั้งหมด/totalsCore, 2) &', '& เซสชัน (id) &', '& เซสชัน (ชื่อผู้ใช้) &', '& get_userip () &')
  107.  endif
  108.  dataconn.execute (str_sql)
  109.  endif
  112.  -
  113.  <! doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // enhttp: //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.  <styleType = text/css>
  119.  -
  120.  ร่างกาย{
  121.  ขนาดตัวอักษร: 12px;
  122.  สี:#0066ff;
  123.  -
  124.  ป้อนข้อมูล{
  125.  ชายแดน: 1pxsolid#ffffff;
  126.  พื้นหลังสี: #eeeeee;
  127.  ซ้าย: 1px;
  128.  ด้านบน: 1px;
  129.  ขวา: 1px;
  130.  ด้านล่าง: 1px;
  131.  คลิป: rect (10px, 10px, 10px, 10px);
  132.  มาร์จิ้น: 1px;
  133.  ช่องว่าง: 1px;
  134.  -
  136.  -
  137.  </style>
  138.  </head>
  140.  <body>
  141.  <%response.write (strout)%>
  142.  </body>
  143.  </html>

แบ่งปัน: เคล็ดลับสำหรับวัตถุข้อผิดพลาด ASP
ใน VBScript มีข้อผิดพลาดในการดำเนินการต่อคำสั่งถัดไปที่ทำให้สคริปต์ล่ามเพื่อละเว้นข้อผิดพลาดรันไทม์และดำเนินการต่อของรหัสสคริปต์ต่อไป จากนั้นสคริปต์สามารถตรวจสอบค่าของคุณสมบัติ err.number เพื่อตรวจสอบว่าเกิดข้อผิดพลาดหรือไม่ หากเกิดข้อผิดพลาดค่าที่ไม่เป็นศูนย์จะถูกส่งคืน ใน ASP 3.0 คุณยังสามารถใช้ข้อผิดพลาด GOTO 0 ถึง "กลับไปที่" ค่าเริ่มต้น

บทความที่เกี่ยวข้อง