cls_db.asp

XXX档案美女图片站适合给图片广告的站长下载使用

<%
'──────────────────────────────── 
'功能说明：DataBaseClass类是实现数据库连接的类，里面留有数据库连接字符串接口
'包括模块：无，一般都是被其他模块包括
'调用方法：1、如果使用原有数据库连接，则不用更改数据库连接字符串ConnStr
'             具体操作为：Set DBC=New DataBaseClass
'                         DBC.ConnStr="其他连接字符串"
'          2、方法使用：Set Conn=DBC.OpenConnection()得到一个连接对象
'──────────────────────────────── 
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("SunData/Collect.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
End Sub 
'──────────────────────────────── 
' 类注销 
Private Sub Class_Terminate() 
	ConnStr = Null 
End Sub 
'──────────────────────────────── 
' 建立一个连接 
Public Function OpenConnection() 
	Dim TempConn
	On Error Resume Next
	Set TempConn = Server.CreateObject("ADODB.Connection") 
	TempConn.Open ConnStr 
	Set OpenConnection = TempConn 
	Set TempConn = Nothing 
	if Err.Number <> 0 then
		Response.Write("<script>alert('数据库连接错误！请检查数据库连接文件Inc/Cls_DB.asp是否有错误!');</script>")  
        Response.End
	end if
End Function 
End Class
%>