asp获取当前网址函数-Function GetLocationURL() '获取当前页面的URL Dim Url Dim ServerPort,ServerName,ScriptName,QueryS...

海南网站建设,网页设计
记忆工作中的点滴
首页>> Asp技术 >>asp获取当前网址函数
Function GetLocationURL() '获取当前页面的URL

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

 


×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:不懂戀愛魚兒 » asp获取当前网址函数
标签: asp function 函数 url

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(2)

我喜欢,顶一个!
fred 7年前 (2012-02-12) 回复
呵呵~~~好久没来了,顶一下
www.lansdo.com 8年前 (2011-04-03) 回复