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(SiteDB)
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
Response.Write "
恋爱进行时九游版
恋爱进行时九游版是一款以模拟恋爱玩法为核心的角色扮演手游,精
皇室对决fr(Null’s Royale)
皇室对决fr,即皇室战争的私服变态版本,在该版本中玩家能够拥
养了个猫联机版游戏
养了个猫小游戏一个猫咪主题的模拟经营类型的手游,在游戏中我那
模拟山羊收获日小米版
模拟山羊收获日小米版是一个极其魔性的手机游戏,在游戏中玩家将
女配逆袭之素衣
女配逆袭之素衣是一款恋爱养成冒险的一款游戏,可以角色扮演,在