asp 验证网站是否正常

<%
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.arts58.cn")%>

正则验证输入网址是否合法的URL
<%
'******************************
'函数：checkexp(patrn,strng)
'参数：patrn 正则表达式；strng 验证字符串
'描述：正则验证输入网址是否合法的URL
'示例：<%=checkexp(patrn,strng)%>
<%
function checkexp(patrn,strng)
dim regex,match
set regex = new regexp
regex.pattern = patrn
regex.ignorecase = true
regex.global =