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