ASP Online Вопрос и Ответ Пример кода

Рекомендуется: ASP использует XML, чтобы упаковать указанную папку и загрузить ее в веб -каталог, распаковать сама по себе
'==================================================================================== Файлы '============================== % Опция Явность

Примером кода для онлайн -и ответов ASP является файл HTML, который является test.asp, а код заключается в следующем:

 <%@Language = vbscriptCodepage = 936%>
 <%
 ifsession (имя пользователя) = тогда
 Response.write (<script> alert ('Пожалуйста, войдите в систему и затем выполните операции!
 Response.end ()
 эндиф
 %>
 <! Doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // enshttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
 <htmlxmlns = http: //www.w3.org/1999/xhtml>
 <голова>
 <metahttp-equiv = content-typecontent = text/html; charset = gb2312/>
 <Title> Сценарий Q & A </title>
 <styletype = text/css>
 <!-
 тело{}{
 размер шрифта: 12px;
 Цвет:#0066ff;
 }
 вход{}{
 Граница: 1pxsolid#ffffff;
 фоновый цвет: #eeeee;
 Слева: 1px;
 Верх: 1px;
 Справа: 1px;
 Внизу: 1px;
 Клип: Rect (10px, 10px, 10px, 10px);
 Полевая: 1PX;
 Заполнение: 1px;
 }
 ->
 </style>
 </head>
 <scriptlanguage = javascript>
 <!-
 functionchkform ()
 {
 vare = document.frm;
 varit, flag, я;
 flag = false;
 для (i = 1; i <= 10; i ++)
 {
 variant = eval (e.question+i);
 variantlen = eval (e.question+i+.length);
 for (varj = 0; j <itlen; j ++)
 {
 varitchk = eval (e.question+i+[+j+]. проверен);
 if (itchk)
 {
 flag = true;
 перерыв;
 }
 if (! itchk && j == itlen-1)
 {
 flag = false;
 перерыв;
 }
 }
 if (! Флаг)
 {
 предупреждение (пожалуйста, выберите ответ на вопрос +i +);
 returnfalse;
 }
 }
 if (! Флаг)
 {
 предупреждение (пожалуйста, выберите ответ на вопрос +i +);
 eval (e.question+i+.focus ());
 returnfalse;
 }
 returntrue;
 }
 ->
 </script>
 <тело>
 <div> <strong> сценарий Q & A </strong> </div>
 <formname = frmaction = test_do.aspmethod = postonsubmit = return (chkform ());>
 <p> <br/>
 1. Как называется героиня в забытых и вниз? <br/>
 <Метка>
 <inputType = radiOname = Вопрос1value = a/>
 А. </Label>
 Лан <br/>
 <Метка>
 <inputType = radiOname = Вопрос1value = b/>
 B. </Label>
 Дженни <br/> <babel>
 <inputType = radiOname = Вопрос1value = C/>
 C. </Label> Люси </p>
 <p> 2. Как называется бара в прошлом музыки? <br/>
 <Метка>
 <inputType = radiOname = Вопрос2Value = a/>
 А. </Label>
 Забыто <br/>
 <Метка>
 <inputType = radiOname = Вопрос2Value = b/>
 B. </Label>
 Nv <br/>
 <Метка>
 <inputType = radiOname = Вопрос2Value = C/>
 C. </Label>
 Как тень </p>
 <p> 3. Какие фотографии на стене забытого фото? <br/>
 <Метка>
 <inputType = radiOname = Вопрос3Value = a/>
 А. </Label>
 Героиня прошлого <br/>
 <Метка>
 <inputType = radiOname = Вопрос3Value = b/>
 B. </Label>
 Пейзаж у моря <br/>
 <Метка>
 <inputType = radiOname = obster3value = c/>
 C. </Label>
 Барная экстерьер </p>
 <p> 4. Как называется вина, которое героиня пьет в прошлой музыке? <br/>
 <Метка>
 <inputType = radiOname = Вопрос4Value = a/>
 А. </Label>
 Красная розовая красавица <br/>
 <Метка>
 <inputType = RadiOname = Вопрос4Value = b/>
 B. </Label>
 Семицветная радуга <br/>
 <Метка>
 <inputType = radiOname = Вопрос4Value = C/>
 C. </Label>
 Costa del Azure </p>
 <p> 5. Кто является обложкой журнала Newvision Magazine в забывчивости? <br/>
 <Метка>
 <inputType = radiOname = Вопрос5Value = a/>
 A. </Label> Xuanbin <br/>
 <Метка>
 <inputType = radiOname = Вопрос5Value = b/>
 B. </Label> дождь <br/>
 <Метка>
 <inputType = radiOname = Вопрос5Value = C/>
 C. </Label> Zhang Dongjian </p>
 <p> 6. Как называется запись в прошлом музыки? <br/>
 <Метка>
 <inputType = radiOname = Вопрос6Value = a/>
 А. </Label>
 Пять <br/>
 <Метка>
 <inputType = radiOname = Вопрос6Value = b/>
 B. </Label>
 Замечательно <br/>
 <Метка>
 <inputType = radiOname = Вопрос6Value = c/>
 C. </Label>
 Красивый </p>
 <p> 7. Что написано на стене бара в прошлом музыки? <br/>
 <Метка>
 <inputType = radiOname = Вопрос7Value = a/>
 А. </Label>
 Loveisbeautiful <br/>
 <babel> <inputtype = radioname = obster7value = b/>
 B. </Label>
 Ruthisbeautiful <br/>
 <babel> <inputtype = radioname = obster7value = c/>
 C. </Label>
 Smileisbeautiful </p>
 <p> 8. Что находится на баре в прошлом музыки? <br/>
 <babel> <inputtype = radioname = obster8value = a/>
 А. </Label>
 Граммофон <br/>
 <babel> <inputtype = radioname = obster8value = b/>
 B. </Label>
 Радио <br/>
 <babel> <inputtype = radioname = obster8value = c/>
 C. </Label>
 Виниловые пластинки </p>
 <p> 9. Что является предпочтением главного героя мужчины в прошлой музыке? <br/>
 <babel> <inputtype = radioname = obstervalue = a/>
 А. </Label>
 Фильм <br/>
 <babel> <inputtype = radioname = obster9value = b/>
 B. </Label>
 Фотография <br/>
 <BABEL> <inputType = radiOname = Вопрос9Value = C/>
 C. </Label>
 Табак и музыка </p>
 <p> 10. Каково хобби главного героя в перезарядке и чудесности? <br/>
 <BABEL> <inputType = radiOname = obster10value = a/>
 А. </Label>
 Путешествие <br/>
 <BABEL> <inputType = radiOname = obster10value = b/>
 B. </Label>
 Фотография <br/>
 <babel> <inputtype = radioname = obster10value = c/>
 C. </Label>
 Перейти в Интернете </p>
 <p> <br/>
 <inputType = OpportName = OpportValue = отправить/
 <br/>
 </p>
 </form>
 </body>
 </html>

Ниже приведено фоновый код test_do.asp, код заключается в следующем:

 <%@Language = vbscriptCodepage = 936%>
 <!-#includefile = conn.asp->
 <!-#includefile = function.asp->
 <%
 Response.cachecontrol = no-cache
 Response.expires = -1
 Response.expiresabsolute = теперь ()-1
 ifsession (имя пользователя) = тогда
 Response.write (<script> alert ('пожалуйста, войдите в систему и затем управляйте им!'); Window.location = 'login.asp? Reurl = nv_scene_test.asp'; </script>)
 Response.end ()
 эндиф
 'Самый высокий балл для опции определения - это общий балл
 Consttotalscore = 100
 КАКАКИ = 10
 'Определите оценку опции
 DimResult (9)
 'Критерии оценки первого вопроса
 Результат (0) = A | 10 | _ | B | 0 | _ | C | 0
 'Критерии оценки по вопросу 2
 Результат (1) = a | 0 | _ | B | 10 | _ | C | 0
 'Третий критерии оценки вопросов
 Результат (2) = a | 10 | _ | B | 0 | _ | C | 0
 'Вопрос 4 Стандарт оценки
 Результат (3) = a | 0 | _ | B | 0 | _ | C | 10
 'Вопрос 5 Стандарт оценки
 Результат (4) = a | 0 | _ | B | 0 | _ | C | 10
 'Вопрос 6 Критерии оценки
 Результат (5) = a | 10 | _ | B | 0 | _ | C | 0
 'Вопрос 7 Критерии оценки
 Результат (6) = a | 0 | _ | B | 10 | _ | C | 0
 'Вопрос 8 Критерии оценки
 Результат (7) = A | 10 | _ | B | 0 | _ | C | 0
 'Критерии оценки вопроса 9
 Результат (8) = a | 0 | _ | B | 0 | _ | C | 10
 'Вопрос 10 -й критерии оценки
 Результат (9) = a | 0 | _ | B | 10 | _ | C | 0
 '' Вопрос 11 Критерии оценки
 'Результат (10) = a | 0 | _ | B | 0 | _ | C | 10
 '
 '' Критерии оценки вопроса 12
 'Результат (11) = a | 0 | _ | B | 10 | _ | C | 0
 '
 '' Вопрос 13 Критерии оценки
 'Результат (12) = A | 10 | _ | B | 0 | _ | C | 0
 '
 «Вопрос 14 -й критерии оценки
 'Результат (13) = A | 0 | _ | B | 10 | _ | C | 0
 '
 «Вопрос 15 -й критерии оценки
 'Результат (14) = a | 0 | _ | B | 0 | _ | C | 10
 Ifucase (request.servervariables (request_method)) = postthen
 Callchk_post ()
 DiMi, Total, Selitem, Support, Strdes, Strout
 Всего = 0
 Fori = 0to (элементы-1)
 selval = trim (request.form (obster & i+1))
 arritem = split (результат (i), | _ |)
 Forj = 0toubound (arritem)
 Ifselval = split (arritem (j), |) (0) затем
 TotalTotal = Total+Cint (Split (arritem (j), |) (1))
 selitemelitem = selitem & <li> Вопрос и I+1 &: & Selval & </li> & vbcrlf
 Эндиф
 Следующий
 Следующий
 Сводка = Formatpercent (Total/TotalScore)
 If (total/totalscore)> = 0,6then
 strdes = регулярность и резюме и <br> вы успешно прошли его
 Еще
 strdes = result & summary & <br> К сожалению, ваш показатель точности не достиг 60%. Пожалуйста, попробуйте еще раз! <br> <ahref = test.asp '> вернуться на страницу Q & A в Интернете >> </a>
 Эндиф
 strout = youhaveselectedtheitemsbelow: <br> & selitem & <br> total: & total & <br> Ваша точность: & resmary
 stroutstrout = strout & <br> & strdes
 str_sql = selectcount (1) foruserinfowherememberid = '& session (id) &'
 rowcount = dataConn.execute (str_sql) (0)
 Ifrowcount> 0then'update Личная информация, если она существует
 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 & whenemempirid = '& session (id) &'
 Еще
 str_sql = insertintouserinfo (result, memberid, membername, ip)
 str_sqlstr_sql = str_sql & values ​​('& formatnumber (total/totalscore, 2) &', '& session (id) &', '& session (username) &', '& get_userip () &')
 Эндиф
 DataConn.execute (str_sql)
 Эндиф
 %>
 <! Doctypehtmlpublic-// w3c // dtdxhtml1.0transitional // enshttp: //www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd>
 <htmlxmlns = http: //www.w3.org/1999/xhtml>
 <голова>
 <metahttp-equiv = content-typecontent = text/html; charset = gb2312/>
 <TILE> Результаты теста онлайн и ответов </title>
 <styletype = text/css>
 <!-
 тело{
 размер шрифта: 12px;
 Цвет:#0066ff;
 }
 вход{
 Граница: 1pxsolid#ffffff;
 фоновый цвет: #eeeee;
 Слева: 1px;
 Верх: 1px;
 Справа: 1px;
 Внизу: 1px;
 Клип: Rect (10px, 10px, 10px, 10px);
 Полевая: 1PX;
 Заполнение: 1px;
 }
 ->
 </style>
 </head>
 <тело>
 <%Response.write (strout)%>
 </body>
 </html>

Поделиться: советы по объектам ошибки ASP
В VBScript существует оператор RESUME OR RESUME, который заставляет интерпретатора сценария игнорировать ошибки времени выполнения и продолжить выполнение кода скрипта. Затем скрипт может проверить значение свойства err.number, чтобы определить, произошла ли ошибка. Если возникает ошибка, возвращается ненулевое значение. В ASP 3.0 вы также можете использовать на ошибке GOTO 0, чтобы «повернуть обратно в» по ​​умолчанию