Cls_DB.asp
上传用户:jiajie98
上传日期:2020-04-24
资源大小:1206k
文件大小:2k
- <%
- '==========================================
- '文 件 名:Cls_DB.asp
- '文件用途:数据库函数类
- '版权所有:方卡在线
- '==========================================
- Class Cls_DB
- Private ConnStr
- Private DBpath,DBLink,DBi
- '==============================
- '函 数 名:DB_Conn
- '作 用:数据库连接函数
- '参 数:
- '==============================
- Private Sub DB_Conn()
- On Error Resume Next
- Set Conn = Server.CreateObject("Adodb.Connection")
- ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(SiteData)
- Conn.Open ConnStr
- If Err Then
- Call AspErr()
- End If
- End Sub
- '==============================
- '函 数 名:DB_Open
- '作 用:创建读取对象
- '参 数:
- '==============================
- Public Sub DB_Open()
- Call DB_Conn()
- Set Rs=Server.Createobject("Adodb.RecordSet")
- End Sub
-
- '==============================
- '函 数 名:DB_Close
- '作 用:关闭读取对象
- '参 数:
- '==============================
- Public Sub DB_Close()
- Set Rs=Nothing
- If IsObject(Conn) Then Conn.Close
- Set Conn = Nothing
- End Sub
-
- '==============================
- '函 数 名:AspErr
- '作 用:连接报错
- '参 数:
- '==============================
- Private Sub AspErr()
- DBLink = Request.ServerVariables("url")
- DBLink = Split(DBLink,"/")
- For DBi = 0 To Ubound(DBLink)-1
- DBpath = DBpath&DBLink(DBi)&"/"
- Next
- Err.Clear
- Response.Redirect("Install.asp")
- Response.End
- End Sub
- End Class
- %>