ASP在線問答的實例代碼_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：ASP利用XML打包指定文件夾 并上傳到WEB目錄中，自行解包
      '======================== '文件１ 'Pack.asp '更改 Cpathname 這一變量 '將在當前目錄生成一個DATA.XML文件 '將DATA.XML及文件２（install.asp)上傳至ＷＥＢ根目錄 '運行install.asp解包 '手動刪除以上兩個文件 '======================== % Option Explic
      ASP在線問答的實例代碼首先，是HTML文件，為Test.asp，代碼如下：
      1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
      2. <% 
      3. if session("username")="" then 
      4. Response.Write("<script>alert('請登陸后在進行操作！');window.location='login.asp?reURL=Test.asp';</script>") 
      5. Response.End() 
      6. end if 
      7. %> 
      8. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
      9. <html xmlns="http://www.w3.org/1999/xhtml"> 
      10. <head> 
      11. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
      12. <title>情景問答</title> 
      13. <style type="text/css"> 
      14. <!-- 
      15. body {}{ 
      16. font-size: 12px; 
      17. color: #0066FF; 
      18. } 
      19. input {}{ 
      20. border: 1px solid #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. } 
      30.  
      31. --> 
      32. </style> 
      33. </head> 
      34. <script language="javascript"> 
      35. <!-- 
      36. function chkForm() 
      37. { 
      38. var e = document.frm; 
      39. var it,flag,i; 
      40. flag = false; 
      41.  
      42.  
      43. for(i = 1;i<=10;i++) 
      44. { 
      45. var it = eval("e.Question"+i); 
      46. var itLen = eval("e.Question"+i+".length"); 
      47.  
      48. for(var j = 0;j<itLen;j++) 
      49. { 
      50. var itChk = eval("e.Question"+i+"["+j+"].checked"); 
      51.  
      52. if(itChk) 
      53. { 
      54. flag = true; 
      55. break; 
      56. } 
      57.  
      58. if(!itChk && j == itLen-1) 
      59. { 
      60. flag = false; 
      61. break; 
      62. } 
      63. } 
      64.  
      65. if(!flag) 
      66. { 
      67. alert("請選擇第"+i+"題答案"); 
      68. return false; 
      69. } 
      70.  
      71. } 
      72. if(!flag) 
      73. { 
      74. alert("請選擇第"+i+"題答案"); 
      75. eval("e.Question"+i+".focus()"); 
      76. return false; 
      77. } 
      78. return true; 
      79. } 
      80. --> 
      81. </script> 
      82. <body> 
      83. <div><strong>情景問答</strong></div> 
      84. <form name="frm" action="Test_do.asp" method="post" onsubmit="return(chkForm());"> 
      85. <p><br /> 
      86. 1. 遺忘黯淡中的女主角叫什么名字？<br /> 
      87. <label> 
      88. <input type="radio" name="Question1" value="A" /> 
      89. A.</label> 
      90. Lan<br /> 
      91. <label> 
      92. <input type="radio" name="Question1" value="B" /> 
      93. B.</label> 
      94. Jenny<br /> <label> 
      95. <input type="radio" name="Question1" value="C" /> 
      96. C.</label> Lucy</p> 
      97. <p>2. 音樂往事中酒吧的名字是什么？<br /> 
      98. <label> 
      99. <input type="radio" name="Question2" value="A" /> 
      100. A.</label> 
      101. 遺忘<br /> 
      102. <label> 
      103. <input type="radio" name="Question2" value="B" /> 
      104. B.</label> 
      105. NV<br /> 
      106. <label> 
      107. <input type="radio" name="Question2" value="C" /> 
      108. C.</label> 
      109. 如影隨形</p> 
      110. <p>3.遺忘黯淡中的照片墻上有什么照片？<br /> 
      111. <label> 
      112. <input type="radio" name="Question3" value="A" /> 
      113. A.</label> 
      114. 從前的女主人公<br /> 
      115. <label> 
      116. <input type="radio" name="Question3" value="B" /> 
      117. B.</label> 
      118. 海邊的風景<br /> 
      119. <label> 
      120. <input type="radio" name="Question3" value="C" /> 
      121. C.</label> 
      122. 酒吧外景</p> 
      123. <p>4. 音樂往事中女主人公喝的酒叫什么名字？<br /> 
      124. <label> 
      125. <input type="radio" name="Question4" value="A" /> 
      126. A.</label> 
      127. 紅粉佳人<br /> 
      128. <label> 
      129. <input type="radio" name="Question4" value="B" /> 
      130. B.</label> 
      131. 七色彩虹<br /> 
      132. <label> 
      133. <input type="radio" name="Question4" value="C" /> 
      134. C.</label> 
      135. 蔚藍海岸</p> 
      136. <p>5.遺忘黯淡中New Vision雜志的封面人物是誰？<br /> 
      137. <label> 
      138. <input type="radio" name="Question5" value="A" /> 
      139. A.</label> 玄斌<br /> 
      140. <label> 
      141. <input type="radio" name="Question5" value="B" /> 
      142. B.</label> Rain<br /> 
      143. <label> 
      144. <input type="radio" name="Question5" value="C" /> 
      145. C.</label> 張東健</p> 
      146. <p>6. 音樂往事中的唱片名字是什么？<br /> 
      147. <label> 
      148. <input type="radio" name="Question6" value="A" /> 
      149. A.</label> 
      150. BEWITCHED<br /> 
      151. <label> 
      152. <input type="radio" name="Question6" value="B" /> 
      153. B.</label> 
      154. WONDERFUL<br /> 
      155. <label> 
      156. <input type="radio" name="Question6" value="C" /> 
      157. C.</label> 
      158. BEAUTIFUL</p> 
      159. <p>7. 音樂往事中的酒吧墻壁上寫著什么？<br /> 
      160. <label> 
      161. <input type="radio" name="Question7" value="A" /> 
      162. A.</label> 
      163. Love is beautiful<br /> 
      164. <label><input type="radio" name="Question7" value="B" /> 
      165. B.</label> 
      166. Truth is beautiful<br /> 
      167. <label><input type="radio" name="Question7" value="C" /> 
      168. C.</label> 
      169. Smile is beautiful</p> 
      170. <p>8. 音樂往事中的吧臺上擺放著什么？<br /> 
      171. <label><input type="radio" name="Question8" value="A" /> 
      172. A.</label> 
      173. 留聲機<br /> 
      174. <label><input type="radio" name="Question8" value="B" /> 
      175. B.</label> 
      176. 收音機<br /> 
      177. <label><input type="radio" name="Question8" value="C" /> 
      178. C.</label> 
      179. 黑膠唱片</p> 
      180. <p>9. 音樂往事中男主人公的喜好是？<br /> 
      181. <label><input type="radio" name="Question9" value="A" /> 
      182. A.</label> 
      183. 電影<br /> 
      184. <label><input type="radio" name="Question9" value="B" /> 
      185. B.</label> 
      186. 攝影<br /> 
      187. <label><input type="radio" name="Question9" value="C" /> 
      188. C.</label> 
      189. 煙草和音樂</p> 
      190. <p>10.凝固精彩中的主人公愛好什么？<br /> 
      191. <label><input type="radio" name="Question10" value="A" /> 
      192. A.</label> 
      193. 旅游<br /> 
      194. <label><input type="radio" name="Question10" value="B" /> 
      195. B.</label> 
      196. 攝影<br /> 
      197. <label><input type="radio" name="Question10" value="C" /> 
      198. C.</label> 
      199. 上網</p> 
      200. <p><br /> 
      201. <input type="submit" name="Submit" value="提交" /> 
      202. <br /> 
      203. </p> 
      204. </form> 
      205. </body> 
      206. </html> 
       
      下面是后臺代碼Test_do.asp，代碼如下：
      1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
      2. <!-- #include file="conn.asp" --> 
      3. <!-- #include file="function.asp" --> 
      4. <% 
      5. Response.CacheControl = "no-cache"  
      6. Response.Expires = -1 
      7. Response.ExpiresAbsolute=now()-1 
      8.  
      9. if session("username")="" then 
      10. Response.Write("<script>alert('請登陸后在進行操作！');window.location='login.asp?reURL=Nv_Scene_Test.asp';</script>") 
      11. Response.End() 
      12. end if 
      13.  
      14. '定義選項的最高分即總分 
      15. Const TOTALSCORE = 100 
      16. Const ITEMS = 10 
      17. '定義選項分數 
      18. Dim Result(9) 
      19. '第一題得分標準 
      20. Result(0) = "A|10|_|B|0|_|C|0" 
      21.  
      22. '第二題得分標準 
      23. Result(1) = "A|0|_|B|10|_|C|0" 
      24.  
      25. '第三題得分標準 
      26. Result(2) = "A|10|_|B|0|_|C|0" 
      27.  
      28. '第四題得分標準 
      29. Result(3) = "A|0|_|B|0|_|C|10" 
      30.  
      31. '第五題得分標準 
      32. Result(4) = "A|0|_|B|0|_|C|10" 
      33.  
      34. '第六題得分標準 
      35. Result(5) = "A|10|_|B|0|_|C|0" 
      36.  
      37. '第七題得分標準 
      38. Result(6) = "A|0|_|B|10|_|C|0" 
      39.  
      40. '第八題得分標準 
      41. Result(7) = "A|10|_|B|0|_|C|0" 
      42.  
      43. '第九題得分標準 
      44. Result(8) = "A|0|_|B|0|_|C|10" 
      45.  
      46. '第十題得分標準 
      47. Result(9) = "A|0|_|B|10|_|C|0" 
      48.  
      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" 
      63.  
      64.  
      65. If UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then 
      66. Call Chk_Post() 
      67. Dim i,total,selItem,summary,strDes,strOut  
      68. total = 0 
      69.  
      70.  
      71. For i = 0 To (ITEMS-1) 
      72. selVal = Trim(Request.Form("Question"&i+1)) 
      73. arrItem = Split(Result(i),"|_|") 
      74.  
      75. For j = 0 To Ubound(arrItem) 
      76.  
      77. If selVal = Split(arrItem(j),"|")(0) Then 
      78.  
      79. totaltotal = total + CInt(Split(arrItem(j),"|")(1)) 
      80. selItemselItem = selItem &"<li>Question"&i+1&":"&selVal&"</li>"&vbCrLf 
      81. End If 
      82. Next 
      83. Next 
      84. summary = FormatPercent(total/TOTALSCORE) 
      85.  
      86. If (total/TOTALSCORE)>=0.6 Then 
      87. strDes = "正確率 "&summary&"<br>您已經順利通過吧" 
      88. Else 
      89. strDes = "正確率 "&summary&"<br>很遺憾，您正確率還沒有達到60%。請再來試試吧！<br><a href=Test.asp'>回在線問答頁>></a>" 
      90. End If 
      91.  
      92. strOut = "You have Selected these items below:<br>"&selItem&"<br>Total:"&total&"<br>您的正確率為："&summary 
      93. strOutstrOut = strOut &"<br>"&strDes 
      94.  
      95. str_sql = "SELECT Count(1) FROM UserInfo WHERE MemberId='"&Session("Id")&"'" 
      96. rowCount = DataConn.execute(str_sql)(0) 
      97.  
      98. If rowCount > 0 Then'如果存在就更新個人信息 
      99. str_sql = "UPDATE UserInfo " 
      100. str_sqlstr_sql = str_sql &" SET Result = '"&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 &" WHERE MemberID= '"&Session("Id")&"'" 
      104. Else 
      105. str_sql = "INSERT INTO UserInfo( Result,MemberId,MemberName,ip) " 
      106. str_sqlstr_sql = str_sql &" VALUES('"& FormatNumber(total/TOTALSCORE,2)&"','"&Session("Id")&"','"&Session("Username")&"','"&Get_UserIp()&"')" 
      107. End If 
      108. DataConn.execute(str_sql) 
      109. End If 
      110.  
      111.  
      112. %> 
      113. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
      114. <html xmlns="http://www.w3.org/1999/xhtml"> 
      115. <head> 
      116. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
      117. <title>在線問答測試結果</title> 
      118. <style type="text/css"> 
      119. <!-- 
      120. body { 
      121. font-size: 12px; 
      122. color: #0066FF; 
      123. } 
      124. input { 
      125. border: 1px solid #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. } 
      135.  
      136. --> 
      137. </style> 
      138. </head> 
      139.  
      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“轉回到”缺省的
      


      

      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2012-06-11


      


      



      


      



      相關ASP教程：