www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > inc/inc_db_func.asp
<% 'Const CONST_DB_TYPE = 1 'Option Explicit '=================================================================== '= ASP FILENAME : /db_func.asp '= CREATED TIME : MAY,4,2003 '= LAST MODIFIED: AUG,10,2003 '= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com '= DESCRIPTION : DB functions(ADO) '=================================================================== '=============== FUNCTION BODY BEGIN =============================== '================================================================== '= Function : OpenDBConn(ByRef objDBConn) '= Time : Created At May,4,2003 '= Input : 数据库连接对象(按引用方式) '= Output : 数据库连接对象(按引用方式) '= Description : 打开数据库连接(子目录调用函数) '================================================================== Function OpenDBConn(ByRef objDBConn,strDBName) Dim strDBPath,strConnString Set objDBConn = Server.CreateObject("Adodb.Connection") GBL_strDBPath = "db/#4325423324cla3242341.asp" '== db select If CONST_DB_TYPE = 0 Then strDBPath = Server.MapPath(GBL_strHomeUrl & GBL_strDBPath) strConnString = "DBQ=" & strDBPath & ";DRIVER={Microsoft Access Driver (*.mdb)};" ElseIf CONST_DB_TYPE = 1 Then strConnString = "Provider=SQLOLEDB.1;Password=1qaz2wsx3edc;Persist Security Info=True;database=csu;User ID=csu_f;Data Source=61.152.104.41" ElseIf CONST_DB_TYPE = 2 Then strConnString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;database=class;User ID=sa;Data Source=localhost" End If objDBConn.Open strConnString End Function '=============== End of Function OpenDBConn() ===================== '================================================================== '= Function : CloseDBConn(ByRef objDBConn) '= Time : Created At May,4,2003 '= Input : 数据库连接对象(按引用方式) '= Description : 关闭数据库连接,清除连接对象 '================================================================== Function CloseDBConn(ByRef objDBConn) '== Close connection objDBConn.Close '== Cleanup connection object Set objDBConn = nothing End Function '=============== End of Function CloseDBConn ====================== '================================================================== '= Function : OpenRecordSet(ByRef objRS) '= Time : Created At May,4,2003 '= Input : 数据库记录集对象(按引用方式) '= Output : 数据库记录集对象(按引用方式) '= Description : 创建数据库记录集对象 '================================================================== Function OpenRecordSet(ByRef objRS) '== Create a recordset of some connection Set objRS = Server.CreateObject("Adodb.Recordset") End Function '=============== End of Function OpenRecordSet ==================== '================================================================== '= Function : CloserecordSet(ByRef objRS) '= Time : Created At May,4,2003 '= Input : 数据库记录集对象(按引用方式) '= Output : 数据库记录集对象(按引用方式) '= Description : 清除数据库记录集对象 '================================================================== Function CloseRecordSet(ByRef objRS) '== Close a recordset of some connection objRS.Close Set objRS = nothing End Function '=============== End of Function CloseRecordSet ==================== '=============== FUNCTION BODY END ================================= %>