Inicio>Tutorial de programación de red>Tutorial ASP

ASP Pregunta en línea y respuesta Código de ejemplo

Autor：Eve Cole Fecha de actualización：2025-05-07 07:16:01

Recomendado: ASP utiliza XML para empaquetar la carpeta especificada y cargarla en el directorio web, desactivarlo por sí mismo
'=============================== 4 Archivos =================================

El código de ejemplo para Q&A en línea ASP es el archivo HTML, que es Test.asp, y el código es el siguiente:

  1.  <%@Idioma = vBscriptCodePage = 936%>
  2.  <%
  3.  ifsession (nombre de usuario) = entonces
  4.  Response.Write (<Script> Alert ('¡Inicie sesión y luego realice operaciones!'); Window.location = 'Login.asp? Reurl = test.asp'; </script>)
  5.  Respuesta.end ()
  6.  endif
  7.  %>
  8.  <! DOCTYPEHTMLPublic-// w3c // dtdxhtml1.0Transitional // gohttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transicional.dtd>
  9.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  10.  <Evista>
  11.  <metahttp-oquiv = content-typeContent = text/html; charset = gb2312/>
  12.  <title> Scenario Q&A </title>
  13.  <styletype = text/css>
  14.  <!-
  15.  cuerpo{}{
  16.  tamaño de fuente: 12px;
  17.  Color:#0066ff;
  18.  }
  19.  aporte{}{
  20.  borde: 1pxsolid#ffffff;
  21.  Color de fondo: #EEEEE;
  22.  Izquierda: 1px;
  23.  arriba: 1px;
  24.  Derecha: 1px;
  25.  Abajo: 1px;
  26.  clip: rect (10px, 10px, 10px, 10px);
  27.  margen: 1px;
  28.  relleno: 1px;
  29.  }
  31.  ->
  32.  </style>
  33.  </ablo>
  34.  <scriptLanguage = javaScript>
  35.  <!-
  36.  functionChkform ()
  37.  {
  38.  VARE = ​​document.frm;
  39.  Varit, bandera, i;
  40.  bandera = falso;
  43.  para (i = 1; i <= 10; i ++)
  44.  {
  45.  variante = eval (E.Question+i);
  46.  variantlen = eval (e.question+i+.length);
  48.  para (varj = 0; j <itlen; j ++)
  49.  {
  50.  varitchk = eval (E.Question+i+[+j+]. versidado);
  52.  if (itchk)
  53.  {
  54.  bandera = verdadero;
  55.  romper;
  56.  }
  58.  if (! itchk && j == itlen-1)
  59.  {
  60.  bandera = falso;
  61.  romper;
  62.  }
  63.  }
  65.  if (! flag)
  66.  {
  67.  alerta (seleccione la respuesta a la pregunta +i +);
  68.  returnfalse;
  69.  }
  71.  }
  72.  if (! flag)
  73.  {
  74.  alerta (seleccione la respuesta a la pregunta +i +);
  75.  eval (E.Question+i+.focus ());
  76.  returnfalse;
  77.  }
  78.  returnTrue;
  79.  }
  80.  ->
  81.  </script>
  82.  <Body>
  83.  <div> <strong> Scenario Q&A </strong> </div>
  84.  <formname = frmaction = test_do.aspmethod = postsubmit = return (chkform ());>
  85.  <p> <br/>
  86.  1. ¿Cuál es el nombre de la heroína en Olvided and Down? <br/>
  87.  <Tabel>
  88.  <inputType = radioname = cuestion1Value = a/>
  89.  A. </etlabe>
  90.  Lan <br/>
  91.  <Tabel>
  92.  <inputType = radioname = cuestion1Value = b/>
  93.  B. </selabel>
  94.  Jenny <br/> <label>
  95.  <inputType = radioname = cuestion1Value = c/>
  96.  C. </etlabe> Lucy </p>
  97.  <p> 2. ¿Cuál es el nombre del bar en el pasado de la música? <br/>
  98.  <Tabel>
  99.  <inputType = radioname = cuestion2Value = a/>
  100.  A. </etlabe>
  101.  Olvidado <br/>
  102.  <Tabel>
  103.  <inputType = radioname = cuestion2Value = b/>
  104.  B. </selabel>
  105.  NV <br/>
  106.  <Tabel>
  107.  <inputType = radioname = cuestion2Value = c/>
  108.  C
  109.  Como una sombra </p>
  110.  <p> 3. ¿Qué fotos hay en la pared de la foto olvidada? <br/>
  111.  <Tabel>
  112.  <inputType = radioname = cuestion3Value = a/>
  113.  A. </etlabe>
  114.  La heroína del pasado <br/>
  115.  <Tabel>
  116.  <inputType = radioname = cuestion3Value = b/>
  117.  B. </selabel>
  118.  El paisaje junto al mar <br/>
  119.  <Tabel>
  120.  <inputType = radioname = cuestion3Value = c/>
  121.  C
  122.  Exterior de barra </p>
  123.  <p> 4. ¿Cuál es el nombre del vino la heroína bebidas en la música pasada? <br/>
  124.  <Tabel>
  125.  <inputType = radioname = cuestion4Value = a/>
  126.  A. </etlabe>
  127.  Belleza rosa roja <br/>
  128.  <Tabel>
  129.  <inputType = radioname = cuestion4Value = b/>
  130.  B. </selabel>
  131.  Rainbow de siete colores <br/>
  132.  <Tabel>
  133.  <inputType = radioname = cuestion4Value = c/>
  134.  C
  135.  Costa del Azure </p>
  136.  <p> 5. ¿Quién es el personaje de portada de la revista NewVision en el olvido? <br/>
  137.  <Tabel>
  138.  <inputType = radioname = cuestion5Value = a/>
  139.  A. </etlabe> xuanbin <br/>
  140.  <Tabel>
  141.  <inputType = radioname = cuestion5Value = b/>
  142.  B. </Etiqueta> lluvia <br/>
  143.  <Tabel>
  144.  <inputType = radioname = cuestion5Value = c/>
  145.  C
  146.  <p> 6. ¿Cuál es el nombre del disco en el pasado de la música? <br/>
  147.  <Tabel>
  148.  <inputType = radioname = cuestion6Value = a/>
  149.  A. </etlabe>
  150.  Bewitched <br/>
  151.  <Tabel>
  152.  <inputType = radioname = cuestion6Value = b/>
  153.  B. </selabel>
  154.  Maravilloso <br/>
  155.  <Tabel>
  156.  <inputType = radioname = cuestion6Value = c/>
  157.  C
  158.  Hermoso </p>
  159.  <p> 7. ¿Qué se escribe en la pared del bar en el pasado de la música? <br/>
  160.  <Tabel>
  161.  <inputType = radioname = cuestion7Value = a/>
  162.  A. </etlabe>
  163.  Loveisbeautiful <br/>
  164.  <label> <inputType = radioname = cuestion7Value = b/>
  165.  B. </selabel>
  166.  Truthisbeautiful <br/>
  167.  <label> <inputType = radioname = cuestion7Value = c/>
  168.  C
  169.  Smilleisbeautiful </p>
  170.  <p> 8. ¿Qué se coloca en el bar en el pasado de la música? <br/>
  171.  <label> <inputType = radioname = cuestion8Value = a/>
  172.  A. </etlabe>
  173.  Gramófono <br/>
  174.  <label> <inputType = radioname = cuestion8Value = b/>
  175.  B. </selabel>
  176.  Radio <br/>
  177.  <label> <inputType = radioname = cuestion8Value = c/>
  178.  C
  179.  Vinyl Records </p>
  180.  <p> 9. ¿Cuál es la preferencia del protagonista masculino en la música pasada? <br/>
  181.  <label> <inputType = radioname = cuestion9Value = a/>
  182.  A. </etlabe>
  183.  Película <br/>
  184.  <label> <inputType = radioname = cuestion9Value = b/>
  185.  B. </selabel>
  186.  Fotografía <br/>
  187.  <label> <inputType = radioname = cuestion9Value = c/>
  188.  C
  189.  Tabaco y música </p>
  190.  <p> 10. ¿Cuál es el pasatiempo del protagonista en el enfriamiento y la maravilla? <br/>
  191.  <label> <inputType = radioname = cuestion10Value = a/>
  192.  A. </etlabe>
  193.  Viajar <br/>
  194.  <label> <inputType = radioname = cuestion10Value = b/>
  195.  B. </selabel>
  196.  Fotografía <br/>
  197.  <label> <inputType = Radioname = Question10Value = C/>
  198.  C
  199.  Ve en línea </p>
  200.  <p> <br/>
  201.  <inputType = SubmitName = SubtItValue = Subt/
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

El siguiente es el código de fondo test_do.asp, el código es el siguiente:

  1.  <%@Idioma = vBscriptCodePage = 936%>
  2.  <!-#includeFile = conn.asp->
  3.  <!-#includeFile = function.asp->
  4.  <%
  5.  Respuesta.cachecontrol = no-cache
  6.  Respuesta.expires = -1
  7.  Respuesta.ExpeesabSolute = Now ()-1
  9.  ifsession (nombre de usuario) = entonces
  10.  Response.Write (<Script> Alert ('Inicie sesión y luego opere!'); Window.location = 'Login.asp? Reurl = nv_scene_test.asp'; </script>)
  11.  Respuesta.end ()
  12.  endif
  14.  'La puntuación más alta para la opción de definición es la puntuación total
  15.  Consttotalscore = 100
  16.  Constitems = 10
  17.  'Defina la puntuación de la opción
  18.  Dimresult (9)
  19.  'Los criterios de puntuación para la primera pregunta
  20.  Resultado (0) = A | 10 | _ | B | 0 | _ | C | 0
  22.  'Criterios de puntaje para la pregunta 2
  23.  Resultado (1) = A | 0 | _ | B | 10 | _ | C | 0
  25.  'Los criterios de puntaje de la tercera pregunta
  26.  Resultado (2) = A | 10 | _ | B | 0 | _ | C | 0
  28.  'PREGUNTA 4 Puntaje estándar
  29.  Resultado (3) = a | 0 | _ | B | 0 | _ | C | 10
  31.  'Pregunta 5 Puntaje estándar
  32.  Resultado (4) = A | 0 | _ | B | 0 | _ | C | 10
  34.  'Pregunta 6 Criterios de puntaje
  35.  Resultado (5) = A | 10 | _ | B | 0 | _ | C | 0
  37.  'Pregunta 7 Criterios de puntaje
  38.  Resultado (6) = A | 0 | _ | B | 10 | _ | C | 0
  40.  'Pregunta 8 Criterios de puntaje
  41.  Resultado (7) = A | 10 | _ | B | 0 | _ | C | 0
  43.  'Pregunta 9 Criterios de puntaje
  44.  Resultado (8) = A | 0 | _ | B | 0 | _ | C | 10
  46.  'Pregunta 10º criterio de puntaje
  47.  Resultado (9) = A | 0 | _ | B | 10 | _ | C | 0
  49.  '' Pregunta 11 Criterios de puntaje
  50.  'Resultado (10) = a | 0 | _ | b | 0 | _ | c | 10
  51.  '
  52.  '' Pregunta 12 Criterios de puntaje
  53.  'Result (11) = A | 0 | _ | B | 10 | _ | C | 0
  54.  '
  55.  '' Pregunta 13 Criterios de puntaje
  56.  'Result (12) = A | 10 | _ | B | 0 | _ | C | 0
  57.  '
  58.  '' Pregunta 14 ° criterio de puntuación
  59.  'Result (13) = A | 0 | _ | B | 10 | _ | C | 0
  60.  '
  61.  '' Pregunta 15 ° criterio de puntaje
  62.  'Resultado (14) = a | 0 | _ | b | 0 | _ | c | 10
  65.  Ifucase (request.servervariables (request_method)) = postthen
  66.  Callchk_post ()
  67.  Dimi, Total, Selitem, Resumen, Strdes, Strout
  68.  Total = 0
  71.  Fori = 0TO (elementos-1)
  72.  Selval = Trim (request.form (pregunta e i+1))
  73.  Arritem = Split (resultado (i), | _ |)
  75.  Forj = 0toUbound (Arritem)
  77.  IfSelval = Split (Arritem (J), |) (0) Entonces
  79.  TotalTotal = Total+Cint (Split (Arritem (J), |) (1))
  80.  SelitemSelitem = Selitem & <li> Pregunta & i+1 &: & Selval & </li> & vbcrlf
  81.  Endif
  82.  Próximo
  83.  Próximo
  84.  Resumen = FormatParcent (total/Totalscore)
  86.  If (total/totalScore)> = 0.6Then
  87.  strdes = regularidad y resumen y <br> lo has pasado con éxito
  88.  Demás
  89.  strdes = resultado y resumen y <br> Lamentablemente, su tasa de precisión no ha alcanzado el 60%. ¡Vuelve a intentarlo! <br> <ahref = test.asp '> Regrese a la página de preguntas y respuestas en línea >> </a>
  90.  Endif
  92.  strout = YouHaveSelected ThiseItemsBelow: <br> & Selitem & <br> Total: & Total & <br> Su precisión es: y resumen
  93.  stroutstrout = strout & <br> & strdes
  95.  str_sql = selectCount (1) fromUserInfowhereMemberId = '& Session (id) &'
  96.  RowCount = DataConn.Execute (STR_SQL) (0)
  98.  IfrowCount> 0Then'Update Personal Information si existe
  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 & wherememberid = '& session (id) &'
  104.  Demás
  105.  str_sql = InsertInToUserInfo (resultado, miembro, memberName, IP)
  106.  str_sqlstr_sql = str_sql & valores ('& formatnumber (total/totalScore, 2) &', '& session (id) &', '& session (nombre de usuario) &', '& get_userip () &')
  107.  Endif
  108.  Dataconn.execute (str_sql)
  109.  Endif
  112.  %>
  113.  <! DOCTYPEHTMLPublic-// w3c // dtdxhtml1.0Transitional // gohttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transicional.dtd>
  114.  <htmlxmlns = http: //www.w3.org/1999/xhtml>
  115.  <Evista>
  116.  <metahttp-oquiv = content-typeContent = text/html; charset = gb2312/>
  117.  <title> Resultados de pruebas de preguntas y respuestas en línea </title>
  118.  <styletype = text/css>
  119.  <!-
  120.  cuerpo{
  121.  tamaño de fuente: 12px;
  122.  Color:#0066ff;
  123.  }
  124.  aporte{
  125.  borde: 1pxsolid#ffffff;
  126.  Color de fondo: #EEEEE;
  127.  Izquierda: 1px;
  128.  arriba: 1px;
  129.  Derecha: 1px;
  130.  Abajo: 1px;
  131.  clip: rect (10px, 10px, 10px, 10px);
  132.  margen: 1px;
  133.  relleno: 1px;
  134.  }
  136.  ->
  137.  </style>
  138.  </ablo>
  140.  <Body>
  141.  <%Response.Write (Strout)%>
  142.  </body>
  143.  </html>

Compartir: Consejos para objetos de error ASP
En VBScript, hay una declaración de reanudación de error ON que hace que el intérprete de script ignore los errores de tiempo de ejecución y continúe la ejecución del código de script. Luego, el script puede verificar el valor de la propiedad Err.Number para determinar si ocurrió un error. Si se produce un error, se devuelve un valor distinto de cero. En ASP 3.0, también puede usar el error GOTO 0 para "volver a" el valor predeterminado

Artículos relacionados