您的位置：首页 → 精文荟萃 → 软件资讯 → VBScript编码模板

VBScript编码模板

时间：2004/10/7 19:17:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



　　　　　　　　　　　　代码规范：



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

没有找到您需要的信息，欢迎使用。"
'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,"<","&lt;")
exp2=Replace(exp2,">","&gt;")
exp2=Replace(exp2,"'","''")
exp2=Replace(exp2,"&","&amp;")
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 " " & vbCrLf
response.write " " & vbCrLf
response.write " " & vbCrLf
response.write " " & vbCrLf
response.write " " & vbCrLf
response.write " " & vbCrLf
response.write " " & vbCrLf
response.write "" & vbCrLf
response.write " " & vbCrLf
response.write "" & vbCrLf
response.write " " & vbCrLf
response.write " " & vbCrLf
response.write " " & vbCrLf
response.write "

" & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " 内部管理操作错误信息 产生错误的可能原因： " & vbCrLf response.write " 请您尽快与管理员联系，获得相应地的帮助。" & vbCrLf response.write sErrmsg & vbCrLf response.write " " & vbCrLf response.write " << 返回上一页" & vbCrLf response.write "

" & vbCrLf
response.write " " & vbCrLf
response.write " "
end sub
%>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论