Home>Network programming tutorial>ASP tutorial

ASP online question and answer example code

Author：Eve Cole Update Time：2025-05-07 07:16:01

Recommended: ASP uses XML to package the specified folder and upload it to the WEB directory, unpack it by itself
'============================== 'File 1 'Pack.asp 'Change Cpathname This variable' will generate a DATA.XML file in the current directory' Upload DATA.XML and file 2 (install.asp) to the WEB root directory'Run install.asp unpacking' Manually delete the above two files'=============================== % Option Explic

The example code for ASP online Q&A is the HTML file, which is Test.asp, and the code is as follows:

  1.  <%@LANGUAGE=VBSCRIPTCODEPAGE=936%>
  2.  <%
  3.  ifsession(username)=then
  4.  Response.Write(<script>alert('Please log in and then perform operations!');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>Scenario Q&A</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:#EEEEE;
  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.  variant=eval(e.Question+i);
  46.  variantLen=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 (please select the answer to question +i+);
  68.  returnfalse;
  69.  }
  71.  }
  72.  if(!flag)
  73.  {
  74.  alert (please select the answer to question +i+);
  75.  eval(e.Question+i+.focus());
  76.  returnfalse;
  77.  }
  78.  returntrue;
  79.  }
  80.  -->
  81.  </script>
  82.  <body>
  83.  <div><strong>Scenario Q&A</strong></div>
  84.  <formname=frmaction=Test_do.aspmethod=postonsubmit=return(chkForm());>
  85.  <p><br/>
  86.  1. What is the name of the heroine in Forgotten and Down? <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.What is the name of the bar in the past of music? <br/>
  98.  <label>
  99.  <inputtype=radioname=Question2value=A/>
  100.  A.</label>
  101.  Forgotten<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.  Like a shadow</p>
  110.  <p>3. What photos are there on the wall of the forgotten photo? <br/>
  111.  <label>
  112.  <inputtype=radioname=Question3value=A/>
  113.  A.</label>
  114.  The heroine of the past<br/>
  115.  <label>
  116.  <inputtype=radioname=Question3value=B/>
  117.  B.</label>
  118.  The scenery by the sea<br/>
  119.  <label>
  120.  <inputtype=radioname=Question3value=C/>
  121.  C.</label>
  122.  Bar Exterior</p>
  123.  <p>4.What is the name of the wine the heroine drinks in the past music? <br/>
  124.  <label>
  125.  <inputtype=radioname=Question4value=A/>
  126.  A.</label>
  127.  Red pink beauty<br/>
  128.  <label>
  129.  <inputtype=radioname=Question4value=B/>
  130.  B.</label>
  131.  Seven-colored rainbow<br/>
  132.  <label>
  133.  <inputtype=radioname=Question4value=C/>
  134.  C.</label>
  135.  Costa del Azure</p>
  136.  <p>5.Who is the cover character of NewVision magazine in the Forgetfulness? <br/>
  137.  <label>
  138.  <inputtype=radioname=Question5value=A/>
  139.  A.</label>Xuanbin<br/>
  140.  <label>
  141.  <inputtype=radioname=Question5value=B/>
  142.  B.</label>Rain<br/>
  143.  <label>
  144.  <inputtype=radioname=Question5value=C/>
  145.  C.</label>Zhang Dongjian</p>
  146.  <p>6.What is the name of the record in the past of music? <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.What is written on the wall of the bar in the past of music? <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.What is placed on the bar in the past of music? <br/>
  171.  <label><inputtype=radioname=Question8value=A/>
  172.  A.</label>
  173.  Gramophone<br/>
  174.  <label><inputtype=radioname=Question8value=B/>
  175.  B.</label>
  176.  Radio<br/>
  177.  <label><inputtype=radioname=Question8value=C/>
  178.  C.</label>
  179.  Vinyl Records</p>
  180.  <p>9.What is the male protagonist’s preference in the past music? <br/>
  181.  <label><inputtype=radioname=Question9value=A/>
  182.  A.</label>
  183.  Movie<br/>
  184.  <label><inputtype=radioname=Question9value=B/>
  185.  B.</label>
  186.  Photography<br/>
  187.  <label><inputtype=radioname=Question9value=C/>
  188.  C.</label>
  189.  Tobacco and music</p>
  190.  <p>10. What is the protagonist's hobby in the cooldown and wonderfulness? <br/>
  191.  <label><inputtype=radioname=Question10value=A/>
  192.  A.</label>
  193.  Travel<br/>
  194.  <label><inputtype=radioname=Question10value=B/>
  195.  B.</label>
  196.  Photography<br/>
  197.  <label><inputtype=radioname=Question10value=C/>
  198.  C.</label>
  199.  Go online</p>
  200.  <p><br/>
  201.  <inputtype=submitname=Submitvalue=submit/
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

The following is the background code Test_do.asp, the code is as follows:

  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('Please log in and then operate it!');window.location='login.asp?reURL=Nv_Scene_Test.asp';</script>)
  11.  Response.End()
  12.  endif
  14.  'The highest score for the definition option is the total score
  15.  ConstTOTALSCORE=100
  16.  ConstITEMS=10
  17.  'Define option score
  18.  DimResult(9)
  19.  'The scoring criteria for the first question
  20.  Result(0)=A|10|_|B|0|_|C|0
  22.  'Score criteria for question 2
  23.  Result(1)=A|0|_|B|10|_|C|0
  25.  'The third question score criteria
  26.  Result(2)=A|10|_|B|0|_|C|0
  28.  'Question 4 Score Standard
  29.  Result(3)=A|0|_|B|0|_|C|10
  31.  'Question 5 Score Standard
  32.  Result(4)=A|0|_|B|0|_|C|10
  34.  'Question 6 Score criteria
  35.  Result(5)=A|10|_|B|0|_|C|0
  37.  'Question 7 Score criteria
  38.  Result(6)=A|0|_|B|10|_|C|0
  40.  'Question 8 Score criteria
  41.  Result(7)=A|10|_|B|0|_|C|0
  43.  'Question 9 Score criteria
  44.  Result(8)=A|0|_|B|0|_|C|10
  46.  'Question 10th Score Criteria
  47.  Result(9)=A|0|_|B|10|_|C|0
  49.  ''Question 11 Score Criteria
  50.  'Result(10)=A|0|_|B|0|_|C|10
  51.  '
  52.  ''Question 12 Score criteria
  53.  'Result(11)=A|0|_|B|10|_|C|0
  54.  '
  55.  ''Question 13 Score criteria
  56.  'Result(12)=A|10|_|B|0|_|C|0
  57.  '
  58.  ''Question 14th Scoring Criteria
  59.  'Result(13)=A|0|_|B|10|_|C|0
  60.  '
  61.  ''Question 15th Score Criteria
  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=Regularity&summary&<br>You have passed it successfully
  88.  Else
  89.  strDes=Result&Summary&<br>Sadly, your accuracy rate has not reached 60%. Please try again! <br><ahref=Test.asp'>Return to online Q&A page>></a>
  90.  EndIf
  92.  strOut=YouhaveSelectedtheseitemsbelow:<br>&selItem&<br>Total:&total&<br>Your accuracy is:&summary
  93.  strOutstrOut=strOut&<br>&strDes
  95.  str_sql=SELECTCount(1)FROMUserInfoWHEREMemberId='&Session(Id)&'
  96.  rowCount=DataConn.execute(str_sql)(0)
  98.  IfrowCount>0Then'Update personal information if it exists
  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>Online Q&A test results</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:#EEEEE;
  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>

Share: Tips for ASP Error Objects
In VBScript, there is an On Error Resume Next statement that causes the script interpreter to ignore runtime errors and continue execution of the script code. Then the script can check the value of the Err.Number property to determine whether an error occurred. If an error occurs, a non-zero value is returned. In ASP 3.0, you can also use On Error Goto 0 to "turn back to" the default

Related Articles