繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 自动获取当前页面URL的ASP函数
- ASP
- 在ASP应用中验证用户身份(2)
- 在ASP应用中验证用户身份(3)
- 在ASP应用中验证用户身份(4)
- 在ASP应用中验证用户身份(5)
- 用ASP开发一个在线考试程序（一）
- 用ASP开发一个在线考试程序（二）
- 用ASP开发一个在线考试程序（三）
- 用ASP开发一个在线考试程序（四）
- 用表单来提交sql - 1
- 用表单来提交sql - 2
- 用表单来提交sql - 3
- 让您的主页支持各种浏览设备（ASP+篇)(上）
- 如何用ASP编写网站统计系统（一）
- 如何用ASP编写网站统计系统（二）
- 如何用ASP编写网站统计系统（三）
- 如何用ASP编写网站统计系统（四）
- 一个免费的邮件列表源程序(一)
- 一个免费的邮件列表源程序(二)
- 一个免费的邮件列表源程序(三)
- 用密码保护页面 (I)
自动获取当前页面URL的ASP函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 63 ::
收藏到网摘: n/a
自动获取当前页面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() %> |
评论 (0) All
