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

请输入URL： 检测

<script LANGUAGE="VBScript">
Dim i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer
Function chk_onClick()
jnkcUrl = jnkcInput.value
Call GetDetail
i = i+1
jnkc_show.innerHTML = "

---

" & i & "、" & jnkcUrl & "
" & jnkcStatus & "

" & jnkc_show.innerHTML
End Function
Dim 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 <> 4 Then
? Exit Sub
?End If
?If jnkcXMLHTTP.Status = 404? Then
? jnkcStatus = "该网页不存在！"
?ElseIf jnkcXMLHTTP.Status < 200 Then
? jnkcStatus = "客户端错误，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
?ElseIf jnkcXMLHTTP.Status < 300 Then
? jnkcStatus = "成功，该网页能访问。"
?ElseIf jnkcXMLHTTP.Status < 400 Then
? jnkcStatus = "重定向，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
?ElseIf jnkcXMLHTTP.Status < 500 Then
? jnkcStatus = "客户端错误，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
?ElseIf jnkcXMLHTTP.Status < 600 Then
? jnkcStatus = "服务器错误，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
?Else
? jnkcStatus = "域名不可用或网络连接错误，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
?End If
?If jnkcXMLHTTP.Status < 600 Then Call GetServer
End Sub
Sub GetServer
?jnkcServer = jnkcXMLHTTP.GetResponseHeader("Server")
?If jnkcServer <> "" Then
? jnkcStatus = jnkcStatus & "
HTTP服务器：" & jnkcServer
?End If
?jnkcStatus = " " & jnkcStatus & "
所有反馈信息：
"& jnkcXMLHTTP.GetAllResponseHeaders
End Sub
</script>