如何利用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...

面试题 相关文章推荐
Ibatis如何使用动态表名
Jul 12 面试题
C面试题
Oct 08 面试题
在C++ 程序中调用被C 编译器编译后的函数,为什么要加extern "C"
Aug 09 面试题
不用游标的SQL语句有哪些
Sep 07 面试题
什么是表空间(tablespace)和系统表空间(System tablespace)
Feb 25 面试题
如何为DataGridView添加一个定制的Column Type
Jan 21 面试题
如何查看在weblogic中已经发布的EJB
Jun 01 面试题
十一个高级MySql面试题
Oct 06 面试题
几个判断型的面试题
Jul 03 面试题
Unix如何在一行中运行多个命令
May 29 面试题
Servlet方面面试题
Sep 28 面试题
Java软件工程师综合面试题笔试题
Sep 08 面试题
百度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下几个常用的去空、分组、调试数组函数
2009/02/22 PHP
关于php curl获取301或302转向的网址问题的解决方法
2011/06/02 PHP
php数组函数序列之end() - 移动数组内部指针到最后一个元素,并返回该元素的值
2011/10/31 PHP
php获取301跳转URL简单实例
2013/12/16 PHP
php使用smtp发送支持附件的邮件示例
2014/04/13 PHP
php+js实现异步图片上传实例分享
2014/06/02 PHP
php关联数组与索引数组及其显示方法
2018/03/12 PHP
浅析JQuery中的html(),text(),val()区别
2014/09/01 Javascript
JS小游戏之宇宙战机源码详解
2014/09/25 Javascript
javascript原型链继承用法实例分析
2015/01/28 Javascript
nodejs获取微信小程序带参数二维码实现代码
2017/04/12 NodeJs
浅谈angularjs依赖服务注入写法的注意点
2017/04/24 Javascript
seajs中模块依赖的加载处理实例分析
2017/10/10 Javascript
vue.js计算属性computed用法实例分析
2018/07/06 Javascript
js使用ajax传值给后台,后台返回字符串处理方法
2018/08/08 Javascript
JavaScript时间与时间戳的转换操作实例分析
2018/12/07 Javascript
JavaScript递归函数定义与用法实例分析
2019/01/24 Javascript
vue项目强制清除页面缓存的例子
2019/11/06 Javascript
解决vue单页面 回退页面 keeplive 缓存问题
2020/07/22 Javascript
Node.js 深度调试方法解析
2020/07/28 Javascript
window下eclipse安装python插件教程
2017/04/24 Python
Python实现的十进制小数与二进制小数相互转换功能
2017/10/12 Python
python中的二维列表实例详解
2018/06/19 Python
python爬虫基础教程:requests库(二)代码实例
2019/04/09 Python
python内存监控工具memory_profiler和guppy的用法详解
2019/07/29 Python
PyQt5实现暗黑风格的计时器
2019/07/29 Python
Python安装whl文件过程图解
2020/02/18 Python
浅谈Python中的生成器和迭代器
2020/06/19 Python
Charlotte Tilbury英国官网:英国彩妆品牌
2017/05/26 全球购物
MADE荷兰:提供原创设计师家具
2018/04/03 全球购物
四年级科学教学反思
2014/02/10 职场文书
工作失职造成投诉的检讨书范文
2014/10/05 职场文书
销售内勤岗位职责范本
2015/04/13 职场文书
如何使用vue3打造一个物料库
2021/05/08 Vue.js
Java 中的 Unsafe 魔法类的作用大全
2021/06/26 Java/Android
Go语言grpc和protobuf
2022/04/13 Golang