##################################################################

   　　Public ConnectionString
   　　Public IpAddress
   　　Private DBConn '连接对象，模块级声明
   　　'────────────────────────────────
   　　' 类初始化
   　　Private Sub Class_initialize()
   　　' 这里建立的是通过“数据转换--方法一”生成的mdb 库文件
   　　ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("wry.mdb")
   　　IpAddress = GetClientIP()
   　　Set DBConn = OpenConnection()
   　　End Sub
   　　'────────────────────────────────
   　　' 类注销
   　　Private Sub Class_Terminate()
   　　ConnectionString = Null
   　　IpAddress = Null
   　　DBConn.Close
   　　Set DBConn = Nothing
   　　End Sub
   　　'────────────────────────────────
   　　' 建立一个连接
   　　Private Function OpenConnection()
   　　Dim tmpConn
   　　Set tmpConn=Server.CreateObject("ADODB.Connection")
   　　tmpConn.Open ConnectionString
   　　Set OpenConnection=tmpConn
   　　Set tmpConn=nothing
   　　End Function
   　　'────────────────────────────────
   　　' 执行一个SQL命令，并返回一个数据集对象
   　　Private Function SQLExeCute(strSql)
   　　Dim Rs
   　　Set Rs=DBConn.ExeCute(strSQL)
   　　Set SQLExeCute = Rs
   　　Set Rs=nothing
   　　End Function
   　　'────────────────────────────────