Question

根据IP地址跳转不同页面

如果访问者的IP为***.***.***. 则跳转到www.sina.com.cn如果访问者的IP不为***.***.***. 则跳转到www.baidu.com 请问asp的代码怎么写的 谢谢了！

Answer 1

通用函数：如果不能取客户端真实IP，就会取客户端的代理IP Private 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)

　　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)

　　Else

　　strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

　　End If

　　getIP = Trim(Mid(strIPAddr, 1, 30))

　　End Function
上面方法获取客户端IP地址，然后根据获取到的值做判断。

Answer 2

ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IF ip="" Then ip=Request.ServerVariables("REMOTE_ADDR")

if ip='***.***.***' then
response.Redirect("www.sina.com.cn") else
response.redirect ("www.baidu.com")
end if
end if