ASP获取上一级页面地址方法

有些时候我们需要获取上一级页面地址，用于判断下来源是否正常，如果来源不是本站就做提示或者转挑，下面编程之家跟大家分享下：ASP获取上一级页面地址方法。

上一级来源页面 获取 函数

Request.ServerVariables("HTTP_REFERER")

PublicFunction GetUrl() GetUrl = "http://" &

Request.ServerVariables("SERVER_NAME") If

Request.ServerVariables("SERVER_PORT") <> 80 Then GetUrl = GetUrl

&":" & Request.ServerVariables("SERVER_PORT") GetUrl = GetUrl

& Request.ServerVariables("URL") IfTrim(Request.QueryString)

<>""Then GetUrl = GetUrl &"?" &

Trim(Request.QueryString)EndFunction

下面判断是不是从主面进来

server_vv=len(Request.ServerVariables("SERVER_NAME"))'取得WWW名,不好说大概就是这个意思

server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)'取得本页路径的主HTTP

server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)取得带HTTP名

if server_v1<>server_v2 andserver_v1<>"" andserver_v2<>"" then

response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")

response.end

sServerName =LCase(Request.ServerVariables("SERVER_NAME"))

sReferrerpage =LCase(Request.ServerVariables("HTTP_REFERER"))

'//盗链检测

If InStr(sReferrerPage,sServerName)<1 then

Response.Redirect("/Error.asp?IllegalLink")

End If

本机IP:<%=request.servervariables("remote_addr")%>

服务器名:<%=Request.ServerVariables("SERVER_NAME")%>

服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%>

服务器端口:<%=Request.ServerVariables("SERVER_PORT")%>

IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%>

脚本超时时间:<%=Server.ScriptTimeout%>

本文件路径:<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>

服务器cpu 数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>

服务器解译引擎:<%=ScriptEngine &"/"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."&ScriptEngineBuildVersion %>

服务器操作系统:<%=Request.ServerVariables("OS")%>

支持的文件类型：<%=Request.ServerVariables("HTTP_Accept")%>

访问的文件路径：<%=Request.ServerVariables("HTTP_url")%>

用户代理的信息：<%=Request.ServerVariables("HTTP_USER_AGENT")%>

获取url中的文件名和传过来的值:request.ServerVariables("script_name")+"?"+request.ServerVariableS("QUERY_STRING")