1<html>
2<head>
3<title>利用XMLHTTP检测URL及探测服务器信息</title>
4<meta content="EditPlus" name="Generator"/>
5<meta content="JnKc" name="Author"/>
6<meta content="" name="Keywords"/>
7</head>
8<body>
9请输入URL:<input id="jnkcInput" size="40" type="text" value="http://"/><button id="chk">检测</button>
10<div id="jnkc_show"></div>
11<script language="VBScript">
12Dim i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer
13Function chk_onClick()
14jnkcUrl = jnkcInput.value
15Call GetDetail
16i = i+1
17jnkc_show.innerHTML = "<hr><pre><font color=red>" & i & "、" & jnkcUrl & "</font><br>" & jnkcStatus & "</pre>" & jnkc_show.innerHTML
18End Function
19Dim jnkcXMLHTTP
20Sub GetDetail
21Set jnkcXMLHTTP = CreateObject("Microsoft.XMLHTTP")
22jnkcXMLHTTP.OnReadyStateChange = GetRef("GetStatus")
23jnkcXMLHTTP.Open "GET", jnkcUrl, False
24On Error Resume Next
25jnkcXMLHTTP.Send
26Set jnkcXMLHTTP = Nothing
27End Sub
28Sub GetStatus
29If jnkcXMLHTTP.ReadyState <> 4 Then
30Exit Sub
31End If
32If jnkcXMLHTTP.Status = 404 Then
33jnkcStatus = "该网页不存在!"
34ElseIf jnkcXMLHTTP.Status < 200 Then
35jnkcStatus = "客户端错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
36ElseIf jnkcXMLHTTP.Status < 300 Then
37jnkcStatus = "成功,该网页能访问。"
38ElseIf jnkcXMLHTTP.Status < 400 Then
39jnkcStatus = "重定向,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
40ElseIf jnkcXMLHTTP.Status < 500 Then
41jnkcStatus = "客户端错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
42ElseIf jnkcXMLHTTP.Status < 600 Then
43jnkcStatus = "服务器错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
44Else
45jnkcStatus = "域名不可用或网络连接错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
46End If
47If jnkcXMLHTTP.Status < 600 Then Call GetServer
48End Sub
49Sub GetServer
50jnkcServer = jnkcXMLHTTP.GetResponseHeader("Server")
51If jnkcServer <> "" Then
52jnkcStatus = jnkcStatus & "<br>HTTP服务器:" & jnkcServer
53End If
54jnkcStatus = "<b>" & jnkcStatus & "</b><br>所有反馈信息:<br>"& jnkcXMLHTTP.GetAllResponseHeaders
55End Sub
56</script>
57</body>
58</html>
利用XMLHTTP检测URL及探测服务器信息
comments powered by Disqus