<%dim conn,dbpath,UserIP
sub ConnDatabase
     On Error Resume next
     set conn=server.createobject("adodb.connection")
     DBPath = Server.MapPath("IP.MDB")
     conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
     If Err Then
             err.Clear
             Set Conn = Nothing
             Response.Write "数据库正在更新中，请稍后再试！"
             Response.End
     End If
End Sub

Sub CloseDatabase
     Conn.close
     Set Conn = Nothing
End Sub%>

'-------------------------------------------------
'File: config.asp

<%
Dim User_Agent
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
   
' ============================================
' 获取客户端配置
' ============================================
Public Function ClientInfo(sType)
     If sType = 0 Then
         If InStr(User_Agent, "Windows 98") Then
             ClientInfo = "Windows 98"
         ElseIf InStr(User_Agent, "Win 9x 4.90") Then
             ClientInfo = "Windows ME"
         ElseIf InStr(User_Agent, "Windows NT 5.0") Then
             ClientInfo = "Windows 2000"
         ElseIf InStr(User_Agent, "Windows NT 5.1") Then
             ClientInfo = "Windows XP"
         ElseIf InStr(User_Agent, "Windows NT 5.2") Then
             ClientInfo = "Windows 2003"
         ElseIf InStr(User_Agent, "Windows NT") Then
             ClientInfo = "Windows NT"
         ElseIf InStr(User_Agent, "unix") or InStr(User_Agent, "Linux")   or InStr(User_Agent, "SunOS")   or InStr(User_Agent, "BSD") Then
             ClientInfo = "Unix & Linux"
         Else
             ClientInfo = "Other"
         End If
     ElseIf sType = 1 Then
         If InStr(User_Agent, "MSIE 7") Then
             ClientInfo = "Microsoft^® Internet Explorer 7.0"
         ElseIf InStr(User_Agent, "MSIE 6") Then
             ClientInfo = "Microsoft^® Internet Explorer 6.0"
         ElseIf InStr(User_Agent, "MSIE 5") Then
             ClientInfo = "Microsoft^® Internet Explorer 5.0"
         ElseIf InStr(User_Agent, "MSIE 4") Then
             ClientInfo = "Microsoft^® Internet Explorer 4.0"
         ElseIf InStr(User_Agent, "Netscape") Then
             ClientInfo = "Netscape^®"
         ElseIf InStr(User_Agent, "Opera") Then
             ClientInfo = "Opera^®"
         Else
             ClientInfo = "Other"
         End If
     End If
End Function

' ============================================
' 按照指定的正则表达式替换字符
' ============================================
Public Function RegExpFilter(Patrn, Str, sType, ReplaceWith)
     Dim RegEx
     Set RegEx = New RegExp
     If sType = 1 Then
         RegEx.Global = True
     Else
         RegEx.Global = False
     End If
     RegEx.Pattern = Patrn
     RegEx.IgnoreCase = True
     RegExpFilter = RegEx.Replace(Str, ReplaceWith)
End Function

Public Function ReqIP()
     ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
     If ReqIP = "" or IsNull(ReqIP) Then ReqIP = Request.ServerVariables("REMOTE_ADDR")
End Function
%>