创建VBScript编码模板

技术文章

创建VBScript编码模板

时间：2009-03-25 点击：1520

<%@ Language=VBScript %>

<%
'=========================================================
'代码版权说明
'=========================================================
' 文件名:
' 版本:
' 日期:
' 作者:
' 说明:
' 修改记录:
'=========================================================
' Copyright (C) 2004 Yzx.Com. All rights reserved.
' Web: http://www.yzx.com
' Need help? Contact: yzx@163.com
'=========================================================

'=========================================================
'强制变量显式声明
'=========================================================
Option Explicit

'=========================================================
'容错机制代码
'=========================================================
DIM NDEBUG_MSG
NDEBUG_MSG=FALSE 'TRUE,FALSE

IF NDEBUG_MSG = TRUE THEN
'出错过滤
ON ERROR RESUME NEXT
End IF

'=========================================================
'变量声明及定义区
'=========================================================
'错误变量
Dim sErrmsg
'ADO连接变量
Dim oConn,ConnStr

'=========================================================
'事务定义区
'=========================================================

'=========================================================
'函数、子过程定义区
'=========================================================
'=========================================================
' 功能：打开数据源
' 参数：SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
' 返回值：
'=========================================================
Sub ConnectionDatabase(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName)
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ConnStr
'数据库连接错误检测
If Err Then
Err.Clear
Set oConn = Nothing
sErrmsg= "数据库连接出错，请检查连接字串。"
mError(sErrmsg)
End If
End Sub

'=========================================================
' 功能：关闭数据源
' 参数：
' 返回值：
'=========================================================
Sub CloseDatabase()
oConn.Close
Set oConn = Nothing
End Sub

'=========================================================
' 功能：输出错误信息
' 参数：sErrmsg
' 返回值：
'=========================================================
Sub mError(sErrmsg)
Response.Write " <html>" & vbCrLf
Response.Write " <head>" & vbCrLf
Response.Write " <title>系统管理</title>" & vbCrLf
Response.Write " <meta NAME=""GENERATOR"" Content=""Microsoft Visual Studio 6.0"">" & vbCrLf
Response.Write " </head>" & vbCrLf
Response.Write "" & vbCrLf
Response.Write " <body>" & vbCrLf
Response.Write " <table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""95%"" bgcolor=""#666666"" 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
%>

asp分位显示位数较长的数字

asp判断奇数和偶数

VBScript和JavaScript的数据共享（JavaScript to VBScript）

实现VBScript和JavaScript的数据共享（VBScript to JavaScript）

实现VBScript和JavaScript的数据共享（Server to Client）

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：