ASP、vbscript编码模板分享

发布时间：2023-07-05 14:43:07 所属栏目：Asp教程来源：

导读：

<%@ Language=VBScript %>

<%Option Explicit%>

<%

'加入的文件

%>

<!--

<%@ Language=VBScript %>

<%Option Explicit%>

<%

'加入的文件

%>



<%

'代码版权说明:

'=========================================================

' 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

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!