核心代码：
验证输入网址是否有效并可以访问
<%
'******************************
'函数：UrlOK(strURL)
'参数：strURL,待验证的网址
'日期：2007/7/13
'描述：验证输入网址是否有效并可以访问
'示例：<%=UrlOK(//www.jb51.net)%>
'******************************
Function UrlOK(strURL)
On Error Resume Next
If strURL<> Then
Set objHTTP = CreateObject(MSXML2.XMLHTTP)
