您现在的位置是：网站首页> 编程资料编程资料
ASP、vbscript编码模板_ASP基础_
2023-05-25
245人已围观
简介 ASP、vbscript编码模板_ASP基础_
<%@ 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,"<","<")
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 " " & vbCrLf
response.write " " & vbCrLf
response.write "
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 "
|
response.write " " & vbCrLf
response.write " "
end sub
%>
您可能感兴趣的文章:
- ASP中一个用VBScript写的随机数类
- 利用vbscript脚本修改文件内容，此适用于自动化的操作中
- asp,VBscript语法错误,史上最全最详细最精确
- vbscript脚本编程教程2利用fso来进行文件操作
- 使用vbscript脚本在表单中进行选择的代码
- 用vbscript脚本实现返回 IP 配置数据的代码
- ASP里面令人震撼地Debug类（VBScript）
- 调试JavaScript/VBScript脚本程序（IE篇）
- JavaScript/VBScript脚本程序调试（Wscript篇）
- 枚举域内计算机个数vbscript脚本（没环境，没测试）
- ASP/VBScript中CHR(0)的由来以及带来的安全问题分析
- ASP(VBScript)中整除和取余
- ASP基础知识VBScript基本元素讲解
- ASP基础入门第四篇(脚本变量、函数、过程和条件语句)
