屏蔽地区访问asp源码

<%
userip=Request.ServerVariables(“HTTP_X_FORWARDED_FOR“)
If userip=““ Then userip=Request.ServerVariables(“REMOTE_ADDR“)
Dim objXMLHTTP,xml
Set xml=Server.CreateObject(“Microsoft.XMLHTTP“)
xml.Open “GET“,“http://www.baidu.com/s?wd=“&userip,False
xml.Send
if InStr(xml.responseText,“北京“) then ‘屏蔽的地区,可修改为你要屏蔽的地区
Response.Redirect “http://wapzz.cn“ ‘屏蔽后做出判断跳转至http://wapzz.cn可修改
end if
%>