<!-- メタデータ
TYPE=タイプライブラリ
FILE=C:/プログラム ファイル/共通ファイル/システム/ADO/msado20.tlb
-->
<%@ 言語=VBScript %>
<%明示的なオプション%>
<%
'追加されたファイル
%>
<!-- #include virtual|file=含めるファイル-->
<%
' コードの著作権に関する声明:
'================================================ = ========
'ファイル: ファイル名.asp
' バージョン:1.0
'日付：
脚本：トミー・シャオ
' 説明：
'
'リビジョン：
'日付：
' 著者：
' 説明：
'================================================ = ========
' 著作権 (C) 2003 Asiagame.Com の著作権はすべて留保されます。
ウェブ: http://www.advancededu.com
サポートが必要ですか? 連絡先: [email protected]
'================================================ = ========
%>
<%
'フォールトトレランスメカニズムのコード
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=FALSE
NDEBUG_MSG = TRUE の場合
'エラーフィルタリング
エラー時は次へ再開
終了 IF
'変数の宣言および定義領域
'ブール値エラーのバリアント
Dim Bln 創設者、エラーメッセージ
BlnFounderr = FALSE
'トリガーエラーメッセージ
'sErrmsg=sErrmsg+<br>+<li>必要な情報が見つかりませんでした。ご利用ください。
'BlnFounderr = TRUE
Dim oConn,oRs,sSQL 'ADO オブジェクト
' oConn = Server.CreateObject (ADODB.Connection) を設定します
'oConn.Open Application(connStr)
'トランザクション定義領域
'出力エラー
BlnFounderr = TRUE の場合
mError()
終了の場合
'Func,Proc定義領域
関数 DealInput(exp1)
dim exp2 '無効な文字の入力をフィルタリングします
exp2=置換(exp1,<,<)
exp2=置換(exp2,>,>)
exp2=置換(exp2,','')
exp2=置換(exp2,&,&)
DealInput=exp2
終了機能
関数 CloseDatabase ' CloseDatabase
oConn.close
oConn = 何も設定しない
終了機能
sub mError()
'応答。sErrmsg を書き込み、システム管理者に連絡してください。
応答.write <html> & vbCrLf
response.write <head> & vbCrLf
response.write <title>xxx サイト -- WEB バックグラウンド管理</title> & vbCrLf
response.write <meta NAME=GENERATOR Content=Microsoft Visual Studio 6.0> & vbCrLf
response.write <link rel=stylesheet type=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
応答.write </head> & vbCrLf
応答.write & vbCrLf
response.write <body> & vbCrLf
response.write <table cellpadding=0 cellpacing=0 border=0 width=95% bgcolor=#777777 align=center> & vbCrLf
応答.write <tr> & vbCrLf
応答.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
応答.write </tr> & vbCrLf
応答.write <tr> & vbCrLf
response.write <td width=100% bgcolor=#FFFFFF><b>考えられるエラーの理由:</b><br><br> & vbCrLf
response.write <li>適切な支援が得られるよう、できるだけ早く管理者に連絡してください。 </a> & vbCrLf
応答.write sErrmsg & vbCrLf
応答.書き込み </td> & vbCrLf
応答.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
応答.書き込み </td> & vbCrLf
応答.write </tr> & vbCrLf
応答.write </table> </td></tr></table> & vbCrLf
応答.write </body> & vbCrLf
応答.書き込み </html>
エンドサブ
%>