主要是验证用户输入的字符是否是网址的方法，需要的朋友可以参考一下

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