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
'----------------------------------------------------------------------------2
'函数原型：OpenConn(ByRef dbConn)3
'功能说明：根据指定的数据库路径打开一个连接4
'参数类型：dbConn待打开的数据库连接对象，已经定义的变量5
'返 回 值：无6
'创建日期：2004年5月20日7
'最后修改：2004年5月20日8
'----------------------------------------------------------------------------9
Function OpenConn(ByRef dbConn)10
If TypeName(dbConn)="Connection" Then11
If dbConn.State<>adStateClosed Then dbConn.Close12
dbConn.Open MM_Conn_String13
Exit Function14
End If15
If TypeName(dbConn)="Empty" Then16
Set dbConn=Server.CreateObject("ADODB.Connection")17
dbConn.Open MM_Conn_String18
Else19
Err.Raise vbObjectError+1,"OpenConn(dbConn,strDbPath)","dbConn参数必须是空或者已经存在Connection对象的实例 [" & TypeName(dbConn) & "]"20
End If21
End Function22
'----------------------------------------------------------------------------23
'函数原型：CloseConn(ByRef dbConn)24
'功能说明：关闭指定的连接，并且释放资源25
'参数类型：dbConn待关闭的数据库连接对象，已经定义的变量26
'返 回 值：无27
'创建日期：2004年5月20日28
'最后修改：2004年5月20日29
'----------------------------------------------------------------------------30
Public Function CloseConn(ByRef dbConn)31
If TypeName(dbConn)<>"Connection" Then32
Err.Raise vbObjectError+2,"CloseConn(dbConn)","dbConn参数必须是Connection对象的实例 [" & TypeName(dbConn) & "]"33
End If34
If dbConn.State<>adStateClosed Then dbConn.Close35
Set dbConn=Nothing36
End Function37
'----------------------------------------------------------------------------38
'函数原型：OpenCmd(ByRef cmdTemp,ByRef cnnTemp)39
'功能说明：打开一个Command对象40
'参数类型：cmdTemp 待代开的Command对象41
' cnnTemp 指定的连接对象42
'返 回 值：无43
'创建日期：2004年5月20日44
'最后修改：2004年5月20日45
'----------------------------------------------------------------------------46
Public Function OpenCmd(ByRef cmdTemp,ByRef cnnTemp)47
If TypeName(cnnTemp)<>"Connection" Then48
Err.Raise vbObjectError+7,"OpenCmd()","打开Command对象时未指定正确的Connection对象 [" & TypeName(cnnTemp) & "]"49
Exit Function50
End If51
If cnnTemp.State=adStateClosed Then52
Err.Raise vbObjectError+8,"OpenCmd()","打开Command对象时指定的Connection对象未正确打开"53
Exit Function54
End If55
If TypeName(cmdTemp)="Command" Then56
Set cmdTemp.ActiveConnection=cnnTemp57
cmdTemp.CommandType=adCmdStoredProc58
Exit Function59
End If60
If TypeName(cmdTemp)="Empty" Then61
Set cmdTemp=Server.CreateObject("ADODB.Command")62
Set cmdTemp.ActiveConnection=cnnTemp63
cmdTemp.CommandType=adCmdStoredProc64
Else65
Err.Raise vbObjectError+9,"OpenCmd(cmdTemp,cnnTemp)","OpenCmd函数的cmdTemp参数必须是空或者已经定义的RecordSet对象 [" & TypeName(rstTemp) & "]"66
End If67
End Function68
'----------------------------------------------------------------------------69
'函数原型：CloseCmd(ByRef cmdTemp)70
'功能说明：关闭指定的Command对象并且释放资源71
'参数类型：cmdTemp待关闭的Command对象，已经定义的变量72
'返 回 值：无73
'创建日期：2004年5月20日74
'最后修改：2004年5月20日75
'----------------------------------------------------------------------------76
Public Function CloseCmd(ByRef cmdTemp)77
If TypeName(cmdTemp)<>"Command" Then78
Err.Raise vbObjectError+10,"CloseCmd(cmdTemp)","cmdTemp参数必须是已定义的Command对象 [" & TypeName(dbConn) & "]"79
Else80
Set cmdTemp=Nothing81
End If82
End Function83