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

时间：2026-01-11 15:47:05来源：海平线软件作者：佚名用手机看

扫描二维码随身看资讯

使用手机二维码应用扫描右侧二维码，您可以
1. 在手机上细细品读~
2. 分享给您的微信好友或朋友圈~

<%
******************************
函数：UrlOK(strURL)
参数：strURL,待验证的网址
作者：阿里西西
日期：2007/7/13
描述：验证输入网址是否有效并可以访问
示例：<%=UrlOK()%>
******************************
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()%>
测试通过！

正则验证输入网址是否合法的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