inc_db_func.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
'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/#4325423324class1.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 =================================
%>