ASP获取当前页面URL地址（带参数）的方法
来源：飘易博客 发布时间：2010-01-14 19:40:00
今天在写BLOG的Trackback时，需要用到当前页的URL地址，并且包括?后的所有参数。在网上看到以下的这段ASP代码，它的确可以获取到当前页的URL，包括参数。
'获取当前Url参数的函数
Function GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
M_ItemUrl = ""
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
If InStr(page,M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
end if
GetUrl ="http://"&Request.ServerVariables("Server_Name")&ScriptAddress & M_ItemUrl
End Function
但这段ASP代码有不足，比如：https://www.aspxhome.com/inc/say.asp?id=853，获取的地址却是http://www.aspxhoem.com/inc/say.asp?id=853&，地址后多了个“&”，这是由于它的循环没有处理好。
其实根本没那么费事；以下是我自己加工的ASP代码，短小且功能正常，有需要的朋友就拿去用吧：
'获取当前Url参数的函数
Function GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
if qs<>"" then
GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
else
GetUrl ="http://"& Servername & ScriptAddress
end if
End Function
0
投稿猜你喜欢
- 分页浏览功能是常见的Web应用功能，对于MySQL数据库来说可以很轻松的使用limit语句实现分页，而对于SQL Server数据库来说，常
- 人常常感受到色彩对自己心理的影响，这些影响总是在不知不觉中发挥作用，左右我们的情绪。色彩的心理效应发生在不同层次中。有些属直接的刺激，有些要
- 问题描述时间在我们日常的代码编写中会是经常出现的筛选或排序条件，尤其是一些特殊时间节点的时间显得尤为突出，例如昨天，当前日期，当前月份，当前
- global 属性返回 Boolean 值，指出正则表达式使用的global 标志 (g) 的状态。默认值为 false。只读。rgExp.
- 如果您目前拥有一个冷备份，但是缺少了其中的一个数据文件，但你目前存在所有的归档，如果您要恢复数据文件，可以参考以下的示例：[oracle@j
现在Web页面的交互方式越来越多样化，其中拖放页面元素也是一种很常见的操作。在这类操作当中有两个主要问题需要解决，一个是事件的注册方式，一般- 下载了一个小型的记帐软件，发现这个软件数据库用的是access，很想看看它的数据库结构怎样，结果人家加密了。access的解密小case了，
- 众所周知道，IE向来是我们在制作网页时最难搞定的对手。但又迫于其用户群数量之多，我们不得不想法设法搞定它。下面，将介绍的将是利用其特点而被发
- 如何用数据库制作一个多用户版的计数器？代码和说明如下：count.asp' 计数器的核心程序<％Set c
- 一、Position1、语法：position:static/ absolute / fixed / relative2、参数：（1）sta
- 在内容为主的网站中，搜索框往往是最常用的设计元素之一。从可用性的角度来看，搜索功能是用户有了明确的内容想看的时候最后使用的功能。如果一个网站
- 1.ACCESS查询(query_info):select * from info where stu = name1 and age =
- asp使用fso对象遍历目录及目录下的文件代码：<％@ Language=VBScript ％><％&
- 有些时候我们需要得到刚刚插入数据库中的条目id，用于相关系统的更改，在以前我是使用select+top 1+desc 这种笨方法实现的，在没
- 在网页制作中，表单中的对象总是给人一种单调与沉闷的感觉，比如说按钮、文本框等，它们一成不变的模样与颜色
- 网络上关于各种语言和应用软件的速查手册和快速参考指南有很多很多，不幸的是当我们需要的时候，总是很难找到，所以我决定花点时间尽可能的收集更多的
- 可能很多人都要问，网站的文字还需要设计吗？对于很多的网站来说，字在整个网站的内容中占了80％以上甚至更多，或者换个角度上说，网站可以没有颜色
- 白天总是玩着不看书，这两晚却很神奇地因为睡不着起来看书，正则表达式。很好玩的东西。《Javascript 高级程序设计》是本好书，写得很系统
- 同事在准备新老系统的切换，清空一个表的时候往往发现这个表的主键被另一个表用做外键，而系统里有太多层次的引用.所以清起来相当麻烦用下面这个脚本
- 基本原理使用Adodb.Stream读二进制文件然后进行解析，然后返回一数组第一个元素为类型(BMP JPG PNG GIF SWF)第二个
