<!-- METADATA
TYPE=typelib
FILE=C:/Program Files/Common Files/System/ADO/msado20.tlb
-->
<%@ Language=VBScript %>
<%Option Explicit%>
<%
'加入的文件
%>
<!-- #include virtual|file=需要包含的檔案-->
<%
'程式碼版權說明:
'================================================== ========
' File: 檔名.asp
' Version:1.0
' Date:
' Script Written by Tommy xiao
' Description:
'
' Revision:
' Date:
' Author:
' Description:
'================================================== ========
' Copyright (C) 2003 Asiagame.Com. All rights reserved.
' Web:http://www.advancededu.com
' Need help? Contact: [email protected]
'================================================== ========
%>
<%
'容錯機製代碼
'--------------------------------
DIM NDEBUG_MSG
NDEBUG_MSG=FALSE
IF NDEBUG_MSG = TRUE THEN
'出錯過濾
ON ERROR RESUME NEXT
END IF
'變數宣告及定義區
'Boolean error variant
Dim BlnFounderr,sErrmsg
BlnFounderr = FALSE
'觸發錯誤訊息
'sErrmsg=sErrmsg+<br>+<li>沒有找到您需要的信息，歡迎使用。
'BlnFounderr = TRUE
Dim oConn,oRs,sSQL 'ADO objects
'Set oConn = Server.CreateObject (ADODB.Connection)
' oConn.Open Application(connStr)
'事務定義區
'輸出錯誤
If BlnFounderr = TRUE Then
mError()
End If
'Func,Proc定義區
Function DealInput(exp1)
dim exp2 'Filter input for invalid characters
exp2=Replace(exp1,<,<)
exp2=Replace(exp2,>,>)
exp2=Replace(exp2,','')
exp2=Replace(exp2,&,&)
DealInput=exp2
End Function
Function CloseDatabase ' CloseDatabase
oConn.close
Set oConn = Nothing
End Function
sub mError()
'Response.Write sErrmsg&please contact system administrator.
response.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
response.write & vbCrLf
response.write </head> & vbCrLf
response.write & vbCrLf
response.write <body> & vbCrLf
response.write <table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=#777777 align=center> & vbCrLf
response.write <tr> & vbCrLf
response.write <td> & vbCrLf
response.write <table cellpadding=3 cellspacing=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
response.write </html>
end sub
%>