首頁>網絡編程教程>ASP教程

ASP在線問答的實例代碼

作者：Eve Cole 更新時間：2025-05-07 07:16:01

推薦：ASP利用XML打包指定文件夾並上傳到WEB目錄中，自行解包
'======================== '文件１ 'Pack.asp '更改Cpathname 這一變量'將在當前目錄生成一個DATA.XML文件'將DATA.XML及文件２（install.asp)上傳至ＷＥＢ根目錄'運行install.asp解包'手動刪除以上兩個文件'======================== % Option Explic

ASP在線問答的實例代碼首先，是HTML文件，為Test.asp，代碼如下：

  1.  <%@LANGUAGE=VBSCRIPTCODEPAGE=936%>
  2.  <%
  3.  ifsession(username)=then
  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.  body{}{
  16.  font-size:12px;
  17.  color:#0066FF;
  18.  }
  19.  input{}{
  20.  border:1pxsolid#FFFFFF;
  21.  background-color:#EEEEEE;
  22.  left:1px;
  23.  top:1px;
  24.  right:1px;
  25.  bottom:1px;
  26.  clip:rect(10px,10px,10px,10px);
  27.  margin:1px;
  28.  padding:1px;
  29.  }
  31.  -->
  32.  </style>
  33.  </head>
  34.  <scriptlanguage=javascript>
  35.  <!--
  36.  functionchkForm()
  37.  {
  38.  vare=document.frm;
  39.  varit,flag,i;
  40.  flag=false;
  43.  for(i=1;i<=10;i++)
  44.  {
  45.  varit=eval(e.Question+i);
  46.  varitLen=eval(e.Question+i+.length);
  48.  for(varj=0;j<itLen;j++)
  49.  {
  50.  varitChk=eval(e.Question+i+[+j+].checked);
  52.  if(itChk)
  53.  {
  54.  flag=true;
  55.  break;
  56.  }
  58.  if(!itChk&&j==itLen-1)
  59.  {
  60.  flag=false;
  61.  break;
  62.  }
  63.  }
  65.  if(!flag)
  66.  {
  67.  alert(請選擇第+i+題答案);
  68.  returnfalse;
  69.  }
  71.  }
  72.  if(!flag)
  73.  {
  74.  alert(請選擇第+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.</label>
  90.  Lan<br/>
  91.  <label>
  92.  <inputtype=radioname=Question1value=B/>
  93.  B.</label>
  94.  Jenny<br/><label>
  95.  <inputtype=radioname=Question1value=C/>
  96.  C.</label>Lucy</p>
  97.  <p>2.音樂往事中酒吧的名字是什麼？ <br/>
  98.  <label>
  99.  <inputtype=radioname=Question2value=A/>
  100.  A.</label>
  101. 遺忘<br/>
  102.  <label>
  103.  <inputtype=radioname=Question2value=B/>
  104.  B.</label>
  105.  NV<br/>
  106.  <label>
  107.  <inputtype=radioname=Question2value=C/>
  108.  C.</label>
  109. 如影隨形</p>
  110.  <p>3.遺忘黯淡中的照片牆上有什麼照片？ <br/>
  111.  <label>
  112.  <inputtype=radioname=Question3value=A/>
  113.  A.</label>
  114. 從前的女主人公<br/>
  115.  <label>
  116.  <inputtype=radioname=Question3value=B/>
  117.  B.</label>
  118. 海邊的風景<br/>
  119.  <label>
  120.  <inputtype=radioname=Question3value=C/>
  121.  C.</label>
  122. 酒吧外景</p>
  123.  <p>4.音樂往事中女主人公喝的酒叫什麼名字？ <br/>
  124.  <label>
  125.  <inputtype=radioname=Question4value=A/>
  126.  A.</label>
  127. 紅粉佳人<br/>
  128.  <label>
  129.  <inputtype=radioname=Question4value=B/>
  130.  B.</label>
  131. 七色彩虹<br/>
  132.  <label>
  133.  <inputtype=radioname=Question4value=C/>
  134.  C.</label>
  135. 蔚藍海岸</p>
  136.  <p>5.遺忘黯淡中NewVision雜誌的封面人物是誰？ <br/>
  137.  <label>
  138.  <inputtype=radioname=Question5value=A/>
  139.  A.</label>玄斌<br/>
  140.  <label>
  141.  <inputtype=radioname=Question5value=B/>
  142.  B.</label>Rain<br/>
  143.  <label>
  144.  <inputtype=radioname=Question5value=C/>
  145.  C.</label>張東健</p>
  146.  <p>6.音樂往事中的唱片名字是什麼？ <br/>
  147.  <label>
  148.  <inputtype=radioname=Question6value=A/>
  149.  A.</label>
  150.  BEWITCHED<br/>
  151.  <label>
  152.  <inputtype=radioname=Question6value=B/>
  153.  B.</label>
  154.  WONDERFUL<br/>
  155.  <label>
  156.  <inputtype=radioname=Question6value=C/>
  157.  C.</label>
  158.  BEAUTIFUL</p>
  159.  <p>7.音樂往事中的酒吧牆壁上寫著什麼？ <br/>
  160.  <label>
  161.  <inputtype=radioname=Question7value=A/>
  162.  A.</label>
  163.  Loveisbeautiful<br/>
  164.  <label><inputtype=radioname=Question7value=B/>
  165.  B.</label>
  166.  Truthisbeautiful<br/>
  167.  <label><inputtype=radioname=Question7value=C/>
  168.  C.</label>
  169.  Smileisbeautiful</p>
  170.  <p>8.音樂往事中的吧台上擺放著什麼？ <br/>
  171.  <label><inputtype=radioname=Question8value=A/>
  172.  A.</label>
  173. 留聲機<br/>
  174.  <label><inputtype=radioname=Question8value=B/>
  175.  B.</label>
  176. 收音機<br/>
  177.  <label><inputtype=radioname=Question8value=C/>
  178.  C.</label>
  179. 黑膠唱片</p>
  180.  <p>9.音樂往事中男主人公的喜好是？ <br/>
  181.  <label><inputtype=radioname=Question9value=A/>
  182.  A.</label>
  183. 電影<br/>
  184.  <label><inputtype=radioname=Question9value=B/>
  185.  B.</label>
  186. 攝影<br/>
  187.  <label><inputtype=radioname=Question9value=C/>
  188.  C.</label>
  189. 煙草和音樂</p>
  190.  <p>10.凝固精彩中的主人公愛好什麼？ <br/>
  191.  <label><inputtype=radioname=Question10value=A/>
  192.  A.</label>
  193. 旅遊<br/>
  194.  <label><inputtype=radioname=Question10value=B/>
  195.  B.</label>
  196. 攝影<br/>
  197.  <label><inputtype=radioname=Question10value=C/>
  198.  C.</label>
  199. 上網</p>
  200.  <p><br/>
  201.  <inputtype=submitname=Submitvalue=提交/>
  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.  Response.CacheControl=no-cache
  6.  Response.Expires=-1
  7.  Response.ExpiresAbsolute=now()-1
  9.  ifsession(username)=then
  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. Result(0)=A|10|_|B|0|_|C|0
  22.  '第二題得分標準
  23. Result(1)=A|0|_|B|10|_|C|0
  25.  '第三題得分標準
  26. Result(2)=A|10|_|B|0|_|C|0
  28.  '第四題得分標準
  29. Result(3)=A|0|_|B|0|_|C|10
  31.  '第五題得分標準
  32. Result(4)=A|0|_|B|0|_|C|10
  34.  '第六題得分標準
  35. Result(5)=A|10|_|B|0|_|C|0
  37.  '第七題得分標準
  38. Result(6)=A|0|_|B|10|_|C|0
  40.  '第八題得分標準
  41. Result(7)=A|10|_|B|0|_|C|0
  43.  '第九題得分標準
  44. Result(8)=A|0|_|B|0|_|C|10
  46.  '第十題得分標準
  47. Result(9)=A|0|_|B|10|_|C|0
  49.  ''第十一題得分標準
  50. 'Result(10)=A|0|_|B|0|_|C|10
  51.  '
  52.  ''第十二題得分標準
  53. 'Result(11)=A|0|_|B|10|_|C|0
  54.  '
  55.  ''第十三題得分標準
  56. 'Result(12)=A|10|_|B|0|_|C|0
  57.  '
  58.  ''第十四題得分標準
  59. 'Result(13)=A|0|_|B|10|_|C|0
  60.  '
  61.  ''第十五題得分標準
  62. 'Result(14)=A|0|_|B|0|_|C|10
  65.  IfUCase(Request.ServerVariables(REQUEST_METHOD))=POSTThen
  66.  CallChk_Post()
  67.  Dimi,total,selItem,summary,strDes,strOut
  68.  total=0
  71.  Fori=0To(ITEMS-1)
  72.  selVal=Trim(Request.Form(Question&i+1))
  73.  arrItem=Split(Result(i),|_|)
  75.  Forj=0ToUbound(arrItem)
  77.  IfselVal=Split(arrItem(j),|)(0)Then
  79.  totaltotal=total+CInt(Split(arrItem(j),|)(1))
  80.  selItemselItem=selItem&<li>Question&i+1&:&selVal&</li>&vbCrLf
  81.  EndIf
  82.  Next
  83.  Next
  84.  summary=FormatPercent(total/TOTALSCORE)
  86.  If(total/TOTALSCORE)>=0.6Then
  87.  strDes=正確率&summary&<br>您已經順利通過吧
  88. Else
  89.  strDes=正確率&summary&<br>很遺憾，您正確率還沒有達到60%。請再來試試吧！ <br><ahref=Test.asp'>回在線問答頁>></a>
  90.  EndIf
  92.  strOut=YouhaveSelectedtheseitemsbelow:<br>&selItem&<br>Total:&total&<br>您的正確率為：&summary
  93.  strOutstrOut=strOut&<br>&strDes
  95.  str_sql=SELECTCount(1)FROMUserInfoWHEREMemberId='&Session(Id)&'
  96.  rowCount=DataConn.execute(str_sql)(0)
  98.  IfrowCount>0Then'如果存在就更新個人信息
  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.  Else
  105.  str_sql=INSERTINTOUserInfo(Result,MemberId,MemberName,ip)
  106.  str_sqlstr_sql=str_sql&VALUES('&FormatNumber(total/TOTALSCORE,2)&','&Session(Id)&','&Session(Username)&','&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.  body{
  121.  font-size:12px;
  122.  color:#0066FF;
  123.  }
  124.  input{
  125.  border:1pxsolid#FFFFFF;
  126.  background-color:#EEEEEE;
  127.  left:1px;
  128.  top:1px;
  129.  right:1px;
  130.  bottom:1px;
  131.  clip:rect(10px,10px,10px,10px);
  132.  margin:1px;
  133.  padding:1px;
  134.  }
  136.  -->
  137.  </style>
  138.  </head>
  140.  <body>
  141.  <%Response.Write(strOut)%>
  142.  </body>
  143.  </html>

分享：ASP Error對象的技巧
在VBScript中，有一個On Error Resume Next語句，它使腳本解釋器忽略運行期錯誤並繼續腳本代碼的執行。接著該腳本可以檢查Err.Number屬性的值，判別是否出現了錯誤。如果出現錯誤，返回一個非零值。在ASP 3.0中，也可以使用On Error Goto 0“轉回到”缺省的

相關文章