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 =================================
%>