Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP en ligne Question et réponse Exemple de code

Auteur：Eve Cole Date de mise à jour：2025-05-07 07:16:01

Recommandé: ASP utilise XML pour emballer le dossier spécifié et le télécharger dans le répertoire Web, déballer seul
'============================== «Fichier 1' Pack.asp 'Modifier CPATHNAME Cette variable» générera un fichier data.xml dans le répertoire actuel' upload data.xml et fichier 2 (install.asp) vers le web root Directory'run install.asp détruire ' Files '================================% Option explic

L'exemple de code pour ASP Online Q&A est le fichier HTML, qui est test.asp, et le code est le suivant:

  1.  <% @ Language = vbscriptCodePage = 936%>
  2.  <%
  3.  ifSession (nom d'utilisateur) = alors
  4.  Response.Write (<Script> alert ('Veuillez vous connecter puis effectuer des opérations!'); Window.location = 'login.asp? Reurl = test.asp'; </cript>)
  5.  Réponse.end ()
  6.  endire
  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.  <adal>
  11.  <Metahttp-Equiv = Content-TypeContent = Text / Html; charSet = GB2312 />
  12.  <Title> Scénario Q & A </TITAL>
  13.  <Styletype = Text / CSS>
  14.  <! -
  15.  corps{}{
  16.  taille de police: 12px;
  17.  Couleur: # 0066FF;
  18.  }
  19.  saisir{}{
  20.  Border: 1PXSOLID # FFFFFF;
  21.  Color d'arrière-plan: #eeeee;
  22.  Gauche: 1px;
  23.  en haut: 1px;
  24.  À droite: 1px;
  25.  En bas: 1px;
  26.  Clip: RECT (10px, 10px, 10px, 10px);
  27.  marge: 1px;
  28.  rembourrage: 1px;
  29.  }
  31.  ->
  32.  </ style>
  33.  </ head>
  34.  <ScriptLanguage = JavaScript>
  35.  <! -
  36.  functionchkform ()
  37.  {
  38.  Vare = document.frm;
  39.  varit, drapeau, i;
  40.  Flag = false;
  43.  pour (i = 1; i <= 10; i ++)
  44.  {
  45.  variant = eval (E.Question + I);
  46.  Variantlen = eval (E.Question + I + .Length);
  48.  pour (varj = 0; j <itlen; j ++)
  49.  {
  50.  varchkk = eval (e.question + i + [+ j +]. vérifié);
  52.  si (itchk)
  53.  {
  54.  Flag = true;
  55.  casser;
  56.  }
  58.  if (! itchk && j == itlen-1)
  59.  {
  60.  Flag = false;
  61.  casser;
  62.  }
  63.  }
  65.  if (! drapeau)
  66.  {
  67.  alerte (veuillez sélectionner la réponse à la question + i +);
  68.  returnFalse;
  69.  }
  71.  }
  72.  if (! drapeau)
  73.  {
  74.  alerte (veuillez sélectionner la réponse à la question + i +);
  75.  eval (e.Quertion + i + .focus ());
  76.  returnFalse;
  77.  }
  78.  RetourTrue;
  79.  }
  80.  ->
  81.  </cript>
  82.  <body>
  83.  <div> <strong> Scénario Q & A </strong> </div>
  84.  <formName = frmaction = test_do.aspMethod = postonsubmit = return (chkform ());>
  85.  <p> <br/>
  86.  1. Quel est le nom de l'héroïne dans Forgotten and Down? <br/>
  87.  <étiquet>
  88.  <putype = radioname = question1Value = a />
  89.  A. </bable>
  90.  Lan <br/>
  91.  <étiquet>
  92.  <futType = Radioname = Question1Value = B />
  93.  B. </bable>
  94.  Jenny <br/> <Babeld>
  95.  <futType = Radioname = Question1Value = C />
  96.  C
  97.  <p> 2. Quel est le nom du bar dans le passé de la musique? <br/>
  98.  <étiquet>
  99.  <futType = Radioname = Question2Value = A />
  100.  A. </bable>
  101.  Oublié <br/>
  102.  <étiquet>
  103.  <futType = Radioname = Question2Value = B />
  104.  B. </bable>
  105.  Nv <br/>
  106.  <étiquet>
  107.  <futType = Radioname = Question2Value = C />
  108.  C. </ Label>
  109.  Comme une ombre </p>
  110.  <p> 3. Quelles photos y a-t-il sur le mur de la photo oubliée? <br/>
  111.  <étiquet>
  112.  <putype = radioname = question3Value = a />
  113.  A. </bable>
  114.  L'héroïne du passé <br/>
  115.  <étiquet>
  116.  <putype = radioname = question3Value = b />
  117.  B. </bable>
  118.  Le paysage au bord de la mer <br/>
  119.  <étiquet>
  120.  <putype = radioname = question3Value = c />
  121.  C. </ Label>
  122.  Bar extérieur </p>
  123.  <p> 4. Quel est le nom du vin que l'héroïne boit dans la musique passée? <br/>
  124.  <étiquet>
  125.  <putype = radioname = question4value = a />
  126.  A. </bable>
  127.  Beauté rose rouge <br/>
  128.  <étiquet>
  129.  <futType = Radioname = Question4Value = B />
  130.  B. </bable>
  131.  Arc-en-ciel à sept couleurs <br/>
  132.  <étiquet>
  133.  <futType = Radioname = Question4Value = C />
  134.  C. </ Label>
  135.  Costa del Azure </p>
  136.  <p> 5.Qui est le caractère de couverture du magazine NewVision dans l'oubli? <br/>
  137.  <étiquet>
  138.  <futType = Radioname = Question5Value = a />
  139.  A
  140.  <étiquet>
  141.  <futType = Radioname = Question5Value = B />
  142.  B
  143.  <étiquet>
  144.  <futType = Radioname = Question5Value = C />
  145.  C
  146.  <p> 6. Quel est le nom du disque dans le passé de la musique? <br/>
  147.  <étiquet>
  148.  <futType = Radioname = Question6Value = A />
  149.  A. </bable>
  150.  Bénéral <br/>
  151.  <étiquet>
  152.  <futType = Radioname = Question6Value = B />
  153.  B. </bable>
  154.  Merveilleux <br/>
  155.  <étiquet>
  156.  <futType = Radioname = Question6Value = C />
  157.  C. </ Label>
  158.  Belle </p>
  159.  <p> 7. Qu'est-ce qui est écrit sur le mur du bar dans le passé de la musique? <br/>
  160.  <étiquet>
  161.  <putype = radioname = question7value = a />
  162.  A. </bable>
  163.  LovesBeautiful <br/>
  164.  <bellise> <futType = Radioname = Question7Value = B />
  165.  B. </bable>
  166.  TroinchisBeautiful <br/>
  167.  <bellise> <inputType = Radioname = Question7Value = C />
  168.  C. </ Label>
  169.  Smilisbeautiful </p>
  170.  <p> 8. Qu'est-ce qui est placé sur la barre dans le passé de la musique? <br/>
  171.  <bellise> <futType = Radioname = Question8Value = A />
  172.  A. </bable>
  173.  Gramophone <br/>
  174.  <bellise> <inputType = Radioname = Question8Value = B />
  175.  B. </bable>
  176.  Radio <br/>
  177.  <bellise> <inputType = Radioname = Question8Value = C />
  178.  C. </ Label>
  179.  Enregistrements en vinyle </p>
  180.  <p> 9. Quelle est la préférence du protagoniste masculin dans la musique passée? <br/>
  181.  <bellise> <inputType = Radioname = Question9Value = A />
  182.  A. </bable>
  183.  Film <br/>
  184.  <Quelle> <putyType = Radioname = Question9Value = B />
  185.  B. </bable>
  186.  Photographie <br/>
  187.  <Quelle> <putyType = Radioname = Question9Value = C />
  188.  C. </ Label>
  189.  Tabac et musique </p>
  190.  <p> 10. Quel est le passe-temps du protagoniste dans le temps de recharge et la merveilleuse? <br/>
  191.  <bellise> <inputType = Radioname = Question10Value = a />
  192.  A. </bable>
  193.  Voyager <br/>
  194.  <Quelle> <futType = Radioname = Question10Value = B />
  195.  B. </bable>
  196.  Photographie <br/>
  197.  <bellise> <inputType = Radioname = Question10Value = C />
  198.  C. </ Label>
  199.  Aller en ligne </p>
  200.  <p> <br/>
  201.  <putType = soumidName = soumidValue = soumed /
  202.  <br/>
  203.  </p>
  204.  </ form>
  205.  </docy>
  206.  </html>

Ce qui suit est le code d'arrière-plan test_do.asp, le code est le suivant:

  1.  <% @ Language = vbscriptCodePage = 936%>
  2.  <! - # includeFile = Conn.asp ->
  3.  <! - # includeFile = function.asp ->
  4.  <%
  5.  Réponse.cacheControl = sans cache
  6.  Response.expires = -1
  7.  Réponse.ExpiresAbsolute = Now () - 1
  9.  ifSession (nom d'utilisateur) = alors
  10.  Response.Write (<Script> alert ('Veuillez vous connecter puis le faire!
  11.  Réponse.end ()
  12.  endire
  14.  'Le score le plus élevé pour l'option de définition est le score total
  15.  Consttotalscore = 100
  16.  Constems = 10
  17.  'Définir le score de l'option
  18.  Dimresult (9)
  19.  'Les critères de notation pour la première question
  20.  Résultat (0) = a | 10 | _ | b | 0 | _ | c | 0
  22.  'Score des critères pour la question 2
  23.  Résultat (1) = a | 0 | _ | b | 10 | _ | c | 0
  25.  'Les critères de score de la troisième question
  26.  Résultat (2) = A | 10 | _ | B | 0 | _ | C | 0
  28.  'Question 4 Score Standard
  29.  Résultat (3) = a | 0 | _ | b | 0 | _ | c | 10
  31.  'Question 5 Norme de score
  32.  Résultat (4) = A | 0 | _ | B | 0 | _ | C | 10
  34.  'Question 6 Score Critères
  35.  Résultat (5) = a | 10 | _ | b | 0 | _ | c | 0
  37.  'Question 7 Score Critères
  38.  Résultat (6) = a | 0 | _ | b | 10 | _ | c | 0
  40.  'Question 8 Score Critères
  41.  Résultat (7) = a | 10 | _ | b | 0 | _ | c | 0
  43.  'Question 9 Score Critères
  44.  Résultat (8) = a | 0 | _ | b | 0 | _ | c | 10
  46.  `` Question 10e score Critères
  47.  Résultat (9) = a | 0 | _ | b | 10 | _ | c | 0
  49.  `` Question 11 Score Critères
  50.  'Résultat (10) = A | 0 | _ | B | 0 | _ | C | 10
  51.  '
  52.  `` Question 12 Score Critères
  53.  'Résultat (11) = a | 0 | _ | b | 10 | _ | c | 0
  54.  '
  55.  `` Question 13 Score Critères
  56.  'Résultat (12) = a | 10 | _ | b | 0 | _ | c | 0
  57.  '
  58.  '' Question 14e critères de notation
  59.  'Résultat (13) = a | 0 | _ | b | 10 | _ | c | 0
  60.  '
  61.  `` Question 15e score Critères
  62.  'Résultat (14) = a | 0 | _ | b | 0 | _ | c | 10
  65.  Ifucase (request.servervariables (request_method))) = post-then
  66.  Callchk_post ()
  67.  Dimi, Total, Selitem, Résumé, Strdes, Strout
  68.  Total = 0
  71.  Fori = 0to (articles-1)
  72.  Selval = Trim (request.form (Question & i + 1))
  73.  Arritem = Split (résultat (i), | _ |)
  75.  Forj = 0Toubound (arritem)
  77.  Ifselval = Split (Arritem (J), |) (0) alors
  79.  TotalTotal = Total + Cint (Split (Arritem (J), |) (1))
  80.  SelitemSeLitem = Selitem & <li> Question & i + 1 &: & selval & </li> & vbcrlf
  81.  Endire
  82.  Suivant
  83.  Suivant
  84.  Résumé = format pour cent (total / totalcore)
  86.  If (total / totalScore)> = 0,6
  87.  strdes = régularité et résumé & <br> Vous l'avez passé avec succès
  88.  Autre
  89.  STRDES = Résultat et résumé & <br> Malheureusement, votre taux de précision n'a pas atteint 60%. Veuillez réessayer! <br> <Ahref = test.asp '> Retour à la page de questions-réponses en ligne >> </a>
  90.  Endire
  92.  STROUT = Youhaveselected ThatitemsBelow: <br> & Selitem & <br> Total: & Total & <br> Votre précision est: & Résumé
  93.  Stroutstrout = Strout & <br> & Strdes
  95.  str_sql = selectCount (1) FromUserInfowhememberId = '& session (id) &'
  96.  rowcount = dataconn.execute (str_sql) (0)
  98.  IfrowCount> 0then'update d'informations personnelles si elles existent
  99.  str_sql = updateuserinfo
  100.  str_sqlstr_sql = str_sql & setResult = '& formatnumber (total / totalcore, 2) &'
  101.  str_sqlstr_sql = str_sql &, ip = '& get_userip () &'
  102.  str_sqlstr_sql = str_sql &, addtime = getDate ()
  103.  str_sqlstr_sql = str_sql & whimemberid = '& session (id) &'
  104.  Autre
  105.  str_sql = insertTouseRenfo (résultat, membre, membre, nom, ip)
  106.  str_sqlstr_sql = str_sql & valeurs ('& formatNumber (total / totalcore, 2) &', '& session (id) &', '& session (nom d'utilisateur) &', '& get_userip () &')
  107.  Endire
  108.  DataConn.Execute (STR_SQL)
  109.  Endire
  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.  <adal>
  116.  <Metahttp-Equiv = Content-TypeContent = Text / Html; charSet = GB2312 />
  117.  <Title> Résultats de test de questions et réponses en ligne </TITAL>
  118.  <Styletype = Text / CSS>
  119.  <! -
  120.  corps{
  121.  taille de police: 12px;
  122.  Couleur: # 0066FF;
  123.  }
  124.  saisir{
  125.  Border: 1PXSOLID # FFFFFF;
  126.  Color d'arrière-plan: #eeeee;
  127.  Gauche: 1px;
  128.  en haut: 1px;
  129.  À droite: 1px;
  130.  En bas: 1px;
  131.  Clip: RECT (10px, 10px, 10px, 10px);
  132.  marge: 1px;
  133.  rembourrage: 1px;
  134.  }
  136.  ->
  137.  </ style>
  138.  </ head>
  140.  <body>
  141.  <% Response.Write (Stout)%>
  142.  </docy>
  143.  </html>

Partager: conseils pour les objets d'erreur ASP
Dans VBScript, il y a une instruction NEXT CV ERROR REPOS qui oblige l'interprète de script à ignorer les erreurs d'exécution et à continuer l'exécution du code de script. Ensuite, le script peut vérifier la valeur de la propriété Err.Number pour déterminer si une erreur s'est produite. Si une erreur se produit, une valeur non nulle est renvoyée. Dans ASP 3.0, vous pouvez également utiliser sur Error Goto 0 pour "revenir à" la valeur par défaut

Articles connexes