<!-- МЕТАДАННЫЕ
ТИП=библиотека типов
ФАЙЛ=C:/Program Files/Common Files/System/ADO/msado20.tlb
-->
<%@ Language=VBScript %>
<%Явный параметр%>
<%
'Добавлены файлы
%>
<!-- #include virtual|file=Файл, который нужно включить-->
<%
'Заявление об авторских правах на код:
'============================================== = ========
'Файл: имя_файла.asp
' Версия: 1.0
'Дата:
Сценарий Томми Сяо
' Описание:
'
'Редакция:
'Дата:
' Автор:
' Описание:
'============================================== = ========
' Авторские права (C) Asiagame.Com, 2003 г. Все права защищены.
Веб-сайт: http://www.advancededu.com.
' Нужна помощь? Свяжитесь с нами: [email protected].
'============================================== = ========
%>
<%
'Код механизма отказоустойчивости
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=ЛОЖЬ
ЕСЛИ NDEBUG_MSG = ИСТИНА, ТО
'Фильтрация ошибок
ПРИ ОШИБКЕ ВОЗОБНОВИТЬ СЛЕДУЮЩИЙ
КОНЕЦ ЕСЛИ
'Объявление переменной и область определения
'Вариант логической ошибки
Дим БлнОснователь,sErrmsg
БлнФаундерр = ЛОЖЬ
'Триггерное сообщение об ошибке
'sErrmsg=sErrmsg+<br>+<li>Необходимая информация не найдена, добро пожаловать к использованию.
'BlnFounderr = ИСТИНА
Dim oConn,oRs,sSQL 'объекты ADO
'Установить oConn = Server.CreateObject (ADODB.Connection)
'oConn.Открыть приложение(connStr)
'Область определения транзакции
'Ошибка вывода
Если BlnFounderr = ИСТИНА Тогда
мОшибка()
Конец, если
'Область определения Func,Proc
Функция DealInput(exp1)
dim exp2 'Фильтрация ввода для недопустимых символов
exp2=Заменить(exp1,<,<)
exp2=Заменить(exp2,>,>)
exp2=Заменить(exp2,','')
exp2=Заменить(exp2,&,&)
DealInput=exp2
Конечная функция
Функция CloseDatabase ' CloseDatabase
oКонн.закрыть
Установить oConn = Ничего
Конечная функция
суб mError()
'Ответ.Напишите sErrmsg&пожалуйста, свяжитесь с системным администратором.
response.write <html> и vbCrLf
response.write <head> и vbCrLf
response.write <title>xxx site – фоновое управление веб-сайтом</title> и vbCrLf
response.write <meta NAME=GENERATOR Content=Microsoft Visual Studio 6.0> & vbCrLf
response.write <link rel=тип таблицы стилей=text/css href=css/index.css> & vbCrLf
response.write <script type=text/javascript src=js/fx.js></script> & vbCrLf
response.write <script type=text/javascript src=js/cooltool.js></script> & vbCrLf
ответ.write & vbCrLf
response.write </head> и vbCrLf
ответ.write & vbCrLf
response.write <тело> и vbCrLf
response.write <table cellpadding=0 cellpacing=0 border=0 width=95% bgcolor=#777777 align=center> & vbCrLf
response.write <tr> и vbCrLf
response.write <td> и vbCrLf
response.write <table cellpadding=3 cellpacing=1 border=0 width=100%> & vbCrLf
response.write <tr align=center> и vbCrLf
response.write <td width=100% bgcolor=#EEEEEE>Сообщение об ошибке внутренней операции управления</td> & vbCrLf
response.write </tr> и vbCrLf
response.write <tr> и vbCrLf
response.write <td width=100% bgcolor=#FFFFFF><b>Возможные причины ошибки:</b><br><br> & vbCrLf
response.write <li>Пожалуйста, как можно скорее свяжитесь с администратором для получения соответствующей помощи. </a> и vbCrLf
response.write sErrmsg & vbCrLf
response.write </td> и vbCrLf
response.write </tr> и vbCrLf
response.write <tr align=center> и vbCrLf
response.write <td width=100% bgcolor=#EEEEEE> & vbCrLf
response.write <a href=javascript:history.go(-1)> << Вернуться на предыдущую страницу</a> & vbCrLf
response.write </td> и vbCrLf
response.write </tr> и vbCrLf
response.write </table> </td></tr></table> & vbCrLf
response.write </body> и vbCrLf
ответ.написать </html>
конец субтитра
%>