畢業(yè)季優(yōu)秀個(gè)人作文

　　利用XMLHTTP檢測或監測URL，確認某個(gè)網(wǎng)頁(yè)或網(wǎng)站是否可以正常訪(fǎng)問(wèn)?

　　如何利用XMLHTTP探測服務(wù)器信息?檢測網(wǎng)頁(yè)

　　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 = \”該網(wǎng)頁(yè)不存在\”

　　ElseIf XmlHTTP.Status < 200 Then

　　Number = XmlHTTP.Status

　　Description = \”客戶(hù)端錯誤，信息：\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText

　　ElseIf XmlHTTP.Status < 300 Then

　　Number = XmlHTTP.Status

　　Description = \”成功，該網(wǎng)頁(yè)能訪(fǎng)問(wèn)。\”

　　ElseIf XmlHTTP.Status < 400 Then

　　Number = XmlHTTP.Stauts

　　Description = \”重定向，信息：\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText

　　ElseIf XmlHTTP.Status < 500 Then

　　Number = XmlHTTP.Status

　　Description = \”客戶(hù)端錯誤，信息：\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText

　　ElseIf XmlHTTP.Status < 600 Then

　　Number = XmlHTTP.Status

　　Description = \”服務(wù)器錯誤，信息：\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText

　　Else

　　Number = XmlHTTP.Status

　　Description = \”域名不可用或網(wǎng)絡(luò )連接錯誤，信息：\” & 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服務(wù)器：\” & 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

【畢業(yè)季優(yōu)秀個(gè)人作文】相關(guān)文章：

畢業(yè)季作文優(yōu)秀10-22

（精品）畢業(yè)季作文優(yōu)秀12-10

畢業(yè)季優(yōu)秀作文優(yōu)秀（9篇）04-17

畢業(yè)季作文15篇【優(yōu)秀】02-17

畢業(yè)季作文[經(jīng)典]02-05

畢業(yè)季作文06-25

畢業(yè)季的作文02-28

（經(jīng)典）畢業(yè)季作文04-05

畢業(yè)作文《難忘的畢業(yè)季》07-13

畢業(yè)季作文（精）02-24