Class Cls_DB
Private ConnStr
Private DBpathDBLinkDBi
==============================
函 数 名DB_Conn
作 用数据库连接函数
参 数
==============================
Private Sub DB_Conn()
On Error Resume Next
Set Conn = ServerCreateObject("AdodbConnection")
ConnStr="Provider=MicrosoftJetOLEDB;Data Source=" & ServerMapPath(SiteDB)
ConnOpen ConnStr
If Err Then
Call AspErr()
End If
End Sub
==============================
函 数 名DB_Open
作 用创建读取对象
参 数
==============================
Public Sub DB_Open()
Call DB_Conn()
Set Rs=ServerCreateobject("AdodbRecordSet")
End Sub
==============================
函 数 名DB_Close
作 用关闭读取对象
参 数
==============================
Public Sub DB_Close()
Set Rs=Nothing
If IsObject(Conn) Then ConnClose
Set Conn = Nothing
End Sub
=============================
函 数 名AspErr
作 用连接报错
参 数
=============================
Private Sub AspErr()
DBLink = RequestServerVariables("url")
DBLink = Split(DBLink"/")
For DBi = To Ubound(DBLink)
DBpath = DBpath&DBLink(DBi)&"/"
Next
ResponseWrite "<body style=fontsize:px>"
ResponseWrite "错 误 号" & ErrNumber & "<br />"
ResponseWrite "错误描述" & ErrDescription & "<br />"
ResponseWrite "错误来源" & ErrSource & "<br />"
ResponseWrite "</body>"
ErrClear
ResponseEnd
End Sub
End Class
