asp 验证输入网址是否有效并可以访问 与正则验证输入

      <%
      '******************************
      '函数：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

      %>