cls_db1.asp

在线网络测速在线网络测速在线网络测速在线网络测速

<%
'──────────────────────────────── 
'功能说明：DataBaseClass类是实现数据库连接的类，里面留有数据库连接字符串接口
'包括模块：无，一般都是被其他模块包括
'调用方法：1、如果使用原有数据库连接，则不用更改数据库连接字符串ConnStr
'             具体操作为：Set DBC=New DataBaseClass
'                         DBC.ConnStr="其他连接字符串"
'          2、方法使用：Set Conn=DBC.OpenConnection()得到一个连接对象
'──────────────────────────────── 
Session.Timeout		 = 300
Server.ScriptTimeOut = 10000    '设置脚本超时 
Dim CharIndexStr
Const IsSqlDataBase=0
If IsSqlDataBase=0 Then
	CharIndexStr="Mid"
Else
	CharIndexStr="Substring"
End If
Class DataBaseClass
	'──────────────────────────────── 
	'定义变量 
	Private IConnStr 
	'──────────────────────────────── 
	' ConnStr属性
	Public Property Let ConnStr(Val)
		IConnStr = Val
	End Property
	'──────────────────────────────── 
	' ConnStr属性 
	Public Property Get ConnStr()
		ConnStr = IConnStr
	End Property
	'──────────────────────────────── 
	' 类初始化 
	Private Sub Class_initialize()
		ConnStr = "DBQ=" + Server.MapPath("FooSunData/Collect.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
	End Sub 
	'──────────────────────────────── 
	' 类注销 
	Private Sub Class_Terminate() 
		ConnStr = Null 
	End Sub 
	'──────────────────────────────── 
	' 建立一个连接 
	Public Function OpenConnection() 
		Dim TempConn
		Err.Clear
		'On Error Resume Next
		Set TempConn = Server.CreateObject(G_FS_CONN)
		TempConn.Open ConnStr 
		Set OpenConnection = TempConn 
		Set TempConn = Nothing
		if Err.Number <> 0 Then
			'response.write Err.description
			'response.end
			Response.Write("<font size=""2"">[数据库连接错误]<br>请检查系统参数设置>>站点常量设置,或者/FS_Inc/const.asp文件!</font>")  
			Response.End
		end if
	End Function 
End Class
%>