<%
    Call LimitIP()
    Dim BConn
    Sub BDBConnBegin()
     On Error Resume Next
     If IsObject(BConn) Then Exit Sub
     Dim  dbFilePath,dbFileName
     dbFileName = 动网论坛数据库地址，相对于要路径。 [转自：711网络工作室 http://www.tc711.com]

     dbFilePath = Server.MapPath(dbFileName)
     Set BConn = Server.CreateObject("ADODB.Connection")
     BConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFilePath
     If Err Then
      Err.Clear
      BConn.Close
      Set BConn = Nothing
      Response.Write "数据库连接出错，请检查数据库连接文件，如果你是普通用户，请和管理员联系。"
      Response.End
     End If
    End Sub

    Sub BCloseConn()
     If IsObject(BConn) Then
      BConn.Close
      Set BConn = Nothing
     End If
    End Sub

    Sub LimitIP()
     Dim UserIP,i,LimitIPArray,tmpArray,tmpStr
     
     If Application("Site_LockIP") = "" Or Application("Site_LockIP") = Empty Then
      If Not IsObject(BConn) Then Call BDBConnBegin()
      tmpArray = BConn.Execute("Select Forum_LockIP From Dv_Setup")(0)
      Application("Site_LickIP") = tmpArray
      Call BCloseConn()
     Else
      tmpArray = Application("Site_LickIP")
     End If

     UserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
     If UserIP = "" Then UserIP = Request.ServerVariables("REMOTE_ADDR")

     LimitIPArray = Split(tmpArray,"|")
     For i = 0 to UBound(LimitIPArray)
      If UserIP = LimitIPArray(i) Then
       Response.Write "<br><p align='center'>你的IP地址在被禁止的IP地址列表，请和管理员联系。</p>"
       Response.End
      Else
       tmpStr = Left(UserIP,InStrRev(UserIP,"."))
       If tmpStr&"*" = LimitIPArray(i) Then
        Response.Write "<br><p align='center'>你的IP地址在被禁止的IP地址列表，请和管理员联系。</p>"
        Response.End
       End If
      End If
     Next
    End Sub
    %>