脚本宝典收集整理的这篇文章主要介绍了ASP、vbscript编码模板,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
<!-- METADATA
TY
PE="typelib"
FILE="C:\
PRogr
am Files\Common Files\
System\ADO\msado20.tlb"
-->
<%@ Language=
vbScript %>
<%Option E
xplic
IT%>
<%
'加入的文件
%>
<!--
#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,s
SQL '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,"&am
p;","&")
DealInput=exp2
End Function
Function CloseDatabase ' CloseDatabase
oConn.close
Set oConn = Nothing
End Function
s
ub mError()
'Response.Write sErrmsg&"please contact system administrator."
response.write " <ht
ML>" & 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
%>
脚本宝典总结
以上是脚本宝典为你收集整理的ASP、vbscript编码模板全部内容,希望文章能够帮你解决ASP、vbscript编码模板所遇到的问题。
如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。