ASP获取URL链接href标签的值

作者:edwin 日期:2014-04-30

function GetHref(strHTML)
   Dim objRegExp
   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5058

ASP获取当前页面地址Url参数的函数

作者:edwin 日期:2010-06-12

<%'===========================================
'获取当前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
'============================================%>

Tags: 当前页当前页地址地址 URL URL 函数函数 ASP ASP

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 7644

ASP利用XMLHTTP检测网址URL是否可访问

作者:edwin 日期:2010-04-10

ASP利用XMLHTTP检测网址URL是否可访问，网址是否有效，网站是否在线。检测目标网址是否有效。

我借鉴了网上的一个例子：http://topic.csdn.net/t/20020712/00/868049.html

修改之后，做成函数方式，就变成自己的，如下：

<%Function GetUrlStatus(url)
set obj = createObject("Microsoft.XMLHTTP")
On Error Resume Next
obj.Open "get",url,FALSE
obj.Send
if Err.Number <> 0 then
    GetUrlStatus= Err.Description'False
else
    if obj.Status = 200 then
    GetUrlStatus= "OK"'True
    else
    GetUrlStatus= "Maybe down,   returned   status:"   &   obj.Status'False
    end   if
end if
set obj = nothing
End Function%>