小狼的天空

╰小狼╃╃

如何识别网页是否可访问

On Error Resume Next
strURL = "http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Wscript.Echo(objHTTP.statusText)

我们首先将“脚本中心”的 URL 赋给名为 strURL 的变量。接着我们创建了一个实例 MSXML2.XMLHTTP,该实例是一个 COM 对象,它为客户机与 HTTP 服务器的交互提供了一种方法。然后我们调用 Open 方法,向其传递三个参数:GET(指从服务器检索信息)、strURL(保存“脚本中心”主页 URL 的变量)和 FALSE(使调用同步)。之后,我们使用 Send 方法将我们的请求发送到 HTTP 服务器。

那么我们如何知道 http://www.microsoft.com/technet/scriptcenter/default.mspx 是否可访问呢?只需检查 statusText 属性的值即可。如果 statusText 是 OK,则页面可访问;如果不是 OK,则说明某些地方出错了,我们无法访问指定的 URL。

顺便提一句,网页的内容是作为 MSXML2.XMLHTTP 对象的 ResponseText 属性返回的。这意味着您可以使用 FileSystem 对象将页面的内容保存到文件中。例如:

On Error Resume Next
Const ForWriting = 2
strURL="http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("script_center.htm", ForWriting)
objFile.Write objHTTP.ResponseText
objFile.Close

请记住,保存后的文档的格式可能与网页的格式不同,这取决于以下情况:网页使用的是什么样式表,页面使用的是图形的相对链接还是绝对链接等。不过大多数情况下,即使格式有点缺漏,页面也可读。



繁星守侯月不能睡 只因为爱上了夜的黑 这是出动的好时节

posted on 2008-03-04 10:25 李国杰 阅读(123) 评论(0)  编辑  收藏


只有注册用户登录后才能发表评论。


网站导航:
 

导航

<2025年7月>
293012345
6789101112
13141516171819
20212223242526
272829303112
3456789

统计

留言簿

文章档案

搜索

最新评论