ASP、vbscript编码模板

<！-- METADATA
TYPE="typelib"
FILE="C:Program FilesCommon FilesSystemADOmsado20.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: xds2000@msn.com
"=========================================================
%>
<%
"容错机制代码
"--------------------------------
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
%>