如何利用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探测服务器信息?检测网页
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及探测服务器信息】相关文章
3. XMLHttpRequest对象在IE和Firefox中创建方式有没有不同
4. 介绍一下XMLHttpRequest对象的常用方法和属性
5. 不同浏览器创建XMLHttpRequest方法有什么不同
7. htmlentities() 和 htmlspecialchars()有什么区别
8. XML文档定义有几种形式?它们之间有何本质区别?解析XML文档有哪几种方式?
10. JSP和EJB可以共享HttpSession么?EJB里面可以改变session里面的内容
本文来源:https://www.mianshiwenti.com/a13546.html
进入下载页面
上一篇:什么是Remote Module
下一篇:如何整合JQuery和Prototype
﹝如何利用XMLHTTP检测URL及探测服务器信息﹞相关内容
- HttpServlet类中的主要方法都有哪些?各自的作用是什么?
- 介绍一下如何利用路径遍历进行攻击及如何防范
- 如何利用社交媒体找工作?
- 如何利用cmp命令比较文件
- 如何利用find命令查找文件
- WEB控件及HTML服务端控件能否调用客户端方法?如果能,请解释如何调用?
- Servlet如何得到服务器的信息
- 在Ajax应用中信息是如何在浏览器和服务器之间传递的
- Overload和Override的区别。Overloaded的方法是否可以改变返回值的类型
- 什么是URL