Página Inicial>Tutorial de programação de redes>Tutorial ASP

ASP Online Pergunta e Resposta Exemplo Código

Autor：Eve Cole Data da Última Atualização：2025-05-07 07:16:01

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:

  1.  <%@Idioma = vBScriptCodePage = 936%>
  2.  <%
  3.  ifSession (nome de usuário) = então
  4.  Response.Write (<Script> alert ('Faça login e depois execute operações!'); Window.Location = 'Login.asp? Reurl = test.asp'; </script>)
  5.  Response.end ()
  6.  endif
  7.  %>
  8.  <!
  9.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  10.  <head>
  11.  <metahttp-equiv = content-typeContent = text/html; charset = gb2312/>
  12.  <title> Perguntas e respostas ao cenário </title>
  13.  <styleType = text/css>
  14.  <!-
  15.  corpo{}{
  16.  tamanho de fonte: 12px;
  17.  Cor:#0066FF;
  18.  }
  19.  entrada{}{
  20.  fronteira: 1pxSolid#ffffff;
  21.  Background-Color: #eeeee;
  22.  Esquerda: 1px;
  23.  topo: 1px;
  24.  Direita: 1px;
  25.  Inferior: 1px;
  26.  Clipe: Rect (10px, 10px, 10px, 10px);
  27.  margem: 1px;
  28.  preenchimento: 1px;
  29.  }
  31.  ->
  32.  </style>
  33.  </head>
  34.  <ScriptLanguage = JavaScript>
  35.  <!-
  36.  functionChkform ()
  37.  {
  38.  vare = document.frm;
  39.  variar, bandeira, i;
  40.  bandeira = false;
  43.  para (i = 1; i <= 10; i ++)
  44.  {
  45.  variante = avaliação (e.Question+i);
  46.  variantlen = avaliação (e.Question+i+.Length);
  48.  for (varj = 0; j <itlen; j ++)
  49.  {
  50.  varitchk = avaliação (e.Question+i+[+j+]. verificado);
  52.  If (Itchk)
  53.  {
  54.  bandeira = true;
  55.  quebrar;
  56.  }
  58.  if (! Itchk && j == itlen-1)
  59.  {
  60.  bandeira = false;
  61.  quebrar;
  62.  }
  63.  }
  65.  If (! Flag)
  66.  {
  67.  alerta (selecione a resposta para a pergunta +i +);
  68.  returnfalse;
  69.  }
  71.  }
  72.  If (! Flag)
  73.  {
  74.  alerta (selecione a resposta para a pergunta +i +);
  75.  Eval (e.Question+i+.focus ());
  76.  returnfalse;
  77.  }
  78.  returnTrue;
  79.  }
  80.  ->
  81.  </script>
  82.  <Body>
  83.  <div> <strong> Perguntas e respostas do cenário </strong> </div>
  84.  <formName = frmaction = test_do.aspmethod = postOnsubMit = return (chkform ());>
  85.  <p> <br/>
  86.  1. Qual é o nome da heroína em esquecido e para baixo? <br/>
  87.  <Boel>
  88.  <inputType = radioname = question1Value = a/>
  89.  A. </ etiqueta>
  90.  Lan <br/>
  91.  <Boel>
  92.  <inputType = radioname = question1Value = b/>
  93.  B. </ etiqueta>
  94.  Jenny <br/> <breting>
  95.  <inputType = radioname = question1Value = c/>
  96.  C. </belt> Lucy </p>
  97.  <p> 2. Qual é o nome do bar no passado da música? <br/>
  98.  <Boel>
  99.  <inputType = radioname = question2Value = a/>
  100.  A. </ etiqueta>
  101.  Esquecido <br/>
  102.  <Boel>
  103.  <inputType = radioname = question2Value = b/>
  104.  B. </ etiqueta>
  105.  Nv <br/>
  106.  <Boel>
  107.  <inputType = radioname = question2Value = c/>
  108.  C. </ etiqueta>
  109.  Como uma sombra </p>
  110.  <p> 3. Que fotos estão na parede da foto esquecida? <br/>
  111.  <Boel>
  112.  <inputType = radioname = question3Value = a/>
  113.  A. </ etiqueta>
  114.  A heroína do passado <br/>
  115.  <Boel>
  116.  <inputType = radioname = question3Value = b/>
  117.  B. </ etiqueta>
  118.  O cenário à beira -mar <br/>
  119.  <Boel>
  120.  <inputType = radioname = question3Value = c/>
  121.  C. </ etiqueta>
  122.  Exterior da barra </p>
  123.  <p> 4. Qual é o nome do vinho que a heroína bebe na música passada? <br/>
  124.  <Boel>
  125.  <inputType = radioname = question4Value = a/>
  126.  A. </ etiqueta>
  127.  A beleza rosa vermelha <br/>
  128.  <Boel>
  129.  <inputType = radioname = question4Value = b/>
  130.  B. </ etiqueta>
  131.  Rainbow de sete cores <br/>
  132.  <Boel>
  133.  <inputType = radioname = question4Value = c/>
  134.  C. </ etiqueta>
  135.  Costa del Azure </p>
  136.  <p> 5. Quem é o personagem de capa da revista NewVision no esquecimento? <br/>
  137.  <Boel>
  138.  <inputType = radioname = question5Value = a/>
  139.  A. </belt> xuanbin <br/>
  140.  <Boel>
  141.  <inputType = radioname = question5Value = b/>
  142.  B. </belt> chuva <br/>
  143.  <Boel>
  144.  <inputType = radioname = question5Value = c/>
  145.  C
  146.  <p> 6. Qual é o nome do disco no passado da música? <br/>
  147.  <Boel>
  148.  <inputType = radioname = question6Value = a/>
  149.  A. </ etiqueta>
  150.  Equipado <br/>
  151.  <Boel>
  152.  <inputType = radioname = question6Value = b/>
  153.  B. </ etiqueta>
  154.  Maravilhoso <br/>
  155.  <Boel>
  156.  <inputType = radioname = question6Value = c/>
  157.  C. </ etiqueta>
  158.  Linda </p>
  159.  <p> 7. O que está escrito na parede do bar no passado da música? <br/>
  160.  <Boel>
  161.  <inputType = radioname = question7Value = a/>
  162.  A. </ etiqueta>
  163.  Loveisbeautiful <br/>
  164.  <Boel> <inputType = radioname = question7Value = b/>
  165.  B. </ etiqueta>
  166.  Verdadeisbeautiful <br/>
  167.  <Boel> <inputType = radioname = question7Value = c/>
  168.  C. </ etiqueta>
  169.  Smileisbeautiful </p>
  170.  <p> 8. O que é colocado no bar no passado da música? <br/>
  171.  <Boel> <inputType = radioname = question8Value = a/>
  172.  A. </ etiqueta>
  173.  Gramofone <br/>
  174.  <Boel> <inputType = radioname = question8Value = b/>
  175.  B. </ etiqueta>
  176.  Rádio <br/>
  177.  <Boel> <inputType = radioname = question8Value = c/>
  178.  C. </ etiqueta>
  179.  Registros de vinil </p>
  180.  <p> 9. Qual é a preferência do protagonista masculino na música passada? <br/>
  181.  <Boel> <inputType = radioname = question9Value = a/>
  182.  A. </ etiqueta>
  183.  Filme <br/>
  184.  <Boel> <inputType = radioname = question9Value = b/>
  185.  B. </ etiqueta>
  186.  Fotografia <br/>
  187.  <Boel> <inputType = radioname = question9Value = c/>
  188.  C. </ etiqueta>
  189.  Tabaco e música </p>
  190.  <p> 10. Qual é o hobby do protagonista na recarga e maravilha? <br/>
  191.  <Boel> <inputType = radioname = question10Value = a/>
  192.  A. </ etiqueta>
  193.  Viagem <br/>
  194.  <Boel> <inputType = radioname = question10Value = b/>
  195.  B. </ etiqueta>
  196.  Fotografia <br/>
  197.  <Boel> <inputType = radioname = question10Value = c/>
  198.  C. </ etiqueta>
  199.  Fique online </p>
  200.  <p> <br/>
  201.  <inputType = submitName = submitValue = submeter/
  202.  <br/>
  203.  </p>
  204.  </morm>
  205.  </body>
  206.  </html>

A seguir, o código de fundo test_do.asp, o código é o seguinte:

  1.  <%@Idioma = vBScriptCodePage = 936%>
  2.  <!-#incluirfile = Conn.asp->
  3.  <!-#incluirfile = function.asp->
  4.  <%
  5.  Response.cacheControl = sem cache
  6.  Response.Expires = -1
  7.  Response.expiresabsolute = agora ()-1
  9.  ifSession (nome de usuário) = então
  10.  Response.Write (<Script> alert ('Faça login e depois opere!
  11.  Response.end ()
  12.  endif
  14.  'A pontuação mais alta para a opção de definição é a pontuação total
  15.  ConstTotalsCore = 100
  16.  CONSELHOS = 10
  17.  'Defina a pontuação da opção
  18.  DimResult (9)
  19.  'Os critérios de pontuação para a primeira pergunta
  20.  Resultado (0) = a | 10 | _ | b | 0 | _ | c | 0
  22.  'Critérios de pontuação para a pergunta 2
  23.  Resultado (1) = a | 0 | _ | b | 10 | _ | c | 0
  25.  'A terceira questão de pontuação de critérios
  26.  Resultado (2) = a | 10 | _ | b | 0 | _ | c | 0
  28.  'Pergunta 4 Pontuação padrão
  29.  Resultado (3) = A | 0 | _ | B | 0 | _ | C | 10
  31.  'Pergunta 5 Pontuação Padrão
  32.  Resultado (4) = A | 0 | _ | B | 0 | _ | C | 10
  34.  'Critérios de pontuação da pergunta 6
  35.  Resultado (5) = a | 10 | _ | b | 0 | _ | c | 0
  37.  'Critérios de pontuação da pergunta 7
  38.  Resultado (6) = A | 0 | _ | B | 10 | _ | C | 0
  40.  'Critérios de pontuação da pergunta 8
  41.  Resultado (7) = a | 10 | _ | b | 0 | _ | c | 0
  43.  'Critérios de pontuação da pergunta 9
  44.  Resultado (8) = A | 0 | _ | B | 0 | _ | C | 10
  46.  'Critérios de pontuação 10ª Pergunta
  47.  Resultado (9) = A | 0 | _ | B | 10 | _ | C | 0
  49.  '' Critérios de pontuação da pergunta 11
  50.  'Resultado (10) = A | 0 | _ | B | 0 | _ | C | 10
  51.  '
  52.  '' Critérios de pontuação da pergunta 12
  53.  'Resultado (11) = A | 0 | _ | B | 10 | _ | C | 0
  54.  '
  55.  '' Critérios de pontuação da pergunta 13
  56.  'Resultado (12) = A | 10 | _ | B | 0 | _ | C | 0
  57.  '
  58.  '' Pergunta 14º critério de pontuação
  59.  'Resultado (13) = A | 0 | _ | B | 10 | _ | C | 0
  60.  '
  61.  '' Critérios de pontuação 15ª Pergunta
  62.  'Resultado (14) = A | 0 | _ | B | 0 | _ | C | 10
  65.  Ifucase (request.Servervariables (request_method)) = pós -then
  66.  Callchk_post ()
  67.  Dimi, total, selitem, resumo, strdes, strout
  68.  Total = 0
  71.  Fori = 0to (itens-1)
  72.  Selval = Trim (request.form (Pergunta e I+1))
  73.  arrritem = split (resultado (i), | _ |)
  75.  Forj = 0Toubound (Arritem)
  77.  Ifselval = split (Arritem (j), |) (0) então
  79.  TotalTotal = Total+Cint (Split (Arritem (J), |) (1))
  80.  SelitemSelitem = Selitem & <li> Pergunta & i+1 &: & Selval & </li> & vbcrlf
  81.  Endif
  82.  Próximo
  83.  Próximo
  84.  Resumo = FormatPercent (Total/TotalScore)
  86.  If (total/totalscore)> = 0,6then
  87.  strdes = regularidade e resumo e <br> você passou com sucesso
  88.  Outro
  89.  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>
  90.  Endif
  92.  STROUT = você setendo, esses tipos de sopa: <br> & Selitem & <br> Total: & Total & <br> Sua precisão é: & Resumo
  93.  stroutstrot = strout & <br> & strdes
  95.  str_sql = SelectCount (1) FromUserinfowHeremEmberId = '& session (id) &'
  96.  RowCount = DATACONN.EXECUTE (STR_SQL) (0)
  98.  IfrowCount> 0Then'Update Informações pessoais se houver
  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 & whreeMemberid = '& session (id) &'
  104.  Outro
  105.  str_sql = insertInterinfo (resultado, membro, membro do membro, IP)
  106.  str_sqlstr_sql = str_sql & valores ('& formatNumber (total/totalscore, 2) &', '& session (id) &', '& session (nome de usuário) &', '& get_userip () &')
  107.  Endif
  108.  Dataconn.execute (str_sql)
  109.  Endif
  112.  %>
  113.  <!
  114.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  115.  <head>
  116.  <metahttp-equiv = content-typeContent = text/html; charset = gb2312/>
  117.  <title> Resultados de teste de perguntas e respostas on -line </title>
  118.  <styleType = text/css>
  119.  <!-
  120.  corpo{
  121.  tamanho de fonte: 12px;
  122.  Cor:#0066FF;
  123.  }
  124.  entrada{
  125.  fronteira: 1pxSolid#ffffff;
  126.  Background-Color: #eeeee;
  127.  Esquerda: 1px;
  128.  topo: 1px;
  129.  Direita: 1px;
  130.  Inferior: 1px;
  131.  Clipe: Rect (10px, 10px, 10px, 10px);
  132.  margem: 1px;
  133.  preenchimento: 1px;
  134.  }
  136.  ->
  137.  </style>
  138.  </head>
  140.  <Body>
  141.  <%Response.write (strout)%>
  142.  </body>
  143.  </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

Artigos Relacionados