ホーム>ネットワークプログラミングチュートリアル>ASP チュートリアル

ASPオンライン質問と回答の例コード

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

推奨：ASPはXMLを使用して指定されたフォルダーをパッケージ化し、Webディレクトリにアップロードし、単独で開梱します
'============================== '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' and manually delete the above twoファイル '=============================オプション説明

ASPオンラインQ＆Aの例のコードはHTMLファイルであり、test.aspであり、コードは次のとおりです。

  1.  <％@言語= vbscriptcodepage = 936％>
  2.  <％
  3.  ifsession（username）= then
  4.  respons.write（<script> alert（ 'ログインしてから操作を実行してください！'）; window.location = 'login.asp？reurl = test.asp'; </script>）
  5.  Response.End（）
  6.  endif
  7.  ％>
  8.  <！doctypehtmlpublic  -  // w3c // dtdxhtml1.0transitional // enttp：//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>シナリオQ＆A </title>
  13.  <styletype = text/css>
  14.  <！ - 
  15. 体{}{
  16. フォントサイズ：12px;
  17. 色：＃0066ff;
  18.  }
  19. 入力{}{
  20. 境界線：1pxSolid＃ffffff;
  21. バックグラウンドカラー：#eeeee;
  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.  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+]。チェック）;
  52.  if（itchk）
  53.  {
  54.  flag = true;
  55. 壊す;
  56.  }
  58.  if（！itchk && j == itlen-1）
  59.  {
  60.  flag = false;
  61. 壊す;
  62.  }
  63.  }
  65.  if（！flag）
  66.  {
  67. アラート（質問 +i +への回答を選択してください）;
  68.  ReturnFalse;
  69.  }
  71.  }
  72.  if（！flag）
  73.  {
  74. アラート（質問 +i +への回答を選択してください）;
  75.  eval（e.question+i+.focus（））;
  76.  ReturnFalse;
  77.  }
  78.  returntrue;
  79.  }
  80.  - >
  81.  </script>
  82.  <body>
  83.  <div> <strong>シナリオQ＆A </strong> </div>
  84.  <formname = frmaction = test_do.aspmethod = posponsubmit = 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. ジェニー<br/> <label>
  95.  <inputtype = radioname = question1value = c/>
  96.  c。</label>ルーシー</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.  7色の虹<br/>
  132.  <label>
  133.  <inputtype = radioname = question4value = c/>
  134.  c。</label>
  135. コスタデルアズレ</p>
  136.  <p> 5.忘却のNewVision Magazineのカバーキャラクターは誰ですか？ <br/>
  137.  <label>
  138.  <inputtype = radioname = question5value = a/>
  139.  a。</label> xuanbin <br/>
  140.  <label>
  141.  <inputtype = radioname = question5value = b/>
  142.  b。</label>雨<br/>
  143.  <label>
  144.  <inputtype = radioname = question5value = c/>
  145.  c。</label> Zhang Dongjian </p>
  146.  <p> 6.音楽の過去のレコードの名前は何ですか？ <br/>
  147.  <label>
  148.  <inputtype = radioname = question6value = a/>
  149.  a。</label>
  150. 魅了された<br/>
  151.  <label>
  152.  <inputtype = radioname = question6value = b/>
  153.  b。</label>
  154. 素晴らしい<br/>
  155.  <label>
  156.  <inputtype = radioname = question6value = c/>
  157.  c。</label>
  158. 美しい</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 = submit/
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

以下は、バックグラウンドコードtest_do.aspです。コードは次のとおりです。

  1.  <％@言語= 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.  respons.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.  '質問2のスコア基準
  23. result（1）= a | 0 | _ | b | 10 | _ | c | 0
  25.  '3番目の質問スコア基準
  26. result（2）= a | 10 | _ | b | 0 | _ | c | 0
  28.  '質問4スコア標準
  29. result（3）= a | 0 | _ | b | 0 | _ | c | 10
  31.  '質問5スコア標準
  32. result（4）= a | 0 | _ | b | 0 | _ | c | 10
  34.  '質問6スコア基準
  35. result（5）= a | 10 | _ | b | 0 | _ | c | 0
  37.  '質問7スコア基準
  38. result（6）= a | 0 | _ | b | 10 | _ | c | 0
  40.  '質問8スコア基準
  41. result（7）= a | 10 | _ | b | 0 | _ | c | 0
  43.  '質問9スコア基準
  44. result（8）= a | 0 | _ | b | 0 | _ | c | 10
  46.  '質問10thスコア基準
  47. result（9）= a | 0 | _ | b | 10 | _ | c | 0
  49.  ''質問11スコア基準
  50. 'result（10）= a | 0 | _ | b | 0 | _ | c | 10
  51.  '
  52.  ''質問12スコア基準
  53. 'result（11）= a | 0 | _ | b | 10 | _ | c | 0
  54.  '
  55.  ''質問13スコア基準
  56. 'result（12）= a | 10 | _ | b | 0 | _ | c | 0
  57.  '
  58.  ''質問14thスコアリング基準
  59. 'result（13）= a | 0 | _ | b | 10 | _ | c | 0
  60.  '
  61.  ''質問15スコア基準
  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. 合計= 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>質問＆i+1＆：＆selval＆</li>＆vbcrlf
  81.  endif
  82. 次
  83. 次
  84. summary = formatpercent（total/totalscore）
  86.  if（合計/totalScore）> = 0.6then
  87.  strdes = Remulty＆Summary＆<br>それを正常に渡しました
  88. それ以外
  89. strdes = result＆summary＆<br>悲しいことに、あなたの精度率は60％に達していません。もう一度やり直してください！ <br> <ahref = test.asp '>オンラインQ＆Aページに戻る>> </a>
  90.  endif
  92.  strout = youhaveselectedtheseItemsbelow：<br>＆selitem＆<br>合計：＆合計＆<br>正確性は：＆要約です
  93. stroutstrout = strout＆<br>＆strdes
  95.  str_sql = selectcount（1）fromuserinfowherememberid = '＆session（id）＆'
  96.  rowcount = dataconn.execute（str_sql）（0）
  98.  ifrowCount> 0then'Update個人情報が存在する場合
  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. それ以外
  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 // enttp：//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>オンラインQ＆Aテスト結果</title>
  118.  <styletype = text/css>
  119.  <！ - 
  120. 体{
  121. フォントサイズ：12px;
  122. 色：＃0066ff;
  123.  }
  124. 入力{
  125. 境界線：1pxSolid＃ffffff;
  126. バックグラウンドカラー：#eeeee;
  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には、スクリプトインタープリターがランタイムエラーを無視し、スクリプトコードの実行を継続するために、on error resumeの次のステートメントがあります。次に、スクリプトはERR.Numberプロパティの値を確認して、エラーが発生したかどうかを判断できます。エラーが発生した場合、ゼロ以外の値が返されます。 ASP 3.0では、エラーGOTO 0で使用してデフォルトを「ターンバック」することもできます

関連記事