首页 > 编程 > ASP > 正文

ASP、vbscript编码模板

2024-05-04 11:07:52
字体:
来源:转载
供稿:网友
<!-- 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: 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 
%> 
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表