下载此文档

利用XMLHTTP检测URL及探测服务器信息--.doc

文档分类：IT计算机 | 页数：约3页举报非法文档有奖

1/3

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/3 下载此文档

文档列表 文档介绍

利用XMLHTTP检测URL及探测服务器信息--.doc利用XMLHTTP检测URL及探测服务器信息>>
主要利用了XMLHTTP的一些方法和属性来获取服务器的信息。
XMLHTTP 对象方法和对象属性附于本文后面。
关于状态码的问题,可以见我的另外一篇文档《互联网HTTP连接等出错代码大全》
Develop/Article/16/
<html>
<head>
<title>利用XMLHTTP检测URL及探测服务器信息</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="JnKc">
<meta name="Key i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer
Function chk_onClick()
jnkcUrl =
Call GetDetail
i = i+1
jnkc_shop; i "、" jnkcUrl "</font><br>" jnkcStatus "</pre>" jnkc_sho jnkcXMLHTTP
Sub GetDetail
Set jnkcXMLHTTP = CreateObject("")
= GetRef("GetStatus")
"GET", jnkcUrl, False
On Error Resume Next

Set jnkcXMLHTTP = Nothing
End Sub
Sub GetStatus
If <> 4 Then
Exit Sub
End If
If = 404 Then
jnkcStatus = "该网页不存在!"
ElseIf < 200 Then
jnkcStatus = "客户端错误,信息:" CStr() " "
ElseIf < 300 Then
jnkcStatus = "成功,该网页能访问。"
ElseIf < 400 Then
jnkcStatus = "重定向,信息:" CStr() " "
ElseIf < 500 Then
jn

利用XMLHTTP检测URL及探测服务器信息-- 来自淘豆网www.taodocs.com转载请标明出处.