畢業季優秀個人作文
利用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
【畢業季優秀個人作文】相關文章：
畢業季作文優秀10-22
（精品）畢業季作文優秀12-10
畢業季優秀作文優秀（9篇）04-17
畢業季作文15篇【優秀】02-17
畢業季作文[經典]02-05
畢業季作文06-25
畢業季的作文02-28
（經典）畢業季作文04-05
畢業作文《難忘的畢業季》07-13
畢業季作文（精）02-24
- 相關推薦