Info110站长资讯网-中国站长的资源库，资讯、代码、教学、评测 - 编程知识 - asp编程 - 自动获取当前页面URL的ASP函数

发表于:2010-5-5 浏览:40 作者: 来源:站长资讯网

关键字:页面URL,ASP函数

描述:自动获取当前页面URL的ASP函数： <%FunctionGetLocationURL()DimUrlDimServerPort,ServerName,ScriptName,QueryStringServerName=Request.ServerVariables("SERVER_NAME")ServerPort=Request.

自动获取当前页面URL的ASP函数：

<% Function GetLocationURL() Dim Url Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") Url="http://"&ServerName If ServerPort <> "80" Then Url = Url & ":" & ServerPort Url=Url&ScriptName If QueryString <>"" Then Url=Url&"?"& QueryString GetLocationURL=Url End Function Response.Write GetLocationURL() %>

查看完整版本: Info110站长资讯网-中国站长的资源库，资讯、代码、教学、评测