dim referurl:referurl=Request.ServerVariables("HTTP_REFERER") '//转向网址
dim strFrom
if referurl = "" then strFrom = "直接输入"
else
select case split(split(referurl,"://")(1),"/")(0)
case "www.baidu.com" strFrom = "百度"
case "www. strFrom = "GOOGLE"
case else strFrom = "网站链接"
end if