草根站长论坛 » 草根网站建设运营 » 根据IP地址自动判断转向分站的代码

admin 发表于 2008-2-3 14:08

根据IP地址自动判断转向分站的代码

Function getIpvalue(clientIP)  '得到客户端 的IP转换成长整型，返回值getIpvalue
5Y1T(X,K@
J!A On Error Resume Next#z;Yv]b9AiKLx]
Dim strIp, array_Ip
#E[i4Ydn strIp=0
7ig K5f_V`&sC array_Ip = Split(clientIP,".")SA5aUR.E
If UBound(array_Ip)<>3 Then
L L.LJK Sc getIpvalue=0
?1R'D SyI Exit FunctionW+Mcy1i#m$R8@@3e
End If%R [ i,N3ph7g
For i=0 To 3
I C&jy Oa,Th-{$BV strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))zC$dRZ)N&iD
Next
~U"P_]RL3Q:^ X getIpvalue=strIp
+@ TO8^H D-v If Err Then getIpvalue=0
)T5SH$H/i+]^.W} End Function&U[:fW4Jg
?
i.Fc@0c'Pg

A|#WWd`$U+\Q9Z ,{g$^Qw1z
  clientIP=request.ServerVariables("REMOTE_HOST")
!w|(f.akcnr]noD1k IpValue=getIpvalue(clientIP)
4AN8F-AaY#r[
vF#c@J ap0c strSql="select top 1 City from [Ipaddress]  where "&IpValue&" between Ip1 and Ip2"
&aD UJ1o/\ Set RsIp=conn.execute(strSql)L(a,U|"CM
| } g
If RsIp.bof and RsIp.eof then*R&K!a"|y7R&[0RX
UrlCity="未知"8v+U ?Sz/} _'L-cfe
ElseB!Sqo3L(q
UrlCity=RsIp.Fields.Item("City").Value"E's)F'[ zz(FE?sq
End IfI Y-Z+O`MW

;]#QP*FBC
@Q          if instr(UrlCity,"广州")<>0 then response.Redirect("http://guangzhou.youname.com")KJ'h#KqQ Dy+Q"C
        if instr(UrlCity,"深圳")<>0 then response.Redirect("http://shenzhen.youname.com")r6["s,yf3D0Mt&^z
        if instr(UrlCity,"上海")<>0 then response.Redirect("http://shanghai.youname.com")6e2S4w1V"MP"LG

sw+dnD| ，IP库网上很多，上面只是其中一种方法.
YkZm^V C)@k P.H6p9b6X|N]
以前用过的，，
0g7O T5jB~!|;u@
X)]p$o2d*E,}$h(c 附件为演示

cvccv 发表于 2008-2-4 00:05

支持一个啊

姐姐和哥哥 发表于 2008-2-15 13:22

呵呵  路过  

u ei~].Zn 支持一下
#FIMK8kZ'Kv 特价啦！！赶快抢购阿！！！ 感谢236z论坛给予的发言机会！Sp;s"b+kO9K
1.8G标准空间 + 200M MYSQL/mssql +200M 邮局  ＝125元/年(赠送200M MYSQL(可独立管R,EE.T {"s|
理)+100M 10用户企业邮箱)[url]http://www.hzfwq.com[/url] QQ:319061118
1i)^3^3L"L P(I 中国合租网缔造您的完美透明空间!

enic 发表于 2008-3-8 19:55

怎么不能下载?

enic 发表于 2008-3-8 19:57

不会吧..

enic 发表于 2008-3-8 19:59

下了三次都没下载成功,咋回事?

78137302 发表于 2008-3-9 04:55

:34: :34:

xuanzhu 发表于 2008-3-9 05:25

3213

213

gr0 发表于 2008-3-9 13:32

:39: :39:

siyunpiao 发表于 2008-7-1 11:03

sfdgdfg :02:

01morning 发表于 2008-7-1 13:40

很象创业，楼主给点意见

http://www.01morning.cn业务咨询QQ:26914196  咨询电话:021-61064860 ,上海清晨网络公司拥用数名多年网站设计人员,多年建设经验,为您提供最专业的网页制作,网站建设,网页设计,域名注册,网站推广,制作网站,设计网站,虚拟主机,租用主机等服务业务咨询QQ:26914196  咨询电话:021-61064860 ,上海清晨网络公司拥用数名多年网站设计人员,多年建设经验,为您提供最专业的网页制作,网站建设,网页设计,域名注册,网站推广,制作网站,设计网站,虚拟主机,租用主机等服务。

CCTV 发表于 2008-7-2 01:45

谢谢楼主````````

查看完整版本: 根据IP地址自动判断转向分站的代码