设为首页

广西经贸职业技术学院论坛

 忘记密码
 免费注册
查看: 1863|回复: 0
打印 上一主题 下一主题

[建站技术]IP转向技术------自动识别IP,并跳转到来访问者所在的城市

[复制链接]
  • TA的每日心情

    2019-8-18 09:37
  • 签到天数: 2 天

    [LV.1]初来乍到

    跳转到指定楼层
    楼主
    发表于 2009-10-16 01:38:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    先去下一个最新的纯真IP数据库,然后按如下操作:
    ! b7 k  i( @- U6 E( S1.运行纯真QQIP数据库里带的ShowIP.exe,点解压,输入文件名,比如IP.txt,确定,就得到一个TXT文件。
    & v7 u1 K1 V0 m" y' g2.打开ACCESS,工具-自定义,命令选项卡,把导入选项拖动到上面的工具栏。 . i2 v4 T9 ]7 R3 }0 U; o) K  l
    3.建库,建一个表,四个字段 4 V( o1 c4 H% b  M1 N; E- Y
    Startip      类型:文本 (相关城市的IP段信息)
    / E4 L5 [( Q+ D; `4 J. p/ [Endip      类型:文本 (相关城市的IP段信息)
    # t" ^" l) c* H$ W" E6 S+ q1 o* W' tCountry      类型:文本 (相关城市名称)
    0 O$ K' S7 z$ t' a' {0 s9 s5 ^ReUrl      类型:文本 (你想要跳转的城市路径如:北京 http://bj.abc.com)* K2 U+ b' B% L# S! S1 @
    4.点导入按钮,文件类型选文本文件,找到刚才导出的IP.txt文件,导入到刚才建的表里~
    2 U. w8 h- i8 f+ G9 c$ H+ X! n运算将真实IP转换为数字,比如北京的IP段是 : 1.1.0.0 -- 1.1.0.255 - t0 [% i4 T0 W* E
    Startip:      1*256*256*256+1*256*256+0*256+0 = 16842752 (这个数字才是最终要放到数据库里)+ x* R5 ], A7 P# L/ [
    Endip:      1*256*256*256+1*256*256+0*256+255 = 16843007 (这个数字才是最终要放到数据库里的)
    7 _+ C$ o( j8 F可用程序批量处理,如果没时间(像我一样)你就直接去下个动网(好像风四也带了)的IP库,它是已经处理好了的,下面是程序部分:
    ( m2 G" @/ H5 l8 M8 z3 luser_ip = Request.ServerVariables("REMOTE_ADDR")      '取得访问者IP* {' x( P$ A3 c  H4 M1 y" l
    userip_ary=split(user_ip,".")
    0 I) K2 ~& c. ?( u( ~3 _- L# @6 Y1 Otmp_userip=userip_ary(0)*256*256*256+userip_ary(1)*256*256+userip_ary(2)*256+userip_ary(3)    ' 按规定转换IP为数字
    # @! Q1 T: ?, U‘从数据库找出用户IP属于的城市
    6 t$ h/ {5 P4 N: [8 T- F4 xset rs=Server.CreateObject("ADODB.Recordset")' O3 J' f0 B% _7 I( i. [9 m0 ^# |
    sql="select * from ip where Startip<="&tmp_userip&" and    Endip>="&tmp_userip            2 q  g$ c8 r( |9 \! I8 M
    rs.open sql,conn,1,1) p& R8 Y9 ]# J
    if rs.eof then
    8 o3 z5 f# o, v( x( ~# \response.redirect "index.asp"        ’如果没有该城市或是IP无法识别则转到首页,也可以指定页面
    " ~* t3 [% Q) M; X* ~. W% m9 P8 Delse2 G" v6 k8 P0 x* c5 @) e; q# ]
    response.redirect rs("ReUrl")                  ’如果有转到指定页面: Z+ Q- Y& l- a* S1 N$ J
    end if
    * ]+ F# \, s# H- q! wrs.close2 E( c, I6 w7 X0 d
    set rs=nothing/ E( B$ K$ w7 w6 R- R; f+ p
    将上面的程序放到你的虚拟主机默认访问首页里!或是其它的页面里(当然你同样要在虚拟主机控制面板里设置默认首先访问的是这个文件)
    常上飞翔,梦想飞扬!经贸是我家,建设靠大家~ 人们都说:不在大学论坛里灌过水的大学都像是没读过大学~
    您需要登录后才可以回帖 登录 | 免费注册

    本版积分规则

    QQ|版主考核中心|飞翔无限『经贸在线』 ( 桂ICP备15001539号-2  

    GMT+8, 2025-11-5 17:58

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

    快速回复 返回顶部 返回列表