如何利用XMLHTTP检测URL及探测服务器信息

利用XMLHTTP检测或监测URL，确认某个网页或网站是否可以正常访问？
　　 如何利用XMLHTTP探测服务器信息？检测网页
　　 Microsoft XML Version 2.0 (C:WinntSystem32msxml.dll)
　　
　　 Option Explicit
　　
　　 Private XmlHTTP As New XMLHTTPRequest
　　 Private vUrl As String
　　 Private vNumber As String
　　 Private vDescription As String
　　 Private vSource As String
　　
　　 Public Sub Connect()
　　
　　 On Error GoTo ErrorHandle:
　　
　　 XmlHTTP.Open ”Get”, Url, False
　　 XmlHTTP.send
　　
　　 ErrorHandle:
　　 Call GetErrorHeadle(XmlHTTP)
　　 End Sub
　　
　　 Private Sub GetErrorHeadle(ByRef XmlHTTP As XMLHTTPRequest)
　　 If XmlHTTP.readyState 4 Then
　　 Exit Sub
　　 End If
　　
　　 If XmlHTTP.Status = 404 Then
　　 Number = ”404”
　　 Description = ”该网页不存在”
　　 ElseIf XmlHTTP.Status < 200 Then
　　 Number = XmlHTTP.Status
　　 Description = ”客户端错误，信息：” & CStr(XmlHTTP.Status) & ” ” & XmlHTTP.statusText
　　 ElseIf XmlHTTP.Status < 300 Then
　　 Number = XmlHTTP.Status
　　 Description = ”成功，该网页能访问。”
　　 ElseIf XmlHTTP.Status < 400 Then
　　 Number = XmlHTTP.Stauts
　　 Description = ”重定向，信息：” & CStr(XmlHTTP.Status) & ” ” & XmlHTTP.statusText
　　 ElseIf XmlHTTP.Status < 500 Then
　　 Number = XmlHTTP.Status
　　 Description = ”客户端错误，信息：” & CStr(XmlHTTP.Status) & ” ” & XmlHTTP.statusText
　　 ElseIf XmlHTTP.Status < 600 Then
　　 Number = XmlHTTP.Status
　　 Description = ”服务器错误，信息：” & CStr(XmlHTTP.Status) & ” ” & XmlHTTP.statusText
　　 Else
　　 Number = XmlHTTP.Status
　　 Description = ”域名不可用或网络连接错误，信息：” & CStr(XmlHTTP.Status) & ” ” & XmlHTTP.statusText
　　 End If
　　
　　 If XmlHTTP.Status < 600 Then Call GetHTTPServer
　　 End Sub
　　
　　 Private Sub GetHTTPServer()
　　 Dim XmlServer As String
　　 XmlServer = XmlHTTP.getResponseHeader(”Server”)
　　 If XmlServer ”” Then
　　 Source = Source & ”HTTP服务器：” & XmlServer
　　 End If
　　 Source = Source & ”所有反馈信息：” & XmlHTTP.getAllResponseHeaders
　　 End Sub
　　
　　 Public Property Get Number() As String
　　 Number = vNumber
　　 End Property
　　 Public Property Let Number(ByVal Val As String)
　　 vNumber = Val
　　 End Property
　　
　　 Public Property Get Description() As String
　　 Description = vDescription
　　 End Property
　　 Public Property Let Description(ByVal Val As String)
　　 vDescription = Val
　　 End Property
　　
　　 Public Property Get Url() As String
　　 Url = vUrl
　　 End Property
　　 Public Property Let Url(ByVal Val As String)
　　 vUrl = Val
　　 End Property
　　
　　 Public Property Get Source() As String
　　 Source = vSource
　　 End Property
　　 Private Property Let Source(ByVal Val As String)
　　 vSource = Val
　　 End Property

【如何利用XMLHTTP检测URL及探测服务器信息】相关文章

1. 如何利用XMLHTTP检测URL及探测服务器信息

2. 介绍一下XMLHttpRequest对象

3. XMLHttpRequest对象在IE和Firefox中创建方式有没有不同

4. 介绍一下XMLHttpRequest对象的常用方法和属性

5. 不同浏览器创建XMLHttpRequest方法有什么不同

6. 介绍一下HTTP、HTTPS和SSL

7. htmlentities() 和 htmlspecialchars()有什么区别

8. XML文档定义有几种形式？它们之间有何本质区别？解析XML文档有哪几种方式？

9. 在浏览器端如何得到服务器端响应的XML数据

10. JSP和EJB可以共享HttpSession么？EJB里面可以改变session里面的内容

本文来源：https://www.mianshiwenti.com/a13546.html