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:
- <% @ Language = vbscriptCodePage = 936%>
- <%
- ifSession (nom d'utilisateur) = alors
- Response.Write (<Script> alert ('Veuillez vous connecter puis effectuer des opérations!'); Window.location = 'login.asp? Reurl = test.asp'; </cript>)
- Réponse.end ()
- endire
- %>
- <! Doctypehtmlpublic - // w3c // dtdxhtml1.0transitional // Enhttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
- <htmlxmlns = http: //www.w3.org/1999/xhtml>
- <adal>
- <Metahttp-Equiv = Content-TypeContent = Text / Html; charSet = GB2312 />
- <Title> Scénario Q & A </TITAL>
- <Styletype = Text / CSS>
- <! -
- corps{}{
- taille de police: 12px;
- Couleur: # 0066FF;
- }
- saisir{}{
- Border: 1PXSOLID # FFFFFF;
- Color d'arrière-plan: #eeeee;
- Gauche: 1px;
- en haut: 1px;
- À droite: 1px;
- En bas: 1px;
- Clip: RECT (10px, 10px, 10px, 10px);
- marge: 1px;
- rembourrage: 1px;
- }
- ->
- </ style>
- </ head>
- <ScriptLanguage = JavaScript>
- <! -
- functionchkform ()
- {
- Vare = document.frm;
- varit, drapeau, i;
- Flag = false;
- pour (i = 1; i <= 10; i ++)
- {
- variant = eval (E.Question + I);
- Variantlen = eval (E.Question + I + .Length);
- pour (varj = 0; j <itlen; j ++)
- {
- varchkk = eval (e.question + i + [+ j +]. vérifié);
- si (itchk)
- {
- Flag = true;
- casser;
- }
- if (! itchk && j == itlen-1)
- {
- Flag = false;
- casser;
- }
- }
- if (! drapeau)
- {
- alerte (veuillez sélectionner la réponse à la question + i +);
- returnFalse;
- }
- }
- if (! drapeau)
- {
- alerte (veuillez sélectionner la réponse à la question + i +);
- eval (e.Quertion + i + .focus ());
- returnFalse;
- }
- RetourTrue;
- }
- ->
- </cript>
- <body>
- <div> <strong> Scénario Q & A </strong> </div>
- <formName = frmaction = test_do.aspMethod = postonsubmit = return (chkform ());>
- <p> <br/>
- 1. Quel est le nom de l'héroïne dans Forgotten and Down? <br/>
- <étiquet>
- <putype = radioname = question1Value = a />
- A. </bable>
- Lan <br/>
- <étiquet>
- <futType = Radioname = Question1Value = B />
- B. </bable>
- Jenny <br/> <Babeld>
- <futType = Radioname = Question1Value = C />
- C
- <p> 2. Quel est le nom du bar dans le passé de la musique? <br/>
- <étiquet>
- <futType = Radioname = Question2Value = A />
- A. </bable>
- Oublié <br/>
- <étiquet>
- <futType = Radioname = Question2Value = B />
- B. </bable>
- Nv <br/>
- <étiquet>
- <futType = Radioname = Question2Value = C />
- C. </ Label>
- Comme une ombre </p>
- <p> 3. Quelles photos y a-t-il sur le mur de la photo oubliée? <br/>
- <étiquet>
- <putype = radioname = question3Value = a />
- A. </bable>
- L'héroïne du passé <br/>
- <étiquet>
- <putype = radioname = question3Value = b />
- B. </bable>
- Le paysage au bord de la mer <br/>
- <étiquet>
- <putype = radioname = question3Value = c />
- C. </ Label>
- Bar extérieur </p>
- <p> 4. Quel est le nom du vin que l'héroïne boit dans la musique passée? <br/>
- <étiquet>
- <putype = radioname = question4value = a />
- A. </bable>
- Beauté rose rouge <br/>
- <étiquet>
- <futType = Radioname = Question4Value = B />
- B. </bable>
- Arc-en-ciel à sept couleurs <br/>
- <étiquet>
- <futType = Radioname = Question4Value = C />
- C. </ Label>
- Costa del Azure </p>
- <p> 5.Qui est le caractère de couverture du magazine NewVision dans l'oubli? <br/>
- <étiquet>
- <futType = Radioname = Question5Value = a />
- A
- <étiquet>
- <futType = Radioname = Question5Value = B />
- B
- <étiquet>
- <futType = Radioname = Question5Value = C />
- C
- <p> 6. Quel est le nom du disque dans le passé de la musique? <br/>
- <étiquet>
- <futType = Radioname = Question6Value = A />
- A. </bable>
- Bénéral <br/>
- <étiquet>
- <futType = Radioname = Question6Value = B />
- B. </bable>
- Merveilleux <br/>
- <étiquet>
- <futType = Radioname = Question6Value = C />
- C. </ Label>
- Belle </p>
- <p> 7. Qu'est-ce qui est écrit sur le mur du bar dans le passé de la musique? <br/>
- <étiquet>
- <putype = radioname = question7value = a />
- A. </bable>
- LovesBeautiful <br/>
- <bellise> <futType = Radioname = Question7Value = B />
- B. </bable>
- TroinchisBeautiful <br/>
- <bellise> <inputType = Radioname = Question7Value = C />
- C. </ Label>
- Smilisbeautiful </p>
- <p> 8. Qu'est-ce qui est placé sur la barre dans le passé de la musique? <br/>
- <bellise> <futType = Radioname = Question8Value = A />
- A. </bable>
- Gramophone <br/>
- <bellise> <inputType = Radioname = Question8Value = B />
- B. </bable>
- Radio <br/>
- <bellise> <inputType = Radioname = Question8Value = C />
- C. </ Label>
- Enregistrements en vinyle </p>
- <p> 9. Quelle est la préférence du protagoniste masculin dans la musique passée? <br/>
- <bellise> <inputType = Radioname = Question9Value = A />
- A. </bable>
- Film <br/>
- <Quelle> <putyType = Radioname = Question9Value = B />
- B. </bable>
- Photographie <br/>
- <Quelle> <putyType = Radioname = Question9Value = C />
- C. </ Label>
- Tabac et musique </p>
- <p> 10. Quel est le passe-temps du protagoniste dans le temps de recharge et la merveilleuse? <br/>
- <bellise> <inputType = Radioname = Question10Value = a />
- A. </bable>
- Voyager <br/>
- <Quelle> <futType = Radioname = Question10Value = B />
- B. </bable>
- Photographie <br/>
- <bellise> <inputType = Radioname = Question10Value = C />
- C. </ Label>
- Aller en ligne </p>
- <p> <br/>
- <putType = soumidName = soumidValue = soumed /
- <br/>
- </p>
- </ form>
- </docy>
- </html>
Ce qui suit est le code d'arrière-plan test_do.asp, le code est le suivant:
- <% @ Language = vbscriptCodePage = 936%>
- <! - # includeFile = Conn.asp ->
- <! - # includeFile = function.asp ->
- <%
- Réponse.cacheControl = sans cache
- Response.expires = -1
- Réponse.ExpiresAbsolute = Now () - 1
- ifSession (nom d'utilisateur) = alors
- Response.Write (<Script> alert ('Veuillez vous connecter puis le faire!
- Réponse.end ()
- endire
- 'Le score le plus élevé pour l'option de définition est le score total
- Consttotalscore = 100
- Constems = 10
- 'Définir le score de l'option
- Dimresult (9)
- 'Les critères de notation pour la première question
- Résultat (0) = a | 10 | _ | b | 0 | _ | c | 0
- 'Score des critères pour la question 2
- Résultat (1) = a | 0 | _ | b | 10 | _ | c | 0
- 'Les critères de score de la troisième question
- Résultat (2) = A | 10 | _ | B | 0 | _ | C | 0
- 'Question 4 Score Standard
- Résultat (3) = a | 0 | _ | b | 0 | _ | c | 10
- 'Question 5 Norme de score
- Résultat (4) = A | 0 | _ | B | 0 | _ | C | 10
- 'Question 6 Score Critères
- Résultat (5) = a | 10 | _ | b | 0 | _ | c | 0
- 'Question 7 Score Critères
- Résultat (6) = a | 0 | _ | b | 10 | _ | c | 0
- 'Question 8 Score Critères
- Résultat (7) = a | 10 | _ | b | 0 | _ | c | 0
- 'Question 9 Score Critères
- Résultat (8) = a | 0 | _ | b | 0 | _ | c | 10
- `` Question 10e score Critères
- Résultat (9) = a | 0 | _ | b | 10 | _ | c | 0
- `` Question 11 Score Critères
- 'Résultat (10) = A | 0 | _ | B | 0 | _ | C | 10
- '
- `` Question 12 Score Critères
- 'Résultat (11) = a | 0 | _ | b | 10 | _ | c | 0
- '
- `` Question 13 Score Critères
- 'Résultat (12) = a | 10 | _ | b | 0 | _ | c | 0
- '
- '' Question 14e critères de notation
- 'Résultat (13) = a | 0 | _ | b | 10 | _ | c | 0
- '
- `` Question 15e score Critères
- 'Résultat (14) = a | 0 | _ | b | 0 | _ | c | 10
- Ifucase (request.servervariables (request_method))) = post-then
- Callchk_post ()
- Dimi, Total, Selitem, Résumé, Strdes, Strout
- Total = 0
- Fori = 0to (articles-1)
- Selval = Trim (request.form (Question & i + 1))
- Arritem = Split (résultat (i), | _ |)
- Forj = 0Toubound (arritem)
- Ifselval = Split (Arritem (J), |) (0) alors
- TotalTotal = Total + Cint (Split (Arritem (J), |) (1))
- SelitemSeLitem = Selitem & <li> Question & i + 1 &: & selval & </li> & vbcrlf
- Endire
- Suivant
- Suivant
- Résumé = format pour cent (total / totalcore)
- If (total / totalScore)> = 0,6
- strdes = régularité et résumé & <br> Vous l'avez passé avec succès
- Autre
- 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>
- Endire
- STROUT = Youhaveselected ThatitemsBelow: <br> & Selitem & <br> Total: & Total & <br> Votre précision est: & Résumé
- Stroutstrout = Strout & <br> & Strdes
- str_sql = selectCount (1) FromUserInfowhememberId = '& session (id) &'
- rowcount = dataconn.execute (str_sql) (0)
- IfrowCount> 0then'update d'informations personnelles si elles existent
- str_sql = updateuserinfo
- str_sqlstr_sql = str_sql & setResult = '& formatnumber (total / totalcore, 2) &'
- str_sqlstr_sql = str_sql &, ip = '& get_userip () &'
- str_sqlstr_sql = str_sql &, addtime = getDate ()
- str_sqlstr_sql = str_sql & whimemberid = '& session (id) &'
- Autre
- str_sql = insertTouseRenfo (résultat, membre, membre, nom, ip)
- str_sqlstr_sql = str_sql & valeurs ('& formatNumber (total / totalcore, 2) &', '& session (id) &', '& session (nom d'utilisateur) &', '& get_userip () &')
- Endire
- DataConn.Execute (STR_SQL)
- Endire
- %>
- <! Doctypehtmlpublic - // w3c // dtdxhtml1.0transitional // Enhttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
- <htmlxmlns = http: //www.w3.org/1999/xhtml>
- <adal>
- <Metahttp-Equiv = Content-TypeContent = Text / Html; charSet = GB2312 />
- <Title> Résultats de test de questions et réponses en ligne </TITAL>
- <Styletype = Text / CSS>
- <! -
- corps{
- taille de police: 12px;
- Couleur: # 0066FF;
- }
- saisir{
- Border: 1PXSOLID # FFFFFF;
- Color d'arrière-plan: #eeeee;
- Gauche: 1px;
- en haut: 1px;
- À droite: 1px;
- En bas: 1px;
- Clip: RECT (10px, 10px, 10px, 10px);
- marge: 1px;
- rembourrage: 1px;
- }
- ->
- </ style>
- </ head>
- <body>
- <% Response.Write (Stout)%>
- </docy>
- </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