asp代码收集

 1'----------------------------------------------------------------------------
 2'函数原型：OpenConn(ByRef dbConn)
 3'功能说明：根据指定的数据库路径打开一个连接
 4'参数类型：dbConn待打开的数据库连接对象，已经定义的变量
 5'返 回 值：无
 6'创建日期：2004年5月20日
 7'最后修改：2004年5月20日
 8'----------------------------------------------------------------------------
 9Function OpenConn(ByRef dbConn)
10If TypeName(dbConn)="Connection" Then
11If dbConn.State<>adStateClosed Then dbConn.Close
12dbConn.Open MM_Conn_String
13Exit Function
14End If
15If TypeName(dbConn)="Empty" Then
16Set dbConn=Server.CreateObject("ADODB.Connection")
17dbConn.Open MM_Conn_String
18Else
19Err.Raise vbObjectError+1,"OpenConn(dbConn,strDbPath)","dbConn参数必须是空或者已经存在Connection对象的实例 [" & TypeName(dbConn) & "]"
20End If
21End Function
22'----------------------------------------------------------------------------
23'函数原型：CloseConn(ByRef dbConn)
24'功能说明：关闭指定的连接，并且释放资源
25'参数类型：dbConn待关闭的数据库连接对象，已经定义的变量
26'返 回 值：无
27'创建日期：2004年5月20日
28'最后修改：2004年5月20日
29'----------------------------------------------------------------------------
30Public Function CloseConn(ByRef dbConn)
31If TypeName(dbConn)<>"Connection" Then
32Err.Raise vbObjectError+2,"CloseConn(dbConn)","dbConn参数必须是Connection对象的实例 [" & TypeName(dbConn) & "]"
33End If
34If dbConn.State<>adStateClosed Then dbConn.Close
35    Set dbConn=Nothing
36End Function
37'----------------------------------------------------------------------------
38'函数原型：OpenCmd(ByRef cmdTemp,ByRef cnnTemp)
39'功能说明：打开一个Command对象
40'参数类型：cmdTemp 待代开的Command对象
41'               cnnTemp 指定的连接对象
42'返 回 值：无
43'创建日期：2004年5月20日
44'最后修改：2004年5月20日
45'----------------------------------------------------------------------------
46Public Function OpenCmd(ByRef cmdTemp,ByRef cnnTemp)
47If TypeName(cnnTemp)<>"Connection" Then
48Err.Raise vbObjectError+7,"OpenCmd()","打开Command对象时未指定正确的Connection对象 [" & TypeName(cnnTemp) & "]"
49Exit Function
50End If
51If cnnTemp.State=adStateClosed Then
52Err.Raise vbObjectError+8,"OpenCmd()","打开Command对象时指定的Connection对象未正确打开"
53Exit Function
54End If
55If TypeName(cmdTemp)="Command" Then
56Set cmdTemp.ActiveConnection=cnnTemp
57        cmdTemp.CommandType=adCmdStoredProc
58Exit Function
59End If
60If TypeName(cmdTemp)="Empty" Then
61Set cmdTemp=Server.CreateObject("ADODB.Command")
62Set cmdTemp.ActiveConnection=cnnTemp
63        cmdTemp.CommandType=adCmdStoredProc
64Else
65Err.Raise vbObjectError+9,"OpenCmd(cmdTemp,cnnTemp)","OpenCmd函数的cmdTemp参数必须是空或者已经定义的RecordSet对象 [" & TypeName(rstTemp) & "]"
66End If
67End Function
68'----------------------------------------------------------------------------
69'函数原型：CloseCmd(ByRef cmdTemp)
70'功能说明：关闭指定的Command对象并且释放资源
71'参数类型：cmdTemp待关闭的Command对象，已经定义的变量
72'返 回 值：无
73'创建日期：2004年5月20日
74'最后修改：2004年5月20日
75'----------------------------------------------------------------------------
76Public Function CloseCmd(ByRef cmdTemp)
77If TypeName(cmdTemp)<>"Command" Then
78Err.Raise vbObjectError+10,"CloseCmd(cmdTemp)","cmdTemp参数必须是已定义的Command对象 [" & TypeName(dbConn) & "]"
79Else
80            Set cmdTemp=Nothing
81End If
82End Function
83