Recomendado: ASP usa XML para empacotar a pasta especificada e fazer upload para o diretório da web, descompacte por si só '===============================' arquivo 1 'pack.asp' altere cpathname essa variável 'gerará um arquivo data.xml no diretório atual' upload data.xml e arquivo 2 (install.asp) para o diretório da web rain'run install.spating Data.xml e arquivo 2 (Install.asp) para o web root Arquivos '============================== % Opção Explicação
O código de exemplo para perguntas e respostas on -line da ASP é o arquivo html, que é test.asp, e o código é o seguinte:
- <%@Idioma = vBScriptCodePage = 936%>
- <%
- ifSession (nome de usuário) = então
- Response.Write (<Script> alert ('Faça login e depois execute operações!'); Window.Location = 'Login.asp? Reurl = test.asp'; </script>)
- Response.end ()
- endif
- %>
- <!
- <htmlxmlns = http: //www.w3.org/1999/xhtml>
- <head>
- <metahttp-equiv = content-typeContent = text/html; charset = gb2312/>
- <title> Perguntas e respostas ao cenário </title>
- <styleType = text/css>
- <!-
- corpo{}{
- tamanho de fonte: 12px;
- Cor:#0066FF;
- }
- entrada{}{
- fronteira: 1pxSolid#ffffff;
- Background-Color: #eeeee;
- Esquerda: 1px;
- topo: 1px;
- Direita: 1px;
- Inferior: 1px;
- Clipe: Rect (10px, 10px, 10px, 10px);
- margem: 1px;
- preenchimento: 1px;
- }
- ->
- </style>
- </head>
- <ScriptLanguage = JavaScript>
- <!-
- functionChkform ()
- {
- vare = document.frm;
- variar, bandeira, i;
- bandeira = false;
- para (i = 1; i <= 10; i ++)
- {
- variante = avaliação (e.Question+i);
- variantlen = avaliação (e.Question+i+.Length);
- for (varj = 0; j <itlen; j ++)
- {
- varitchk = avaliação (e.Question+i+[+j+]. verificado);
- If (Itchk)
- {
- bandeira = true;
- quebrar;
- }
- if (! Itchk && j == itlen-1)
- {
- bandeira = false;
- quebrar;
- }
- }
- If (! Flag)
- {
- alerta (selecione a resposta para a pergunta +i +);
- returnfalse;
- }
- }
- If (! Flag)
- {
- alerta (selecione a resposta para a pergunta +i +);
- Eval (e.Question+i+.focus ());
- returnfalse;
- }
- returnTrue;
- }
- ->
- </script>
- <Body>
- <div> <strong> Perguntas e respostas do cenário </strong> </div>
- <formName = frmaction = test_do.aspmethod = postOnsubMit = return (chkform ());>
- <p> <br/>
- 1. Qual é o nome da heroína em esquecido e para baixo? <br/>
- <Boel>
- <inputType = radioname = question1Value = a/>
- A. </ etiqueta>
- Lan <br/>
- <Boel>
- <inputType = radioname = question1Value = b/>
- B. </ etiqueta>
- Jenny <br/> <breting>
- <inputType = radioname = question1Value = c/>
- C. </belt> Lucy </p>
- <p> 2. Qual é o nome do bar no passado da música? <br/>
- <Boel>
- <inputType = radioname = question2Value = a/>
- A. </ etiqueta>
- Esquecido <br/>
- <Boel>
- <inputType = radioname = question2Value = b/>
- B. </ etiqueta>
- Nv <br/>
- <Boel>
- <inputType = radioname = question2Value = c/>
- C. </ etiqueta>
- Como uma sombra </p>
- <p> 3. Que fotos estão na parede da foto esquecida? <br/>
- <Boel>
- <inputType = radioname = question3Value = a/>
- A. </ etiqueta>
- A heroína do passado <br/>
- <Boel>
- <inputType = radioname = question3Value = b/>
- B. </ etiqueta>
- O cenário à beira -mar <br/>
- <Boel>
- <inputType = radioname = question3Value = c/>
- C. </ etiqueta>
- Exterior da barra </p>
- <p> 4. Qual é o nome do vinho que a heroína bebe na música passada? <br/>
- <Boel>
- <inputType = radioname = question4Value = a/>
- A. </ etiqueta>
- A beleza rosa vermelha <br/>
- <Boel>
- <inputType = radioname = question4Value = b/>
- B. </ etiqueta>
- Rainbow de sete cores <br/>
- <Boel>
- <inputType = radioname = question4Value = c/>
- C. </ etiqueta>
- Costa del Azure </p>
- <p> 5. Quem é o personagem de capa da revista NewVision no esquecimento? <br/>
- <Boel>
- <inputType = radioname = question5Value = a/>
- A. </belt> xuanbin <br/>
- <Boel>
- <inputType = radioname = question5Value = b/>
- B. </belt> chuva <br/>
- <Boel>
- <inputType = radioname = question5Value = c/>
- C
- <p> 6. Qual é o nome do disco no passado da música? <br/>
- <Boel>
- <inputType = radioname = question6Value = a/>
- A. </ etiqueta>
- Equipado <br/>
- <Boel>
- <inputType = radioname = question6Value = b/>
- B. </ etiqueta>
- Maravilhoso <br/>
- <Boel>
- <inputType = radioname = question6Value = c/>
- C. </ etiqueta>
- Linda </p>
- <p> 7. O que está escrito na parede do bar no passado da música? <br/>
- <Boel>
- <inputType = radioname = question7Value = a/>
- A. </ etiqueta>
- Loveisbeautiful <br/>
- <Boel> <inputType = radioname = question7Value = b/>
- B. </ etiqueta>
- Verdadeisbeautiful <br/>
- <Boel> <inputType = radioname = question7Value = c/>
- C. </ etiqueta>
- Smileisbeautiful </p>
- <p> 8. O que é colocado no bar no passado da música? <br/>
- <Boel> <inputType = radioname = question8Value = a/>
- A. </ etiqueta>
- Gramofone <br/>
- <Boel> <inputType = radioname = question8Value = b/>
- B. </ etiqueta>
- Rádio <br/>
- <Boel> <inputType = radioname = question8Value = c/>
- C. </ etiqueta>
- Registros de vinil </p>
- <p> 9. Qual é a preferência do protagonista masculino na música passada? <br/>
- <Boel> <inputType = radioname = question9Value = a/>
- A. </ etiqueta>
- Filme <br/>
- <Boel> <inputType = radioname = question9Value = b/>
- B. </ etiqueta>
- Fotografia <br/>
- <Boel> <inputType = radioname = question9Value = c/>
- C. </ etiqueta>
- Tabaco e música </p>
- <p> 10. Qual é o hobby do protagonista na recarga e maravilha? <br/>
- <Boel> <inputType = radioname = question10Value = a/>
- A. </ etiqueta>
- Viagem <br/>
- <Boel> <inputType = radioname = question10Value = b/>
- B. </ etiqueta>
- Fotografia <br/>
- <Boel> <inputType = radioname = question10Value = c/>
- C. </ etiqueta>
- Fique online </p>
- <p> <br/>
- <inputType = submitName = submitValue = submeter/
- <br/>
- </p>
- </morm>
- </body>
- </html>
A seguir, o código de fundo test_do.asp, o código é o seguinte:
- <%@Idioma = vBScriptCodePage = 936%>
- <!-#incluirfile = Conn.asp->
- <!-#incluirfile = function.asp->
- <%
- Response.cacheControl = sem cache
- Response.Expires = -1
- Response.expiresabsolute = agora ()-1
- ifSession (nome de usuário) = então
- Response.Write (<Script> alert ('Faça login e depois opere!
- Response.end ()
- endif
- 'A pontuação mais alta para a opção de definição é a pontuação total
- ConstTotalsCore = 100
- CONSELHOS = 10
- 'Defina a pontuação da opção
- DimResult (9)
- 'Os critérios de pontuação para a primeira pergunta
- Resultado (0) = a | 10 | _ | b | 0 | _ | c | 0
- 'Critérios de pontuação para a pergunta 2
- Resultado (1) = a | 0 | _ | b | 10 | _ | c | 0
- 'A terceira questão de pontuação de critérios
- Resultado (2) = a | 10 | _ | b | 0 | _ | c | 0
- 'Pergunta 4 Pontuação padrão
- Resultado (3) = A | 0 | _ | B | 0 | _ | C | 10
- 'Pergunta 5 Pontuação Padrão
- Resultado (4) = A | 0 | _ | B | 0 | _ | C | 10
- 'Critérios de pontuação da pergunta 6
- Resultado (5) = a | 10 | _ | b | 0 | _ | c | 0
- 'Critérios de pontuação da pergunta 7
- Resultado (6) = A | 0 | _ | B | 10 | _ | C | 0
- 'Critérios de pontuação da pergunta 8
- Resultado (7) = a | 10 | _ | b | 0 | _ | c | 0
- 'Critérios de pontuação da pergunta 9
- Resultado (8) = A | 0 | _ | B | 0 | _ | C | 10
- 'Critérios de pontuação 10ª Pergunta
- Resultado (9) = A | 0 | _ | B | 10 | _ | C | 0
- '' Critérios de pontuação da pergunta 11
- 'Resultado (10) = A | 0 | _ | B | 0 | _ | C | 10
- '
- '' Critérios de pontuação da pergunta 12
- 'Resultado (11) = A | 0 | _ | B | 10 | _ | C | 0
- '
- '' Critérios de pontuação da pergunta 13
- 'Resultado (12) = A | 10 | _ | B | 0 | _ | C | 0
- '
- '' Pergunta 14º critério de pontuação
- 'Resultado (13) = A | 0 | _ | B | 10 | _ | C | 0
- '
- '' Critérios de pontuação 15ª Pergunta
- 'Resultado (14) = A | 0 | _ | B | 0 | _ | C | 10
- Ifucase (request.Servervariables (request_method)) = pós -then
- Callchk_post ()
- Dimi, total, selitem, resumo, strdes, strout
- Total = 0
- Fori = 0to (itens-1)
- Selval = Trim (request.form (Pergunta e I+1))
- arrritem = split (resultado (i), | _ |)
- Forj = 0Toubound (Arritem)
- Ifselval = split (Arritem (j), |) (0) então
- TotalTotal = Total+Cint (Split (Arritem (J), |) (1))
- SelitemSelitem = Selitem & <li> Pergunta & i+1 &: & Selval & </li> & vbcrlf
- Endif
- Próximo
- Próximo
- Resumo = FormatPercent (Total/TotalScore)
- If (total/totalscore)> = 0,6then
- strdes = regularidade e resumo e <br> você passou com sucesso
- Outro
- STRDES = Resultado e Resumo e <br> Infelizmente, sua taxa de precisão não atingiu 60%. Por favor, tente novamente! <br> <ahref = test.asp '> retorne às perguntas e respostas on -line >> </a>
- Endif
- STROUT = você setendo, esses tipos de sopa: <br> & Selitem & <br> Total: & Total & <br> Sua precisão é: & Resumo
- stroutstrot = strout & <br> & strdes
- str_sql = SelectCount (1) FromUserinfowHeremEmberId = '& session (id) &'
- RowCount = DATACONN.EXECUTE (STR_SQL) (0)
- IfrowCount> 0Then'Update Informações pessoais se houver
- str_sql = updateUserinfo
- str_sqlstr_sql = str_sql & setResult = '& formatNumber (total/totalscore, 2) &'
- str_sqlstr_sql = str_sql &, ip = '& get_userip () &'
- str_sqlstr_sql = str_sql &, addtime = getDate ()
- str_sqlstr_sql = str_sql & whreeMemberid = '& session (id) &'
- Outro
- str_sql = insertInterinfo (resultado, membro, membro do membro, IP)
- str_sqlstr_sql = str_sql & valores ('& formatNumber (total/totalscore, 2) &', '& session (id) &', '& session (nome de usuário) &', '& get_userip () &')
- Endif
- Dataconn.execute (str_sql)
- Endif
- %>
- <!
- <htmlxmlns = http: //www.w3.org/1999/xhtml>
- <head>
- <metahttp-equiv = content-typeContent = text/html; charset = gb2312/>
- <title> Resultados de teste de perguntas e respostas on -line </title>
- <styleType = text/css>
- <!-
- corpo{
- tamanho de fonte: 12px;
- Cor:#0066FF;
- }
- entrada{
- fronteira: 1pxSolid#ffffff;
- Background-Color: #eeeee;
- Esquerda: 1px;
- topo: 1px;
- Direita: 1px;
- Inferior: 1px;
- Clipe: Rect (10px, 10px, 10px, 10px);
- margem: 1px;
- preenchimento: 1px;
- }
- ->
- </style>
- </head>
- <Body>
- <%Response.write (strout)%>
- </body>
- </html>
Compartilhar: Dicas para objetos de erro ASP No VBScript, existe um retomado de erro no erro que faz com que o intérprete do script ignore os erros de tempo de execução e continue a execução do código do script. Em seguida, o script pode verificar o valor da propriedade Err.Number para determinar se ocorreu um erro. Se ocorrer um erro, um valor diferente de zero será retornado. No ASP 3.0, você também pode usar no erro 0 para "voltar para" o padrão