1、基本原理： 即访问首页时首先通过Request.ServerVariables("REMOTE_ADDR")或Request.ServerVariables("HTTP_X_FORWARDED_FOR")获得访问者所在地的IP地址，然后通过以下函数把IP地址转换成长整型： Function CLngIP(ByVal asNewIP) Dim lnResults Dim lnIndex Dim lnIpAry lnIpAry = Split(asNewIP, ".", 4) For lnIndex = 0 To 3 If Not lnIndex = 3 Then lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex)) End If lnResults = lnResults + lnIpAry(lnIndex) Next CLngIP = lnResults End Function 然后通过与IP库中的IP长整型值大小对比，是否在某个IP段内，然后读出对应的URL值或CityID值，这时即获得了该地区对应的目录或CityID值，然后通过程序让其跳转到此目录或CityID值即完成自动跳转功能。 2、IP库来源： IP库取自纯真060610版，共计26万余IP记录，除去国外IP记录，国内（包括港澳台共21万条记录）。每个省市区默认设置好了对应的目录，除香港以全拼命外其它是以各省市区省会名拼音第一个字母命名，默认CityID均为零，即没有启用CityID自动跳转。为减小库的体积删去了country、city字段。 3、#IP.mdb库默认支持的跳转区域： 目前共包括，4个直辖市，27个省及港台三二地区的IP自动跳转。 为方便大家设置区域的IP跳转，另外提供的库IP_bak.mdb文件中包括按省、直辖市级分好的表，包括4个直辖市，27个省及港台三二地区。若要更改相应目录名或CityID等更改设置可通过以下提供的方法进行设置后，将各表合并为xin35_IP一个表，删除其它表即可。为减小库的体积，设置完后，建议删除country、city字段。 这种方式大家觉得有什么补充的嘛..?多多交流