ASP、vbscript编码模板
2018-09-05 23:38
<!-- METADATA
TYPE=typelib
FILE=C:\Program Files\Common Files\System\ADO\msado20.tlb
-->
<%@ Language=VBScript %>
<%Option Explicit%>
<%
加入的文件
%>
<!-- #include virtualfile=需要包含的文件 -->
<%
代码版权说明:
=========================================================
File: 文件名.asp
Version:1.0
Date:
Script Written by Tommy xiao
Description:
Revision:
Date:
Author:
Description:
=========================================================
Web:
=========================================================
%>
<%
容错机制代码
--------------------------------
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
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
%>
下一篇：存储过程里的递归 实现方法