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

　　利用XMLHTTP检测URL及探测服务器信息教育资源库 主要利用了XMLHTTP的一些方法和属性来获取服务器的信息。 XMLHTTP 对象方法和对象属性附于本文后面。 关于状态码的问题，可以见我的另外一篇文档《互联网HTTP连接等出错代码大全》 Develop/Article/16/16477.shtm lt;htmlgt; lt;headgt; lt;titlegt;利用XMLHTTP检测URL及探测服务器信息lt;/titlegt; lt;META http-equiv=Content-Type content=text/html; charset=gb2312gt; lt;meta name=Generator content=EditPlusgt; lt;meta name=Author content=JnKcgt; lt;meta name=Key i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer Function chk_onClick() jnkcUrl = jnkcInput.value Call GetDetail i = i+1 jnkc_shop; i 、 jnkcUrl lt;/fontgt;lt;brgt; jnkcStatus lt;/pregt; jnkc_sho jnkcXMLHTTP Sub GetDetail Set jnkcXMLHTTP = CreateObject(Microsoft.XMLHTTP) 　jnkcXMLHTTP.OnReadyStateChange = GetRef(GetStatus) 　jnkcXMLHTTP.Open GET, jnkcUrl, False 　On Error Resume Next 　jnkcXMLHTTP.Send Set jnkcXMLHTTP = Nothing End Sub Sub GetStatus If jnkcXMLHTTP.ReadyState lt;gt; 4 Then 　Exit Sub End If If jnkcXMLHTTP.Status = 404　Then 　jnkcStatus = 该网页不存在！ ElseIf jnkcXMLHTTP.Status lt; 200 Then 　jnkcStatus = 客户端错误，信息： CStr(jnkcXMLHTTP.Status) jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status lt; 300 Then 　jnkcStatus = 成功，该网页能访问。 ElseIf jnkcXMLHTTP.Status lt; 400 Then 　jnkcStatus = 重定向，信息： CStr(jnkcXMLHTTP.Status) jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status lt; 500 Then 　jnkcStatus = 客户端错误，信息： CStr(jnkcXMLHTTP.Status) jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status lt; 600 Then 　jnkcStatus = 服务器错误，信息： CStr(jnkcXMLHTTP.Status) jnkcXMLHTTP.StatusText Else 　jnkcStatus = 域名不可用或网络连接错误，信息： CStr(jnkcXMLHTTP.Status) jnkcXMLHTTP.StatusText End If If jnkcXMLHTTP.Status lt; 600 Then Call GetServer End Sub Sub GetServer jnkcServer = jnkcXMLHTTP.GetResponseHeader(Server) If jnkcServer lt;gt; Then 　jnkcStatus = jnkcStatus lt;brgt;HTTP服务器： jnkcServer End If jnkcStatus = lt;bgt; jnkcStatus lt;/bgt;lt;brgt;所有反馈信息：lt;brgt; jnkcXMLHTTP.GetAllResponseHeaders End Sub lt;/SCRIPTgt; lt;/bodygt; lt;/htmlgt; 另附： ServerXMLHTTP