Рекомендуется: 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, чтобы «повернуть обратно в» по умолчанию