dim curl:curl=request.servervariables("HTTP_REFERER")
dim ip:ip=GetIp()  
dim url,city
url="http://whois.pconline.com.cn/ip.jsp?&ip="&ip
city=getHTTPPage(url)


if instr(curl,"")>0 then
response.redirect "http://"
else
response.Write "网站无法打开"
end if

if instr(curl,"baidu.com")>0 then
response.redirect "http://"
elseif instr(curl,"360.cn")>0 then
response.Write "网站无法打开"
elseif instr(city,"北京")>0 then
response.Write "网站无法打开"
elseif instr(city,"上海")>0 then
response.Write "网站无法打开"
else
response.Write "当前页面"
end if