Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

ASP Online -Frage- und Beantwortungsbeispielcode

Autor：Eve Cole Aktualisierungszeit：2025-05-07 07:16:01

Empfohlen: ASP verwendet XML, um den angegebenen Ordner zu verpacken und in das Webverzeichnis hochzuladen, ihn selbst auspacken
'==============================' Datei 1 'pack.asp' ändern. Dateien '============================== % Option Explic

Der Beispielcode für ASP Online -Q & A ist die HTML -Datei, die test.asp ist, und der Code lautet wie folgt:

  1.  <%@Sprache = vbScriptCodePage = 936%>
  2.  <%
  3.  ifSession (Benutzername) = dann
  4.  Response.write (<Script> alert ('Bitte melden Sie sich an und führen Sie dann Operationen aus!'); Window.location = 'login.asp? Reurl = test.asp'; </script>)
  5.  Antwort.end ()
  6.  Endif
  7.  %>
  8.  <! DocTypehtmlPublic-// W3C // dtdxhtml1.0transitional // ushttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
  9.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  10.  <kopf>
  11.  <metahttp-äquiv = content-typecontent = text/html; charSet = gb2312/>
  12.  <title> Szenario Q & A </title>
  13.  <styLetype = text/css>
  14.  <!-
  15.  Körper{}{
  16.  Schriftgröße: 12px;
  17.  Farbe:#0066ff;
  18.  }
  19.  Eingang{}{
  20.  Grenze: 1pxsolid#ffffff;
  21.  Hintergrundfarbe: #eeeee;
  22.  links: 1px;
  23.  Oben: 1PX;
  24.  Rechts: 1PX;
  25.  unten: 1px;
  26.  Clip: Rect (10px, 10px, 10px, 10px);
  27.  Rand: 1PX;
  28.  Polsterung: 1PX;
  29.  }
  31.  ->
  32.  </style>
  33.  </head>
  34.  <scriptuanguage = javaScript>
  35.  <!-
  36.  functionchkform ()
  37.  {
  38.  vare = document.frm;
  39.  Varit, Flag, i;
  40.  Flag = Falsch;
  43.  für (i = 1; i <= 10; i ++)
  44.  {
  45.  variante = eval (e.Question+i);
  46.  variantelen = eval (e.Question+i+.Length);
  48.  für (varj = 0; j <itlen; j ++)
  49.  {
  50.  varitchk = eval (e.Question+i+[+j+]. Überprüft);
  52.  if (itchk)
  53.  {
  54.  Flag = wahr;
  55.  brechen;
  56.  }
  58.  if (! itchk && j == itlen-1)
  59.  {
  60.  Flag = Falsch;
  61.  brechen;
  62.  }
  63.  }
  65.  if (! Flagge)
  66.  {
  67.  Warnung (Bitte wählen Sie die Antwort auf Frage +i +);
  68.  returnfalse;
  69.  }
  71.  }
  72.  if (! Flagge)
  73.  {
  74.  Warnung (Bitte wählen Sie die Antwort auf Frage +i +);
  75.  eval (e.Question+i+.focus ());
  76.  returnfalse;
  77.  }
  78.  returnTrue;
  79.  }
  80.  ->
  81.  </script>
  82.  <body>
  83.  <Div> <strong> Szenario Q & A </strong> </div>
  84.  <formname = frMaction = test_do.aspMethod = postOnsuBmit = return (chkform ());>
  85.  <p> <br/>
  86.  1. Wie heißt die Heldin in vergessenen und runter? <br/>
  87.  <Label>
  88.  <inputType = radioname = Frage1Value = a/>
  89.  A. </Label>
  90.  Lan <br/>
  91.  <Label>
  92.  <inputType = radioname = Frage1Value = b/>
  93.  B. </Label>
  94.  Jenny <br/> <label>
  95.  <inputType = radioname = FRAGE1VALUE = C/>
  96.  C. </Label> lucy </p>
  97.  <p> 2. Wie heißt der Name der Bar in der Vergangenheit der Musik? <br/>
  98.  <Label>
  99.  <inputType = radioname = FRAGE2VALUE = A/>
  100.  A. </Label>
  101.  Vergessen <br/>
  102.  <Label>
  103.  <inputType = radioname = FRAGE2VALUE = B/>
  104.  B. </Label>
  105.  Nv <br/>
  106.  <Label>
  107.  <inputType = radioname = FRAGE2VALUE = C/>
  108.  C. </Label>
  109.  Wie ein Schatten </p>
  110.  <p> 3. Welche Fotos gibt es an der Wand des vergessenen Fotos? <br/>
  111.  <Label>
  112.  <inputType = radioname = Frage3Value = a/>
  113.  A. </Label>
  114.  Die Heldin der Vergangenheit <br/>
  115.  <Label>
  116.  <inputType = radioname = FRAGE3VALUE = B/>
  117.  B. </Label>
  118.  Die Landschaft am Meer <br/>
  119.  <Label>
  120.  <inputType = radioname = FRAGE3VALUE = C/>
  121.  C. </Label>
  122.  Bar außen </p>
  123.  <p> 4. Wie heißt der Wein, den die Heldin in der vergangenen Musik trinkt? <br/>
  124.  <Label>
  125.  <inputType = radioname = FRAGE4VALUE = A/>
  126.  A. </Label>
  127.  Red Pink Beauty <br/>
  128.  <Label>
  129.  <inputType = radioname = FRAGE4VALUE = B/>
  130.  B. </Label>
  131.  Siebenfarbener Regenbogen <br/>
  132.  <Label>
  133.  <inputType = radioname = FRAGE4VALUE = C/>
  134.  C. </Label>
  135.  Costa del Azure </p>
  136.  <p> 5.Wer ist der Cover -Charakter des Newvision Magazine in der Vergesslichkeit? <br/>
  137.  <Label>
  138.  <inputType = radioname = Frage5Value = a/>
  139.  A. </Label> xuanbin <br/>
  140.  <Label>
  141.  <inputType = radioname = Frage5Value = b/>
  142.  B. </Label> Regen <br/>
  143.  <Label>
  144.  <inputType = radioname = FRAGE5VALUE = C/>
  145.  C. </Label> Zhang Dongjian </p>
  146.  <p> 6. Wie heißt der Name der Platte in der Vergangenheit der Musik? <br/>
  147.  <Label>
  148.  <inputType = radioname = Frage6Value = a/>
  149.  A. </Label>
  150.  Verschönert <br/>
  151.  <Label>
  152.  <inputType = radioname = FRAGE6VALUE = B/>
  153.  B. </Label>
  154.  Wunderbar <br/>
  155.  <Label>
  156.  <inputType = radioname = FRAGE6VALUE = C/>
  157.  C. </Label>
  158.  Schöne </p>
  159.  <p> 7.Was wird in der Vergangenheit der Musik an der Wand der Bar geschrieben? <br/>
  160.  <Label>
  161.  <inputType = radioname = FRAGE7VALUE = A/>
  162.  A. </Label>
  163.  Loveisbeautiful <br/>
  164.  <Label> <inputType = radioname = FRAGE7VALUE = B/>
  165.  B. </Label>
  166.  Truthisbeautiful <br/>
  167.  <Label> <inputType = radioname = FRAGE7VALUE = C/>
  168.  C. </Label>
  169.  Smileisbeautiful </p>
  170.  <p> 8.Was wird in der Vergangenheit der Musik an der Bar platziert? <br/>
  171.  <Label> <inputType = radioname = Frage8Value = a/>
  172.  A. </Label>
  173.  Grammophon <br/>
  174.  <Label> <inputType = radioname = FRAGE8VALUE = B/>
  175.  B. </Label>
  176.  Radio <br/>
  177.  <Label> <inputType = radioname = Frage8Value = C/>
  178.  C. </Label>
  179.  Vinylaufzeichnungen </p>
  180.  <p> 9.Was ist die Präferenz des männlichen Protagonisten in der vergangenen Musik? <br/>
  181.  <Label> <inputType = radioname = Frage9Value = a/>
  182.  A. </Label>
  183.  Film <br/>
  184.  <Label> <inputType = radioname = FRAGE9VALUE = B/>
  185.  B. </Label>
  186.  Fotografie <br/>
  187.  <Label> <inputType = radioname = Frage9Value = C/>
  188.  C. </Label>
  189.  Tabak und Musik </p>
  190.  <p> 10. Was ist das Hobby des Protagonisten in der Abklingzeit und in der Wunderheit? <br/>
  191.  <Label> <inputType = radioname = Frage10Value = a/>
  192.  A. </Label>
  193.  Reise <br/>
  194.  <Label> <inputType = radioname = Frage10Value = b/>
  195.  B. </Label>
  196.  Fotografie <br/>
  197.  <Label> <inputType = radioname = Frage10Value = C/>
  198.  C. </Label>
  199.  Gehen Sie online </p>
  200.  <p> <br/>
  201.  <inputType = subjekt
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

Das Folgende ist der Hintergrundcode test_do.asp, der Code lautet wie folgt:

  1.  <%@Sprache = vbScriptCodePage = 936%>
  2.  <!-#includeFile = conn.asp->
  3.  <!-#includeFile = function.asp->
  4.  <%
  5.  Response.cachecontrol = no-cache
  6.  Response.expires = -1
  7.  Response.expiresabsolute = jetzt ()-1
  9.  ifSession (Benutzername) = dann
  10.  Response.write (<Script> alert ('Bitte melden Sie sich an und betreiben Sie es dann!'); Window.Location = 'login.asp? Reurl = nv_scene_test.asp'; </script>)
  11.  Antwort.end ()
  12.  Endif
  14.  'Die höchste Punktzahl für die Definitionsoption ist die Gesamtpunktzahl
  15.  Consttotalscore = 100
  16.  Constitems = 10
  17.  'Definieren Sie die Optionsbewertung
  18.  DiMResult (9)
  19.  'Die Wertungskriterien für die erste Frage
  20.  Ergebnis (0) = A | 10 | _ | B | 0 | _ | C | 0
  22.  'Score -Kriterien für Frage 2
  23.  Ergebnis (1) = a | 0 | _ | B | 10 | _ | c | 0
  25.  'Die dritten Frage -Score -Kriterien
  26.  Ergebnis (2) = A | 10 | _ | B | 0 | _ | C | 0
  28.  'Frage 4 Score Standard
  29.  Ergebnis (3) = A | 0 | _ | B | 0 | _ | C | 10
  31.  'Frage 5 Score Standard
  32.  Ergebnis (4) = A | 0 | _ | B | 0 | _ | C | 10
  34.  'Frage 6 Punkte Kriterien
  35.  Ergebnis (5) = A | 10 | _ | B | 0 | _ | C | 0
  37.  'Frage 7 Punkte Kriterien
  38.  Ergebnis (6) = A | 0 | _ | B | 10 | _ | C | 0
  40.  'Frage 8 Punkte Kriterien
  41.  Ergebnis (7) = A | 10 | _ | B | 0 | _ | C | 0
  43.  'Frage 9 Punkte Kriterien
  44.  Ergebnis (8) = A | 0 | _ | B | 0 | _ | C | 10
  46.  'Frage 10. Score -Kriterien
  47.  Ergebnis (9) = A | 0 | _ | B | 10 | _ | C | 0
  49.  '' Frage 11 Score -Kriterien
  50.  'Result (10) = a | 0 | _ | b | 0 | _ | c | 10
  51.  ''
  52.  '' Frage 12 Punkte Kriterien
  53.  'Result (11) = a | 0 | _ | b | 10 | _ | c | 0
  54.  ''
  55.  '' Frage 13 Punkte Kriterien
  56.  'Result (12) = a | 10 | _ | b | 0 | _ | c | 0
  57.  ''
  58.  '' Frage 14. Bewertungskriterien
  59.  'Result (13) = a | 0 | _ | b | 10 | _ | c | 0
  60.  ''
  61.  '' Frage 15. Punktzahlkriterien
  62.  'Result (14) = a | 0 | _ | b | 0 | _ | c | 10
  65.  Ifucase (request.servervariables (request_method)) = posthen
  66.  Callchk_post ()
  67.  Dimi, Total, Selitem, Zusammenfassung, Strdes, Strout
  68.  Gesamt = 0
  71.  Fei = 0to (Punkte-1)
  72.  selval = trim (request.form (Frage & i+1))
  73.  arritem = split (result (i), | _ |)
  75.  FORJ = 0ToUBOUND (Arritem)
  77.  IFselval = split (Arritem (j), |) (0) dann
  79.  TotalTotal = Total+Cint (Split (Arritem (j), |) (1))
  80.  SelitemSelitem = Selitem & <li> Frage & i+1 &: & Selval & </li> & vbcrlf
  81.  Endif
  82.  Nächste
  83.  Nächste
  84.  Zusammenfassung = Formatpercent (Gesamt-/Gesamtzahl)
  86.  If (Gesamt-/Gesamtzahl)> = 0,6then
  87.  Strdes = Regelmäßigkeit & Zusammenfassung & <br> Sie haben es erfolgreich bestanden
  88.  Anders
  89.  strdes = result & summary & <br> Leider hat Ihre Genauigkeitsrate 60%nicht erreicht. Bitte versuchen Sie es erneut! <br> <Ahref = test.asp '> Zurück zu Online -Q & A -Seite >> </a>
  90.  Endif
  92.  strout = YouHaveselectedTheseItemsBelow: <br> & selitem & <br> Total: & Total & <br> Ihre Genauigkeit lautet: & 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 persönliche Informationen, wenn sie vorhanden sind
  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 & WOREMMEMBETRIGEID = '& Session (ID) &' '
  104.  Anders
  105.  str_sql = InsertIntoSerinfo (Ergebnis, Mitgliedsmitglied, Mitgliedsame, IP)
  106.  STR_SQLSTR_SQL = STR_SQL & VALUTS ('& formatnumber (Total/TotalsCore, 2) &', '& Session (ID) &', '& Session (Benutzername) &', '& get_userip () &')
  107.  Endif
  108.  DataConn.execute (str_sql)
  109.  Endif
  112.  %>
  113.  <! DocTypehtmlPublic-// W3C // dtdxhtml1.0transitional // ushttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
  114.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  115.  <kopf>
  116.  <metahttp-äquiv = content-typecontent = text/html; charSet = gb2312/>
  117.  <title> Online -Q & A -Testergebnisse </title>
  118.  <styLetype = text/css>
  119.  <!-
  120.  Körper{
  121.  Schriftgröße: 12px;
  122.  Farbe:#0066ff;
  123.  }
  124.  Eingang{
  125.  Grenze: 1pxsolid#ffffff;
  126.  Hintergrundfarbe: #eeeee;
  127.  links: 1px;
  128.  Oben: 1PX;
  129.  Rechts: 1PX;
  130.  unten: 1px;
  131.  Clip: Rect (10px, 10px, 10px, 10px);
  132.  Rand: 1PX;
  133.  Polsterung: 1PX;
  134.  }
  136.  ->
  137.  </style>
  138.  </head>
  140.  <body>
  141.  <%Response.write (strout)%>
  142.  </body>
  143.  </html>

Teilen: Tipps für ASP -Fehlerobjekte
In VBScript gibt es eine Anweisung für Fehlerbehebung, die dazu führt, dass der Skript -Interpreter Laufzeitfehler ignoriert und die Ausführung des Skriptcode fortsetzt. Anschließend kann das Skript den Wert der ERR.Number -Eigenschaft überprüfen, um festzustellen, ob ein Fehler aufgetreten ist. Wenn ein Fehler auftritt, wird ein Wert ungleich Null zurückgegeben. In ASP 3.0 können Sie auch bei Fehler GOTO 0 verwenden, um sich wieder in den Standard zu wenden

Ähnliche Artikel