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
   　　'────────────────────────────────
   　　'IP 效验
   　　Public Function Valid_IP(ByVal IP)
   　　Dim i
   　　Dim dot_count
   　　Dim test_octet
   　　Dim byte_check
   　　IP = Trim(IP)
   　　' 确认IP长度
   　　If Len(IP) < &H08 Then
   　　Valid_IP = False
   　　'显示错误提示
   　　Exit Function
   　　End If
  
   　　i = &H01
   　　dot_count = &H00
   　　For i = 1 To Len(IP)
   　　If Mid(IP, i, &H01) = "." Then
   　　' 增加点的记数值
   　　' 并且设置text_octet 值为空
   　　dot_count = dot_count + &H01
   　　test_octet = ""
   　　If i = Len(IP) Then
   　　' 如果点在结尾则IP效验失败
   　　Valid_IP = False
   　　' 显示错误提示
   　　Exit Function
   　　End If
   　　Else
   　　test_octet = test_octet & Mid(IP, i, &H01)
   　　' 使用错误屏蔽来检查数据段值的正确性
   　　On Error Resume Next
   　　' 进行强制类型转换
   　　' 如果转换失败就可通过检查Err是否为真来确认
   　　byte_check = CByte(test_octet)
   　　If (Err) Then
   　　' 强制类型转换产生错误
   　　' 所取段值的数据不为数值
   　　' 或所取段值的数据长度大于&HFF
   　　' 则类型不为byte类型
   　　' IP 地址的正确性为假
   　　Valid_IP = False
   　　Exit Function
   　　End If
   　　End If
   　　Next