Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

Asp online pertanyaan dan jawaban contoh kode

Penulis：Eve Cole Waktu Pembaruan：2025-05-07 07:16:01

Direkomendasikan: ASP menggunakan XML untuk mengemas folder yang ditentukan dan mengunggahnya ke direktori web, buka dengan sendirinya
'===============================' file 1 'pack.asp' ubah cpathname variabel ini 'akan menghasilkan file data.xml dalam direktori saat ini' unggah data.xml dan file 2 (install.asp) ke dalam root root di atas root root install.aspking upload overpack overpack 'Two yang diisi di atas. File '================================ % Opsi Explic

Kode contoh untuk tanya jawab ASP online adalah file html, yaitu test.asp, dan kode adalah sebagai berikut:

  1.  <%@Bahasa = vbscriptCodepage = 936%>
  2.  <%
  3.  ifsession (nama pengguna) = lalu
  4.  Response.write (<script> waspada ('Silakan masuk dan kemudian lakukan operasi!'); Window.location = 'login.asp? Reurl = test.asp'; </script>)
  5.  Response.end ()
  6.  endif
  7.  %>
  8.  <! Doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // expleptp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
  9.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  10.  <head>
  11.  <METAHTTP-EQUIV = Content-TypeContent = Teks/html; charset = GB2312/>
  12.  <title> Skenario Q&A </iteme>
  13.  <styletype = text/css>
  14.  <!-
  15.  tubuh{}{
  16.  font-size: 12px;
  17.  Warna:#0066ff;
  18.  }
  19.  input {} {
  20.  Perbatasan: 1pxsolid#ffffff;
  21.  latar belakang-warna: #eeeee;
  22.  Kiri: 1px;
  23.  Atas: 1px;
  24.  Kanan: 1px;
  25.  Bawah: 1px;
  26.  Klip: Rect (10px, 10px, 10px, 10px);
  27.  margin: 1px;
  28.  padding: 1px;
  29.  }
  31.  ->
  32.  </tyle>
  33.  </head>
  34.  <ScriptLanguage = JavaScript>
  35.  <!-
  36.  functionchkform ()
  37.  {
  38.  vare = document.frm;
  39.  Varit, Flag, I;
  40.  bendera = false;
  43.  untuk (i = 1; i <= 10; i ++)
  44.  {
  45.  varian = eval (e.question+i);
  46.  varianLen = eval (e.question+i+.length);
  48.  untuk (varj = 0; j <itlen; j ++)
  49.  {
  50.  varitchk = eval (e.question+i+[+j+]. Diperiksa);
  52.  if (itchk)
  53.  {
  54.  bendera = true;
  55.  merusak;
  56.  }
  58.  if (! itchk && j == itlen-1)
  59.  {
  60.  bendera = false;
  61.  merusak;
  62.  }
  63.  }
  65.  if (! flag)
  66.  {
  67.  waspada (silakan pilih jawaban untuk pertanyaan +i +);
  68.  returnfalse;
  69.  }
  71.  }
  72.  if (! flag)
  73.  {
  74.  waspada (silakan pilih jawaban untuk pertanyaan +i +);
  75.  eval (e.question+i+.focus ());
  76.  returnfalse;
  77.  }
  78.  kembali;
  79.  }
  80.  ->
  81.  </script>
  82.  <body>
  83.  <song> <strong> skenario Q&A </strong> </div>
  84.  <formname = frmaction = test_do.aspmethod = postonsubmit = return (chkform ());>
  85.  <p> <br/>
  86.  1. Apa nama pahlawan wanita yang dilupakan dan turun? <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. Apa nama bar di masa lalu musik? <br/>
  98.  <label>
  99.  <inputType = radioname = question2value = a/>
  100.  A. </label>
  101.  Lupa <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.  Seperti bayangan </p>
  110.  <p> 3. Foto apa yang ada di dinding foto yang terlupakan? <br/>
  111.  <label>
  112.  <inputType = radioname = question3Value = a/>
  113.  A. </label>
  114.  Pahlawan masa lalu <br/>
  115.  <label>
  116.  <inputType = radioname = question3Value = b/>
  117.  B. </label>
  118.  Pemandangan di tepi laut <br/>
  119.  <label>
  120.  <inputType = radioname = question3Value = c/>
  121.  C. </label>
  122.  Eksterior bar </p>
  123.  <p> 4. Apa nama anggur yang diminum pahlawan dalam musik masa lalu? <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.  Pelangi tujuh berwarna <br/>
  132.  <label>
  133.  <inputType = radioname = question4value = c/>
  134.  C. </label>
  135.  Costa del Azure </p>
  136.  <p> 5. Siapa karakter sampul majalah newVision dalam pelupa? <br/>
  137.  <label>
  138.  <inputType = radioname = question5value = a/>
  139.  A. </label> Xuanbin <br/>
  140.  <label>
  141.  <inputType = radioname = question5value = b/>
  142.  B. </label> hujan <br/>
  143.  <label>
  144.  <inputType = radioname = question5value = c/>
  145.  C. </label> Zhang Dongjian </p>
  146.  <p> 6. Apa nama rekaman di masa lalu musik? <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.  <br/> yang luar biasa
  155.  <label>
  156.  <inputType = radioname = question6value = c/>
  157.  C. </label>
  158.  Cantik </p>
  159.  <p> 7. Apa yang ditulis di dinding bar di masa lalu musik? <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. Apa yang ditempatkan di bar di masa lalu musik? <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. Apa preferensi protagonis pria dalam musik masa lalu? <br/>
  181.  <label> <inputType = radioname = pertanyaan9value = a/>
  182.  A. </label>
  183.  Film <br/>
  184.  <label> <inputType = radioname = pertanyaan9value = b/>
  185.  B. </label>
  186.  Fotografi <br/>
  187.  <label> <inputType = radioname = question9value = c/>
  188.  C. </label>
  189.  Tembakau dan musik </p>
  190.  <p> 10. Apa hobi protagonis di cooldown dan keindahan? <br/>
  191.  <label> <inputType = Radioname = question10Value = a/>
  192.  A. </label>
  193.  Travel <br/>
  194.  <label> <inputType = Radioname = question10Value = b/>
  195.  B. </label>
  196.  Fotografi <br/>
  197.  <label> <inputType = Radioname = question10Value = c/>
  198.  C. </label>
  199.  Pergi online </p>
  200.  <p> <br/>
  201.  <inputType = submitName = SubMitValue = Kirim/ Kirim
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

Berikut ini adalah kode latar belakang test_do.asp, kodenya adalah sebagai berikut:

  1.  <%@Bahasa = 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 (nama pengguna) = lalu
  10.  Response.write (<script> alert ('Harap masuk dan kemudian beroperasi!'); Window.location = 'login.asp? Reurl = nv_scene_test.asp'; </ptript>))
  11.  Response.end ()
  12.  endif
  14.  'Skor tertinggi untuk opsi definisi adalah skor total
  15.  ConsttotalScore = 100
  16.  Konstitem = 10
  17.  'Tentukan skor opsi
  18.  DimResult (9)
  19.  'Kriteria penilaian untuk pertanyaan pertama
  20.  Hasil (0) = A | 10 | _ | B | 0 | _ | C | 0
  22.  'Kriteria skor untuk pertanyaan 2
  23.  Hasil (1) = A | 0 | _ | B | 10 | _ | C | 0
  25.  'Kriteria skor pertanyaan ketiga
  26.  Hasil (2) = A | 10 | _ | B | 0 | _ | C | 0
  28.  'Pertanyaan 4 Standar Skor
  29.  Hasil (3) = A | 0 | _ | B | 0 | _ | C | 10
  31.  'Pertanyaan 5 Skor Standar
  32.  Hasil (4) = A | 0 | _ | B | 0 | _ | C | 10
  34.  'Pertanyaan 6 Kriteria Skor
  35.  Hasil (5) = A | 10 | _ | B | 0 | _ | C | 0
  37.  'Pertanyaan 7 Kriteria Skor
  38.  Hasil (6) = A | 0 | _ | B | 10 | _ | C | 0
  40.  'Pertanyaan 8 Kriteria Skor
  41.  Hasil (7) = A | 10 | _ | B | 0 | _ | C | 0
  43.  'Pertanyaan 9 Kriteria Skor
  44.  Hasil (8) = A | 0 | _ | B | 0 | _ | C | 10
  46.  'Pertanyaan kriteria skor ke -10
  47.  Hasil (9) = A | 0 | _ | B | 10 | _ | C | 0
  49.  '' Pertanyaan 11 Kriteria Skor
  50.  'Hasil (10) = A | 0 | _ | B | 0 | _ | C | 10
  51.  '
  52.  '' Pertanyaan 12 Kriteria Skor
  53.  'Hasil (11) = A | 0 | _ | B | 10 | _ | C | 0
  54.  '
  55.  '' Pertanyaan 13 Kriteria Skor
  56.  'Hasil (12) = A | 10 | _ | B | 0 | _ | C | 0
  57.  '
  58.  '' Pertanyaan kriteria penilaian ke -14
  59.  'Hasil (13) = A | 0 | _ | B | 10 | _ | C | 0
  60.  '
  61.  '' Pertanyaan Kriteria Skor ke -15
  62.  'Hasil (14) = A | 0 | _ | B | 0 | _ | C | 10
  65.  Ifucase (request.serverVariable (request_method)) = postthen
  66.  Callchk_post ()
  67.  Dimi, Total, Selitem, Ringkasan, Strdes, Strout
  68.  Total = 0
  71.  Fori = 0to (item-1)
  72.  selval = trim (request.form (pertanyaan & i+1))
  73.  arritem = split (hasil (i), | _ |)
  75.  Forj = 0toubound (arritem)
  77.  Ifselval = split (arritem (j), |) (0) lalu
  79.  TotalTotal = Total+Cint (Split (Arritem (J), |) (1))
  80.  selitemselitem = selitem & <li> Pertanyaan & i+1 &: & selval & </li> & vbcrlf
  81.  Endif
  82.  Berikutnya
  83.  Berikutnya
  84.  ringkasan = formatPencent (total/totalcore)
  86.  If (total/totalscore)> = 0.6then
  87.  strdes = keteraturan & ringkasan & <br> Anda telah berhasil melewatinya
  88.  Kalau tidak
  89.  STRDES = Hasil & Ringkasan & <br> Sayangnya, tingkat akurasi Anda belum mencapai 60%. Tolong coba lagi! <br> <ahref = test.asp '> kembali ke halaman Q&A online >> </a>
  90.  Endif
  92.  Strout = YouhaveselectedTheitemsBelow: <br> & selitem & <br> Total: & Total & <br> Keakuratan Anda adalah: & ringkasan
  93.  Stroutstrout = Strout & <br> & strdes
  95.  str_sql = selectCount (1) FromUserInfowHerememberid = '& Sesi (id) &'
  96.  rowCount = DataConn.execute (str_sql) (0)
  98.  Ifrowcount> 0then'update informasi pribadi jika ada
  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.  Kalau tidak
  105.  str_sql = InsertIntouserInfo (hasil, anggotaid, maveName, IP)
  106.  str_sqlstr_sql = str_sql & values ​​('& formatNumber (total/totalscore, 2) &', '& sesi (id) &', '& sesi (nama pengguna) &', '& get_userip () &')
  107.  Endif
  108.  Dataconn.execute (str_sql)
  109.  Endif
  112.  %>
  113.  <! Doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // expleptp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
  114.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  115.  <head>
  116.  <METAHTTP-EQUIV = Content-TypeContent = Teks/html; charset = GB2312/>
  117.  <title> Online Hasil Tes Tanya Jawab </iteme>
  118.  <styletype = text/css>
  119.  <!-
  120.  tubuh{
  121.  font-size: 12px;
  122.  Warna:#0066ff;
  123.  }
  124.  input {
  125.  Perbatasan: 1pxsolid#ffffff;
  126.  latar belakang-warna: #eeeee;
  127.  Kiri: 1px;
  128.  Atas: 1px;
  129.  Kanan: 1px;
  130.  Bawah: 1px;
  131.  Klip: Rect (10px, 10px, 10px, 10px);
  132.  margin: 1px;
  133.  padding: 1px;
  134.  }
  136.  ->
  137.  </tyle>
  138.  </head>
  140.  <body>
  141.  <%Response.write (strout)%>
  142.  </body>
  143.  </html>

Bagikan: Tips untuk Objek Kesalahan ASP
Dalam VBScript, ada pernyataan resume ON error berikutnya yang menyebabkan penerjemah skrip mengabaikan kesalahan runtime dan melanjutkan eksekusi kode skrip. Kemudian skrip dapat memeriksa nilai properti err.number untuk menentukan apakah kesalahan terjadi. Jika kesalahan terjadi, nilai tidak nol dikembalikan. Di ASP 3.0, Anda juga dapat menggunakan kesalahan GOTO 0 untuk "kembali ke" default

Artikel Terkait