关于asp ip地址判断，有了解的吗？

Question

比如现在办公室网络是通过222.222.222.210\222.222.222.211\222.222.222.212,这几个地址代理上的网，办公室的机器址址有的是10.，有的是192.，这样怎么能判断是通过这三个地址连接的，如果是这三个地址的就访问1.html,如果不是通过这三个地址就访问2.html

Answer 1

function getIP() '取真实来源ip的函数getIP=""dim fromip1,fromip2fromip1 = trim(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))&"" '优先取这个来源ipfromip2 = trim(Request.ServerVariables("REMOTE_ADDR"))&""if instr(1,fromip1,",",1) > 0 then '如果是多级代理的话，会有逗号间隔fromip1=split(fromip1,",") '优先取第一个数组元素内容if trim(fromip1(0)) = "" Or left(trim(fromip1(0)),3)="10." or left(trim(fromip1(0)),7)="172.16." or left(trim(fromip1(0)),7)="172.17." or left(trim(fromip1(0)),7)="172.18." or left(trim(fromip1(0)),7)="172.19." or left(trim(fromip1(0)),7)="172.20." or left(trim(fromip1(0)),7)="172.21." or left(trim(fromip1(0)),7)="172.22." or left(trim(fromip1(0)),7)="172.23." or left(trim(fromip1(0)),7)="172.24." or left(trim(fromip1(0)),7)="172.25." or left(trim(fromip1(0)),7)="172.26." or left(trim(fromip1(0)),7)="172.27." or left(trim(fromip1(0)),7)="172.28." or left(trim(fromip1(0)),7)="172.29." or left(trim(fromip1(0)),7)="172.30." or left(trim(fromip1(0)),7)="172.31." or left(trim(fromip1(0)),8)="192.168." thenif trim(fromip1(1)) = "" or left(trim(fromip1(1)),3)="10." or left(trim(fromip1(1)),7)="172.16." or left(trim(fromip1(1)),7)="172.17." or left(trim(fromip1(1)),7)="172.18." or left(trim(fromip1(1)),7)="172.19." or left(trim(fromip1(1)),7)="172.20." or left(trim(fromip1(1)),7)="172.21." or left(trim(fromip1(1)),7)="172.22." or left(trim(fromip1(1)),7)="172.23." or left(trim(fromip1(1)),7)="172.24." or left(trim(fromip1(1)),7)="172.25." or left(trim(fromip1(1)),7)="172.26." or left(trim(fromip1(1)),7)="172.27." or left(trim(fromip1(1)),7)="172.28." or left(trim(fromip1(1)),7)="172.29." or left(trim(fromip1(1)),7)="172.30." or left(trim(fromip1(1)),7)="172.31." or left(trim(fromip1(1)),8)="192.168." thengetIP = fromip2elsegetIP = trim(fromip1(1))end ifelsegetIP = trim(fromip1(0))end ifelseif fromip1 = "" or left(fromip1,3)="10." or left(fromip1,7)="172.16." or left(fromip1,7)="172.17." or left(fromip1,7)="172.18." or left(fromip1,7)="172.19." or left(fromip1,7)="172.20." or left(fromip1,7)="172.21." or left(fromip1,7)="172.22." or left(fromip1,7)="172.23." or left(fromip1,7)="172.24." or left(fromip1,7)="172.25." or left(fromip1,7)="172.26." or left(fromip1,7)="172.27." or left(fromip1,7)="172.28." or left(fromip1,7)="172.29." or left(fromip1,7)="172.30." or left(fromip1,7)="172.31." or left(fromip1,8)="192.168." thengetIP = fromip2elsegetIP = fromip1end ifend ifend functiondim ipip=getip()if ip="222.222.222.210" or ip="222.222.222.211" or ip="222.222.222.210" thenresponse.Redirect ("1.html")elseresponse.Redirect ("2.html")end if

Answer 2

<%Function getIpvalue(clientIP) '得到客户端 的IP转换成长整型，返回值getIpvalueDim strIp, array_IpstrIp=0array_Ip = Split(clientIP,".")If UBound(array_Ip)<>3 ThengetIpvalue=0Exit FunctionEnd IfFor i=0 To 3strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))NextgetIpvalue=strIpIf Err Then getIpvalue=0End FunctionclientIP=request.ServerVariables("REMOTE_HOST")IpValue=getIpvalue(clientIP)strSql="select top 1 City from [Ipaddress] where "&IpValue&" between Ip1 and Ip2"Set RsIp=conn.execute(strSql)If RsIp.bof and RsIp.eof thenUrlCity="未知"ElseUrlCity=RsIp.Fields.Item("City").Value '得到访问者的地理区域End Ifif instr(UrlCity,"ip1") = 1 thenresponse.write 地址1.htmlelseif instr(UrlCity,"ip2") = 1 thenresponse.write 地址2.htmlresponse.endElseresponse.write 地址3.html End If%>自己根据要求修改下，建立三个字段，ip1 ip2 地址

Answer 3

说得乱七八糟实在看到就累！！<%a=Request.ServerVariables("REMOTE_ADDR")%>'''''''''a=ip地址<%If a=你的要求of你的要求of你的要求 Then进入 1.htmlelse否则进入 2.htmlend if%>