<html><body>
<input type="text" id="jnkcInput" value="http://www.csdn.net" size="50"><button id="chk">检测</button><div id="jnkc_show"></div>
<SCRIPT LANGUAGE="VBScript">
Dim i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer
Function chk_onClick()
jnkcUrl = jnkcInput.value
Call GetDetail
i = i+1
jnkc_show.innerHTML = "<pre>" & jnkcStatus & "</pre>" & 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
If jnkcXMLHTTP.Status = 404 Then
jnkcStatus = "× " & jnkcInput.value
ElseIf jnkcXMLHTTP.Status < 200 Then
jnkcStatus = "≠ " & jnkcInput.value
ElseIf jnkcXMLHTTP.Status < 300 Then
jnkcStatus = "√ " & jnkcInput.value
ElseIf jnkcXMLHTTP.Status < 400 Then
jnkcStatus = "∠ " & jnkcInput.value
ElseIf jnkcXMLHTTP.Status < 500 Then
jnkcStatus = "≠ " & jnkcInput.value
ElseIf jnkcXMLHTTP.Status < 600 Then
jnkcStatus = "〓 " & jnkcInput.value
Else
jnkcStatus = "× " & jnkcInput.value
End If
If jnkcXMLHTTP.Status < 600 Then Call GetServer
End Sub
Sub GetServer
jnkcServer = jnkcXMLHTTP.GetResponseHeader("Server")
End Sub
</SCRIPT>
</body></html>