ASP通用数据库操作类源代码(1)

<%
2

'==========================================================================
3 ASP通用数据库操作类源代码(1)

'文件名称：clsDbCtrl.asp
4 ASP通用数据库操作类源代码(1)

'功　　能：数据库操作类
5 ASP通用数据库操作类源代码(1)

'作　　者：coldstone (coldstone[在]qq.com)
6 ASP通用数据库操作类源代码(1)

'程序版本：v1.0.5
7 ASP通用数据库操作类源代码(1)

'完成时间：2005.09.23
8 ASP通用数据库操作类源代码(1)

'修改时间：2007.10.30
9 ASP通用数据库操作类源代码(1)

'版权声明：可以在任意作品中使用本程序代码，但请保留此版权信息。
10 ASP通用数据库操作类源代码(1)

' 如果你修改了程序中的代码并得到更好的应用，请发送一份给我，谢谢。
11 ASP通用数据库操作类源代码(1)

'==========================================================================
12 ASP通用数据库操作类源代码(1)

Dim a : a = CreatConn(0, "master", "localhost", "sa", "") 'MSSQL数据库
14 ASP通用数据库操作类源代码(1)

'Dim a : a = CreatConn(1, "Data/%TestDB%.mdb", "", "", "") 'Access数据库
15 ASP通用数据库操作类源代码(1)

'Dim a : a = CreatConn(1, "E:\MyWeb\Data\%TestDB%.mdb", "", "", "mdbpassword")
16 ASP通用数据库操作类源代码(1)

Dim Conn
17 ASP通用数据库操作类源代码(1)

'OpenConn() '在加载时就建立的默认连接对象Conn,默认使用数据库a
18 ASP通用数据库操作类源代码(1)

Sub OpenConn : Set Conn = Oc(a) : End Sub
19 ASP通用数据库操作类源代码(1)

Sub CloseConn : Co(Conn) : End Sub
20 ASP通用数据库操作类源代码(1)

Function Oc(ByVal Connstr)
22 ASP通用数据库操作类源代码(1)

On Error Resume Next
23 ASP通用数据库操作类源代码(1)

Dim objConn
24 ASP通用数据库操作类源代码(1)

Set objConn = Server.CreateObject("ADODB.Connection")
25 ASP通用数据库操作类源代码(1)

objConn.Open Connstr
26 ASP通用数据库操作类源代码(1)

If Err.number <> 0 Then
27 ASP通用数据库操作类源代码(1)

Response.Write("<div >