dim mIPAddr
mIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If mIPAddr = "218.87.193.156" Then
Response.Write ("页面出错"<br>")

Response.redirect("www.baidu.com")
end if
 
 
 
用ASP实现:
在被访网页最上部加入
<%
yourip=Request.ServerVariables("REMOTE_ADDR")
if yourip="111.111.111.111" then
Response.Redirect ("http://www.baidu.com")
end if
%>