有些时候我们需要获取上一级页面地址，用于判断下来源是否正常，如果来源不是本站就做提示或者转挑，下面青岛星网跟大家分享下：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")
在线QQ：
