首页>网络编程教程>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“转回到”缺省的

相关文章