近手头在写一个根据IP地址返回省份地区的代码，发现在使用纯真ip数据库的时候出现乱码，后发现纯真数据库是居于GBK编码的，而我的整个工程编码都是采用的UTF-8编码，两个走到一起肯定会出现乱码，所以只能改写纯真读取ip的类
<%
'得到访问者IP
public Function getip()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")， "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")， "，") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR")， 1， InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")， "，")-1)
actforip=Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")， ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR")， 1， InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")， ";")-1)
actforip=Request.ServerVariables("REMOTE_ADDR")
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
actforip=Request.ServerVariables("REMOTE_ADDR")
End If
getip = Trim(Mid(strIPAddr， 1， 30))
End Function
' ============================================
' 返回IP地区信息
' ============================================
Function Look_Ip(IP)
Dim Wry， IPType， QQWryVersion， IpCounter
' 设置类对象
Set Wry = New TQQWry
' 开始搜索，并返回搜索结果
' 您可以根据 QQWry(IP) 返回值来判断该IP地址在数据库中是否存在，如果不存在可以执行其他的一些操作
' 比如您自建一个数据库作为追捕等，这里我不详细说明了
IPType = Wry.QQWry(IP)
' Country：地区字段
' LocalStr：省市及其他信息字段
Look_Ip = Wry.Country & " " & Wry.LocalStr
End Function
' ============================================
' 返回QQWry信息
' ============================================
Function WryInfo()
Dim Wry， IPType， QQWry(1)
' 设置类对象
Set Wry = New TQQWry
IPType = Wry.QQWry("255.255.255.255")
' 读取数据库版本信息
QQWry(0) = Wry.Country & " " & Wry.LocalStr
' 读取数据库IP地址数目
QQWry(1) = Wry.RecordCount + 1
WryInfo = QQWry
End Function
' ============================================
' IP物理定位搜索类
' ============================================
Class TQQWry
' ============================================
' 变量声名
' ============================================
Dim Country， LocalStr， Buf， OffSet
Private StartIP， EndIP， CountryFlag
Public QQWryFile
Public FirstStartIP， LastStartIP， RecordCount
Private Stream， EndIPOff
' ============================================
' 类模块初始化
' ============================================