获取超链接的方法

来源：百度文库 编辑：神马文学网 时间：2024/04/26 07:42:33
ASP获取当前页面URL地址（带参数）的方法
2008-05-13 17:34
今天周六，本来要写写百度快照不更新的内容；但由于家里的一条小白狗拽拽一直缠着我跳来跳去，再加上今天也是三八妇女节，女朋友要去逛街，所以没时间再来补充文章了；就把我以前写的一篇如何获取当前页面url地址的方法贴到这里吧。
 
以下为原文：
 
今天在写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代码有不足，比如：http://www.cn-pn.com/diary/show.asp?id=853，获取的地址却是http://www.cn-pn.com/diary/show.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
'============================================
获取超链接的方法 超链接全选方法 黑客一句话获取的方法 获取文献的方法，有用！ 去掉超链接的下划线？ 获取键盘上键值的方法 获取网络客户的有效方法 轻松获取免费书籍的方法 20+轻松获取免费书籍的方法 用Excel获取网页内容的方法 10+轻松获取免费书籍的方法 用Excel获取网页内容的方法 获取知识的3种方法 十个简单易行获取快乐的方法 DataGridView获取单元格坐标的方法 获取知识的三种方法 用Excel获取网页内容的方法 获取网络客户的有效方法 轻松获取免费书籍的方法 获取知识的三种方法 获取工作经验的八种方法 用Excel获取网页内容的方法 在WORD中如何实现不用ctrl键，只用鼠标单击打开超链接的方法 如何去掉超链接的下划线？