ASP获取当前页面完整的URL 代码
<%
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()
%>
发表评论:
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。
相关文章
Asp rs.AddNew不执行的问题2015-02-25
Asp中dateDiff 和instr的用法2013-10-22
Asp中调用Fckeditor.Asp不显示的原因2013-04-01
在Asp中判定某个字段是否包含“文字”2013-03-29
Asp中Replace的正确用法2013-03-28
Asp中复选框查询及判定2013-03-27
Asp 知识汇总2013-03-27
objXmlHttp.send()报“80004005”错误的解决办法2013-03-21
Asp 根据IP跳转到相应国家页面代码2012-11-26
Godaddy Windows主机asp程序连接数据库路径的解决办法2012-10-10