普通来源页面函数:

Request.ServerVariables("HTTP_REFERER")

支持图片调用的,图片内嵌获取来自页面地址方法:

Function GetReferer() '获取页面来路(支持图片调用方式)
If Request.ServerVariables("HTTP_REFERER")<>"" Then 
 GetReferer = Request.ServerVariables("HTTP_REFERER")
Else
 If Len(Request.QueryString) <> 0 Then CanShu = "?" & Request.QueryString
 GetReferer = "http://" & Request.Servervariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") & CanShu
End If
End Function