利用XMLHTTP检测网址及探测服务器类型

来源：csdn 时间：2009-04-24 15:12:00　

主要利用了XMLHTTP的一些方法和属性来获取服务器的信息。

以下是全部源代码：

<html>
  <head>
  <title>利用XMLHTTP检测网址及探测服务器类型</title>
  <META     http-equiv=Content-Type     content="text/html;     charset=gb2312">
  <meta     name="Generator"     content="EditPlus">
  <meta     name="Author"     content="JnKc">
  <meta     name="Keywords"     content="">
  </head>
  <body>
  <input     type="text"     id="jnkcInput"     value=http://www.aspxhome.com     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     =     "<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>

标签：XMLHTTP,ajax,服务器

投稿

利用XMLHTTP检测网址及探测服务器类型

猜你喜欢

django数据库自动重连的方法实例

php比较多维数组中值的大小排序实现代码

计算pytorch标准化(Normalize)所需要数据集的均值和方差实例

Keras函数式(functional)API的使用方式

HTML5 Canvas 起步(3) - 颜色与渐变

XHTML 和 DOCTYPE 切换

vue 解决mintui弹窗弹起来,底部页面滚动bug问题

在Mysql存储过程中使用事务实例

在CentOS系统上从零开始搭建WordPress博客的全流程记录

Python Flask框架实现Proteus仿真Arduino与网页数据交互

关于ORACLE通过file_id与block_id定位数据库对象遇到的问题引发的思考

pyinstaller参数介绍以及总结详解

SQL查询连续登陆7天以上的用户的方法实现

两组字符串数据比较合并相同数据

基于Python实现全自动下载抖音视频

MySQL如何查询Binlog 生成时间

python中二分查找法的实现方法

浅谈Python中的生成器和迭代器

老生常谈js中0到底是 true 还是 false

SQL Server的彻底卸载与再次安装方式