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

<html>
<head>
<title>利用XMLHTTP检测URL及探测服务器信息</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="hidden" id="jnkcInput1" value="http://baidu1.com">
<input type="hidden" id="jnkcInput2" value="http://baidu2.com">
<input type="hidden" id="jnkcInput3" value="http://baidu3.com">
<input type="hidden" id="jnkcInput4" value="http://baidu4.com">
<button id="chk">检测</button>
<div id="jnkc_show"></div>
<SCRIPT LANGUAGE="VBScript">
Function chk_onClick()
Call Hahaha
End Function

Dim i,g,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer
Sub Hahaha
g=1
for g=1 to 4

‘jnkcUrl = ("jnkcInput"&g).value
jnkcUrl = document.getElementById("jnkcInput"&g).value

Call GetDetail
i = i+1
jnkc_show.innerHTML = "<pre><font color=red>" & i & "、" & jnkcUrl & "</font>" & jnkcStatus & "</pre>" & jnkc_show.innerHTML
next
End Sub 

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>

原文地址:https://www.cnblogs.com/kevinlucky/p/9729125.html

时间: 2024-11-09 09:33:50

利用XMLHTTP检测URL及探测服务器信息的相关文章

开源项目成熟度分析工具-利用github api获取代码库的信息

1.github api github api是http形式的api,功能还是比较丰富的,博主因为项目的原因主要用到的是提取project信息这项功能,返回的数据是JSON格式. api页:https://developer.github.com/v3/ Options: (H) means HTTP/HTTPS only, (F) means FTP only --anyauth Pick "any" authentication method (H) -a, --append Ap

利用put上传文件到服务器

#import "KUViewController.h" #import "KUProgress.h" @interfaceKUViewController ()<NSURLSessionTaskDelegate> //下载进度的类,继承UIview @property (weak, nonatomic) IBOutlet  KUProgress *progressView; @end @implementation KUViewController -

利用RCurl抓取电影团购信息

1 抓取的网址是360团购 http://tuan.360.cn/bei_jing/c_0.html?kw=电影&pageno=1#tuanFilter 2 利用firefox的FireBug插件分析其源代码,如下所示: "//*/h3[@class='desc']" 匹配电影院名称 "//*/span [@class='discount']" 匹配原价 "//*/span [@class='price']" 匹配优惠价 "//

Server对象,HttpServerUtility类,获取服务器信息

在Asp.net WebForm中,Server对象是HttpServerUtility类的实例.看下图: 而在Asp.net MVC中,Server对象是HttpServerUtilityBase对象. 来看下HttpServerUtility类提供的功能.顺便以一个ashx页面来展示一下该类的作用. 一.属性 MachineName  获取服务器的计算机名称. ScriptTimeout 获取和设置请求超时值(以秒计). public void ProcessRequest(HttpCont

C# HttpWebRequest 绝技 根据URL地址获取网页信息

如果要使用中间的方法的话,可以访问我的帮助类完全免费开源:C# HttpHelper,帮助类,真正的Httprequest请求时无视编码,无视证书,无视Cookie,网页抓取 1.第一招,根据URL地址获取网页信息 先来看一下代码 get方法 复制代码 publicstaticstring GetUrltoHtml(string Url,string type) { try { System.Net.WebRequest wReq = System.Net.WebRequest.Create(U

探测服务器存活率和密码

厂商新交付一批设备,给一个用户名密码,领导要求验证一下所有的机器是不是正常运行,用户名密码是不是正确,机房远在天边服务器数量又多,一个一个来肯定是不行的 版本:Python2.7.9 模块:paramiko.multiprocessing 备注:默认使用root用户 #!/usr/bin/env python # coding:utf-8 # 探测服务器存活率和密码 # 此脚本需要配合nmap使用,所以需要在linux环境下 # 运行结束后会在当前目录生成一个at_last文件里面记录列表中机器

接口测试工具-Jmeter使用笔记(三:管理请求服务器信息和Headers参数)

如果使用Jmeter同时执行多个http请求任务,就需要创建多个HTTP取样器,每一个取样器都来手动填写服务器信息和端口号,会非常消耗时间. 解决方法:Jmeter之HTTP请求默认值 1.添加方式 "线程"右键->添加->配置元件->选中HTTP请求默认值 2.配置好服务器IP和端口以后,新建一个HTTP取样器,不填写服务器信息. 3.运行,检查结果. 可以看出该配置元件是作用于整个线程内的,对该线程内的所有HTTP请求都生效. 参数列表: Attribute De

利用Selenium爬取淘宝商品信息

一.  Selenium和PhantomJS介绍 Selenium是一个用于Web应用程序测试的工具,Selenium直接运行在浏览器中,就像真正的用户在操作一样.由于这个性质,Selenium也是一个强大的网络数据采集工具,其可以让浏览器自动加载页面,这样,使用了异步加载技术的网页,也可获取其需要的数据. Selenium模块是Python的第三方库,可以通过pip进行安装: pip3 install selenium Selenium自己不带浏览器,需要配合第三方浏览器来使用.通过help命

华为云 获取 弹性云服务器 信息 python版本

华为云 获取 弹性云服务器 信息 安装SDK SDK 下载地址 https://github.com/huaweicloud/huaweicloud-sdk-python cd pip install -r requirements.txt python3.6 setup.py install 代码 from openstack import connection # create connection username = "hequan" password = "hequ