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


Posted in 面试题 onNovember 10, 2013
利用XMLHTTP检测或监测URL,确认某个网页或网站是否可以正常访问?
如何利用XMLHTTP探测服务器信息?检测网页
Microsoft XML Version 2.0 (C:WinntSystem32msxml.dll)

Option Explicit

Private XmlHTTP As New XMLHTTPRequest
Private vUrl As String
Private vNumber As String
Private vDescription As String
Private vSource As String

Public Sub Connect()

On Error GoTo ErrorHandle:

XmlHTTP.Open \”Get\”, Url, False
XmlHTTP.send

ErrorHandle:
Call GetErrorHeadle(XmlHTTP)
End Sub

Private Sub GetErrorHeadle(ByRef XmlHTTP As XMLHTTPRequest)
If XmlHTTP.readyState 4 Then
Exit Sub
End If

If XmlHTTP.Status = 404 Then
Number = \”404\”
Description = \”该网页不存在\”
ElseIf XmlHTTP.Status Number = XmlHTTP.Status
Description = \”客户端错误,信息:\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText
ElseIf XmlHTTP.Status Number = XmlHTTP.Status
Description = \”成功,该网页能访问。\”
ElseIf XmlHTTP.Status Number = XmlHTTP.Stauts
Description = \”重定向,信息:\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText
ElseIf XmlHTTP.Status Number = XmlHTTP.Status
Description = \”客户端错误,信息:\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText
ElseIf XmlHTTP.Status Number = XmlHTTP.Status
Description = \”服务器错误,信息:\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText
Else
Number = XmlHTTP.Status
Description = \”域名不可用或网络连接错误,信息:\” & CStr(XmlHTTP.Status) & \” \” & XmlHTTP.statusText
End If

If XmlHTTP.Status End Sub

Private Sub GetHTTPServer()
Dim XmlServer As String
XmlServer = XmlHTTP.getResponseHeader(\”Server\”)
If XmlServer \”\” Then
Source = Source & \”HTTP服务器:\” & XmlServer
End If
Source = Source & \”所有反馈信息:\” & XmlHTTP.getAllResponseHeaders
End Sub

Public Property Get Number() As String
Number = vNumber
End Property
Public Property Let Number(ByVal Val As String)
vNumber = Val
End Property

Public Property Get Description() As String
Description = vDescription
End Property
Public Property Let Description(ByVal Val As String)
vDescription = Val
End Property

Public Property Get Url() As String
Url = vUrl
End Property
Public Property Let Url(ByVal Val As String)
vUrl = Val
End Property

Public Property Get Source() As String
Source = vSource
End Property
Private Property Let Source(ByVal Val As String)
vSource = Val
End Property

Tags in this post...

面试题 相关文章推荐
什么是serialVersionUID
Mar 04 面试题
不开辟用于交换数据的临时空间,如何完成字符串的逆序
Dec 02 面试题
介绍一下#error预处理
Sep 25 面试题
关联、聚合(Aggregation)以及组合(Composition)的区别
Feb 29 面试题
一道SQL存储过程面试题
Oct 07 面试题
数据库的约束含义
Sep 09 面试题
上海某公司.net方向笔试题
Sep 14 面试题
亿阳信通股份有限公司笔试题(C#)
Mar 04 面试题
关于.NET, HTML的五个问题
Aug 29 面试题
Java面试题:Java类的Main方法如果是Private将会怎么样
Aug 18 面试题
中科前程Java笔试题
Nov 20 面试题
JAVA招聘远程笔试题
Jul 23 面试题
百度JavaScript笔试题
Jan 15 #面试题
AJax面试题
Nov 25 #面试题
Ajax和javascript的区别
Jul 20 #面试题
在Ajax应用中信息是如何在浏览器和服务器之间传递的
May 31 #面试题
AJAX应用和传统Web应用有什么不同
Aug 24 #面试题
在浏览器端如何得到服务器端响应的XML数据
Nov 24 #面试题
介绍一下XMLHttpRequest对象
Feb 12 #面试题
You might like
PHP 和 MySQL 基础教程(三)
2006/10/09 PHP
Apache, PHP在Windows 9x/NT下的安装与配置 (一)
2006/10/09 PHP
PHP判断是否有Get参数的方法
2014/05/05 PHP
PHP模板引擎Smarty之配置文件在模板变量中的使用方法示例
2016/04/11 PHP
PHP实现留言板功能的详细代码
2017/03/25 PHP
thinkphp框架无限级栏目的排序功能实现方法示例
2020/03/29 PHP
由prototype_1.3.1进入javascript殿堂-类的初探
2006/11/06 Javascript
任意位置显示html菜单
2007/02/01 Javascript
jquery easyui combox一些实用的小方法
2013/12/25 Javascript
动态读取JSON解析键值对的方法
2014/06/03 Javascript
jquery bind(click)传参让列表中每行绑定一个事件
2014/08/06 Javascript
javascript简单判断输入内容是否合法的方法
2016/05/11 Javascript
AngularJS入门教程之 XMLHttpRequest实例讲解
2016/07/27 Javascript
ES6中新增的Object.assign()方法详解
2017/09/22 Javascript
详解Node使用Puppeteer完成一次复杂的爬虫
2018/04/18 Javascript
深入理解移动前端开发之viewport
2018/10/19 Javascript
jquery分页插件pagination使用教程
2018/10/23 jQuery
vue缓存之keep-alive的理解和应用详解
2020/11/02 Javascript
跟老齐学Python之集合(set)
2014/09/24 Python
python实现带错误处理功能的远程文件读取方法
2015/04/29 Python
详解使用pymysql在python中对mysql的增删改查操作(综合)
2017/01/18 Python
解决ROC曲线画出来只有一个点的问题
2020/02/28 Python
CSS3制作彩色进度条样式的代码示例分享
2016/06/23 HTML / CSS
linux面试题参考答案(7)
2014/07/24 面试题
财务专业大学生职业生涯规划范文
2013/12/30 职场文书
最新结婚典礼主持词
2014/03/14 职场文书
GMP办公室主任岗位职责
2014/03/14 职场文书
乔迁之喜答谢词
2015/01/05 职场文书
教导主任个人总结
2015/03/03 职场文书
公司出纳岗位职责
2015/03/31 职场文书
房地产工程部经理岗位职责
2015/04/09 职场文书
导游词之云南省玉龙雪山
2019/12/19 职场文书
MybatisPlus代码生成器的使用方法详解
2021/06/13 Java/Android
教你用Python+selenium搭建自动化测试环境
2021/06/18 Python
python数据可视化JupyterLab实用扩展程序Mito
2021/11/20 Python
python实现手机推送 代码也就10行左右
2022/04/12 Python