zoukankan      html  css  js  c++  java
  • 利用XMLHTTP检测URL及探测服务器信息

    <html>
    <head>
    <title>利用XMLHTTP检测URL及探测服务器信息</title>
    <META http-equiv=Content-Type content="text/html; charset=gb2312">
    </head>
    <body>
    请输入URL:<input type="text" id="jnkcInput" value="http://" size="40"><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 = "<hr><pre><font color=red>" & i & "、" & jnkcUrl & "</font><br>" & 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
     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 & "<br>HTTP服务器:" & jnkcServer
     End If
     jnkcStatus = "<b>" & jnkcStatus & "</b><br>所有反馈信息:<br>"& jnkcXMLHTTP.GetAllResponseHeaders
    End Sub
    </SCRIPT>
    </body>
    </html>
  • 相关阅读:
    js Validate
    JS
    JS 回车提交,兼容IE、火狐、Opera、Chrome、Safari……
    自动搜索 下拉单
    有符号数和无符号数间的比较.
    结构体指针在函数调用中的实例
    如何计算时间复杂度
    指针和引用的比较
    指针参数是如何传递内存的
    fread函数和fwrite函数,read,write
  • 原文地址:https://www.cnblogs.com/longware/p/13382467.html
Copyright © 2011-2022 走看看