홈페이지>네트워크 프로그래밍 튜토리얼>ASP 튜토리얼

ASP 온라인 질문 및 답변 예제 코드

저자：Eve Cole 업데이트 시간：2025-05-07 07:16:01

권장 : ASP는 XML을 사용하여 지정된 폴더를 패키지하고 웹 디렉토리에 업로드하고 자체적으로 포장을 풀어줍니다.
'= ====================================================================================================================================================================================== data.s upload data.xml에 대한 data.xml 및 파일 2 (install.xml)에서 data.xml 파일을 생성합니다. 파일 '=============================== % 옵션 explic

ASP Online Q & A의 예제 코드는 HTML 파일이며 테스트 .asp이며 코드는 다음과 같습니다.

  1.  <%@language = vbscriptCodePage = 936%>
  2.  <%
  3.  ifsession (username) = 그런 다음
  4.  response.write (<cript> alert ( '로그인 한 다음 작업을 수행 한 다음 작업을 수행하십시오!'); Window.location = 'login.asp? reurl = test.asp'; </script>)
  5.  응답 ()
  6.  endif
  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.  <헤드>
  11.  <metahttp-equiv = content-typecontent = text/html; charset = gb2312/>
  12.  <title> 시나리오 Q & A </title>
  13.  <styletype = text/css>
  14.  <!-
  15.  몸{}{
  16.  글꼴 크기 : 12px;
  17.  색상 :#0066ff;
  18.  }
  19.  입력{}{
  20.  국경 : 1pxsolid#ffffff;
  21.  배경색 : #eeeee;
  22.  왼쪽 : 1px;
  23.  상단 : 1px;
  24.  오른쪽 : 1px;
  25.  하단 : 1px;
  26.  클립 : rect (10px, 10px, 10px, 10px);
  27.  마진 : 1px;
  28.  패딩 : 1px;
  29.  }
  31.  ->
  32.  </스타일>
  33.  </head>
  34.  <scriptLanguage = javaScript>
  35.  <!-
  36.  functionchkform ()
  37.  {
  38.  vare = document.frm;
  39.  varit, 깃발, i;
  40.  flag = false;
  43.  for (i = 1; i <= 10; i ++)
  44.  {
  45.  변형 = 평가 (e.question+i);
  46.  variantLen = Eval (e.question+i+.length);
  48.  for (varj = 0; j <itlen; j ++)
  49.  {
  50.  varitchk = eval (e.question+i+[+j+]. 확인);
  52.  if (itchk)
  53.  {
  54.  flag = true;
  55.  부서지다;
  56.  }
  58.  if (! itchk && j == itlen-1)
  59.  {
  60.  flag = false;
  61.  부서지다;
  62.  }
  63.  }
  65.  if (! 플래그)
  66.  {
  67.  경고 (질문 +i +에 대한 답변을 선택하십시오);
  68.  returnfalse;
  69.  }
  71.  }
  72.  if (! 플래그)
  73.  {
  74.  경고 (질문 +i +에 대한 답변을 선택하십시오);
  75.  평가 (e.question+i+.focus ());
  76.  returnfalse;
  77.  }
  78.  returntrue;
  79.  }
  80.  ->
  81.  </스크립트>
  82.  <body>
  83.  <div> <strong> 시나리오 Q & A </strong> </div>
  84.  <formname = frmaction = test_do.aspmethod = postonsubmit = return (chkform ());>
  85.  <p> <br/>
  86.  1. 잊혀진 주인공의 이름은 무엇입니까? <br/>
  87.  <라벨>
  88.  <inputtype = radioname = Question1Value = a/>
  89.  a. </label>
  90.  lan <br/>
  91.  <라벨>
  92.  <inputtype = radioname = Question1value = b/>
  93.  b. </label>
  94.  Jenny <br/> <label>
  95.  <inputtype = radioname = Question1value = c/>
  96.  c. </label> 루시 </p>
  97.  <p> 2. 음악의 과거에 바의 이름은 무엇입니까? <br/>
  98.  <라벨>
  99.  <inputtype = radioname = Question2value = a/>
  100.  a. </label>
  101.  잊혀진 <br/>
  102.  <라벨>
  103.  <inputtype = radioname = Question2value = b/>
  104.  b. </label>
  105.  nv <br/>
  106.  <라벨>
  107.  <inputtype = radioname = Question2value = c/>
  108.  c. </label>
  109.  그림자처럼 </p>
  110.  <p> 3. 잊혀진 사진의 벽에 어떤 사진이 있습니까? <br/>
  111.  <라벨>
  112.  <inputtype = radioname = Question3Value = a/>
  113.  a. </label>
  114.  과거의여 주인공 <br/>
  115.  <라벨>
  116.  <inputtype = radioname = Question3Value = b/>
  117.  b. </label>
  118.  바다의 풍경 <br/>
  119.  <라벨>
  120.  <inputtype = radioname = Question3Value = c/>
  121.  c. </label>
  122.  막대 외부 </p>
  123.  <p> 4. 과거의 주인공이 과거 음악에서 마시는 와인의 이름은 무엇입니까? <br/>
  124.  <라벨>
  125.  <inputtype = radioname = Question4Value = a/>
  126.  a. </label>
  127.  레드 핑크 뷰티 <br/>
  128.  <라벨>
  129.  <inputtype = radioname = Question4Value = b/>
  130.  b. </label>
  131.  일곱색의 무지개 <br/>
  132.  <라벨>
  133.  <inputtype = radioname = Question4Value = c/>
  134.  c. </label>
  135.  코스타 델 Azure </p>
  136.  <p> 5. 건망증에서 Newvision 잡지의 표지는 누구입니까? <br/>
  137.  <라벨>
  138.  <inputtype = radioname = Question5value = a/>
  139.  a. </label> xuanbin <br/>
  140.  <라벨>
  141.  <inputtype = radioname = Question5value = b/>
  142.  b. </label> 비 <br/>
  143.  <라벨>
  144.  <inputtype = radioname = Question5value = c/>
  145.  c. </label> Zhang Dongjian </p>
  146.  <p> 6. 과거 음악의 레코드 이름은 무엇입니까? <br/>
  147.  <라벨>
  148.  <inputtype = radioname = Question6Value = a/>
  149.  a. </label>
  150.  Bewitched <br/>
  151.  <라벨>
  152.  <inputtype = radioname = Question6Value = b/>
  153.  b. </label>
  154.  멋진 <br/>
  155.  <라벨>
  156.  <inputtype = radioname = Question6Value = c/>
  157.  c. </label>
  158.  아름다운 </p>
  159.  <p> 7. 음악의 과거에 바의 벽에 무엇이 쓰여졌습니까? <br/>
  160.  <라벨>
  161.  <inputtype = radioname = Question7Value = a/>
  162.  a. </label>
  163.  loveisbeautiful <br/>
  164.  <label> <inputtype = radioname = Question7Value = b/>
  165.  b. </label>
  166.  TruthIsbeautiful <br/>
  167.  <label> <inputtype = radioname = Question7Value = c/>
  168.  c. </label>
  169.  Smileisbeautiful </p>
  170.  <p> 8. 음악의 과거에 바에는 무엇입니까? <br/>
  171.  <label> <inputtype = radioname = grate8value = a/>
  172.  a. </label>
  173.  gramophone <br/>
  174.  <label> <inputtype = radioname = grate8value = b/>
  175.  b. </label>
  176.  라디오 <br/>
  177.  <label> <inputtype = radioname = grate8value = c/>
  178.  c. </label>
  179.  비닐 레코드 </p>
  180.  <p> 9. 과거 음악에서 남성 주인공의 선호는 무엇입니까? <br/>
  181.  <label> <inputtype = radioname = Question9Value = a/>
  182.  a. </label>
  183.  영화 <br/>
  184.  <label> <inputtype = radioname = Question9Value = b/>
  185.  b. </label>
  186.  사진 <br/>
  187.  <label> <inputtype = radioname = Question9Value = c/>
  188.  c. </label>
  189.  담배와 음악 </p>
  190.  <p> 10. 재사용 대기 시간과 놀라움에서 주인공의 취미는 무엇입니까? <br/>
  191.  <label> <inputtype = radioname = Question10Value = a/>
  192.  a. </label>
  193.  여행 <br/>
  194.  <label> <inputtype = radioname = Question10Value = b/>
  195.  b. </label>
  196.  사진 <br/>
  197.  <label> <inputtype = radioname = Question10Value = c/>
  198.  c. </label>
  199.  온라인으로 가십시오 </p>
  200.  <p> <br/>
  201.  <inputtype = admbername = 제출 value = 제출/
  202.  <br/>
  203.  </p>
  204.  </form>
  205.  </body>
  206.  </html>

다음은 배경 코드 Test_do.asp이며 코드는 다음과 같습니다.

  1.  <%@language = vbscriptCodePage = 936%>
  2.  <!-#includefile = conn.asp->
  3.  <!-#includefile = function.asp->
  4.  <%
  5.  응답 .cachecontrol = no-cache
  6.  응답 .expires = -1
  7.  응답 .expiresabsolute = now () -1
  9.  ifsession (username) = 그런 다음
  10.  response.write (<cript> alert ( '로그인 한 다음 작동!'); window.location = 'login.asp? reurl = nv_scene_test.asp'; </script>)
  11.  응답 ()
  12.  endif
  14.  '정의 옵션의 가장 높은 점수는 총 점수입니다.
  15.  consttotalscore = 100
  16.  constitems = 10
  17.  '옵션 점수 정의
  18.  Dimresult (9)
  19.  '첫 번째 질문에 대한 점수 기준
  20.  결과 (0) = a | 10 | _ | b | 0 | _ | c | 0
  22.  '질문 2의 점수 기준
  23.  결과 (1) = a | 0 | _ | b | 10 | _ | c | 0
  25.  '세 번째 질문 점수 기준
  26.  결과 (2) = a | 10 | _ | b | 0 | _ | c | 0
  28.  '질문 4 ​​점수 표준
  29.  결과 (3) = a | 0 | _ | b | 0 | _ | c | 10
  31.  '질문 5 점수 표준
  32.  결과 (4) = a | 0 | _ | b | 0 | _ | c | 10
  34.  '질문 6 점수 기준
  35.  결과 (5) = a | 10 | _ | b | 0 | _ | c | 0
  37.  '질문 7 점수 기준
  38.  결과 (6) = a | 0 | _ | b | 10 | _ | c | 0
  40.  '질문 8 점수 기준
  41.  결과 (7) = a | 10 | _ | b | 0 | _ | c | 0
  43.  '질문 9 점수 기준
  44.  결과 (8) = a | 0 | _ | b | 0 | _ | c | 10
  46.  '질문 10 번째 점수 기준
  47.  결과 (9) = a | 0 | _ | b | 10 | _ | c | 0
  49.  ''질문 11 점수 기준
  50.  '결과 (10) = a | 0 | _ | b | 0 | _ | c | 10
  51.  '
  52.  ''질문 12 점수 기준
  53.  '결과 (11) = a | 0 | _ | b | 10 | _ | c | 0
  54.  '
  55.  ''질문 13 점수 기준
  56.  '결과 (12) = a | 10 | _ | b | 0 | _ | c | 0
  57.  '
  58.  ``질문 14 번째 점수 기준
  59.  '결과 (13) = a | 0 | _ | b | 10 | _ | c | 0
  60.  '
  61.  ``질문 15 번째 점수 기준
  62.  '결과 (14) = a | 0 | _ | b | 0 | _ | c | 10
  65.  ifucase (request.servervariables (request_method)) = postthen
  66.  callchk_post ()
  67.  Dimi, Total, Selitem, 요약, Strdes, Strout
  68.  총 = 0
  71.  fori = 0to (항목 -1)
  72.  selval = trim (request.form (question & i+1))
  73.  arritem = split (결과 (i), | _ |)
  75.  forj = 0toubound (arritem)
  77.  ifselval = split (arritem (j), |) (0) 그러면
  79.  TotalTotal = Total+Cint (split (arritem (j), |) (1))
  80.  selitemselitem = selitem & <li> 질문 및 i+1 & : & selval & </li> & vbcrlf
  81.  endif
  82.  다음
  83.  다음
  84.  요약 = 형식 (Total/TotalScore)
  86.  if (Total/Totalscore)> = 0.6then
  87.  strdes = 규칙 성 & 요약 & <br> 성공적으로 통과했습니다
  88.  또 다른
  89.  strdes = result & summary & <br> 슬프게도 정확도는 60%에 도달하지 않았습니다. 다시 시도하십시오! <br> <ahref = test.asp '> 온라인 Q & A 페이지로 돌아 가기 >> </a>
  90.  endif
  92.  Strout = youHavEsectedTheSeitemSbelow : <br> & selitem & <br> Total : & Total & <br> 귀하의 정확성은 다음과 같습니다. & Summary
  93.  StroutStrout = Strout & <br> & strdes
  95.  str_sql = selectCount (1) fromUserInfowHerememberId = '& session (id) &'
  96.  rowCount = DataConn.Execute (str_sql) (0)
  98.  ifrowcount> 0then'update 개인 정보가 존재하는 경우
  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.  또 다른
  105.  str_sql = insertIntouserInfo (result, memberid, membername, ip)
  106.  str_sqlstr_sql = str_sql & values ​​( '& formatnumber (Total/Totalscore, 2) &', '& session (id) &', '& session (username) &', '& get_userip () &')
  107.  endif
  108.  DataConn.Execute (str_sql)
  109.  endif
  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.  <헤드>
  116.  <metahttp-equiv = content-typecontent = text/html; charset = gb2312/>
  117.  <title> 온라인 Q & A 테스트 결과 </title>
  118.  <styletype = text/css>
  119.  <!-
  120.  몸{
  121.  글꼴 크기 : 12px;
  122.  색상 :#0066ff;
  123.  }
  124.  입력{
  125.  국경 : 1pxsolid#ffffff;
  126.  배경색 : #eeeee;
  127.  왼쪽 : 1px;
  128.  상단 : 1px;
  129.  오른쪽 : 1px;
  130.  하단 : 1px;
  131.  클립 : rect (10px, 10px, 10px, 10px);
  132.  마진 : 1px;
  133.  패딩 : 1px;
  134.  }
  136.  ->
  137.  </스타일>
  138.  </head>
  140.  <body>
  141.  <%response.write (Strout)%>
  142.  </body>
  143.  </html>

공유 : ASP 오류 개체에 대한 팁
vbscript에는 스크립트 통역사가 런타임 오류를 무시하고 스크립트 코드의 실행을 계속하게하는 ON ERROR 이력서 다음 문이 있습니다. 그런 다음 스크립트는 err.number 속성의 값을 확인하여 오류가 발생했는지 확인할 수 있습니다. 오류가 발생하면 0이 아닌 값이 반환됩니다. ASP 3.0에서는 오류가 발생하여 기본값으로 "돌아 가기"에 사용할 수도 있습니다.

관련 기사