ASP网址有效性验证_URL验证与访问

<%
******************************
函数：UrlOK(strURL)
参数：strURL,待验证的网址
作者：阿里西西
日期：2007/7/13
描述：验证输入网址是否有效并可以访问
示例：<%=UrlOK(http://www.downcc.com)%>
******************************
Function UrlOK(strURL)
On Error Resume Next
If strURL<> Then
Set objHTTP = CreateObject(MSXML2.XMLHTTP)
objHTTP.Open GET, strURL, FALSE
objHTTP.Send
If instr(objHTTP.statusText,OK) Then
UrlOK = 有效
Else
UrlOK = 无效
End if
Else
UrlOK = 错误:您没有输入网址!
End If
End Function
%>

<%=UrlOK(http://www.downcc.com)%>
测试通过！

正则验证输入网址是否合法的URL
<%
******************************
函数：checkexp(patrn,strng)
参数：patrn 正则表达式；strng 验证字符串
作者：阿里西西
日期：2007/7/13
描述：正则验证输入网址是否合法的URL
示例：<%=checkexp(patrn,strng)%>
******************************
function checkexp(patrn,strng)
dim regex,match
set regex = new regexp 建立正则表达式。
regex.pattern = patrn 设置模式。
regex.ignorecase = true 设置是否区分字符大小写。
regex.global = true 设置全局可用性。
matches = regex.test(strng)
checkexp = matches
end function

%>