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

面试题 相关文章推荐
程序运行正确, 但退出时却"core dump"了,怎么回事
Feb 19 面试题
数据库笔试题
May 09 面试题
几个数据库方面的面试题
Jul 01 面试题
一些.net面试题
Oct 06 面试题
委托与事件是什么关系?为什么要使用委托
Apr 18 面试题
一套C#面试题
Oct 09 面试题
解释一下钝化(Swap out)
Dec 26 面试题
MYSQL支持事务吗
Aug 09 面试题
腾讯公司的一个sql题
Jan 22 面试题
Java面试笔试题大全
Nov 23 面试题
servlet面试题
Aug 20 面试题
国外的一些J2EE面试题一
Oct 13 面试题
百度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
使用sockets:从新闻组中获取文章(二)
2006/10/09 PHP
phpMyAdmin 安装及问题总结
2009/05/28 PHP
php观察者模式应用场景实例详解
2017/02/03 PHP
dojo 之基础篇(二)之从服务器读取数据
2007/03/24 Javascript
Js callBack 返回前一页的js方法
2008/11/30 Javascript
jquery select(列表)的操作(取值/赋值)
2009/08/06 Javascript
了解一点js的Eval函数
2012/07/26 Javascript
jQuery lazyLoad图片延迟加载插件的优化改造方法分享
2013/08/13 Javascript
如何解决Jquery库及其他库之间的$命名冲突
2013/09/15 Javascript
实例分析js和C#中使用正则表达式匹配a标签
2014/11/26 Javascript
Javascript 中创建自定义对象的方法汇总
2014/12/04 Javascript
Java Mybatis框架入门基础教程
2015/09/21 Javascript
总结JavaScript中布尔操作符||与&&的使用技巧
2015/11/17 Javascript
JavaScript小技巧整理
2015/12/30 Javascript
js停止冒泡和阻止浏览器默认行为的简单方法
2016/05/15 Javascript
浅谈jquery中next与siblings的区别
2016/10/27 Javascript
Node.js 8 中的 util.promisify的详解
2017/06/12 Javascript
JS设计模式之数据访问对象模式的实例讲解
2017/09/30 Javascript
jQuery中的for循环var与let的区别
2018/04/21 jQuery
解决layer.confirm选择完之后消息框不消失的问题
2019/09/16 Javascript
Vue组件为什么data必须是一个函数
2020/06/11 Javascript
js实现星星打分效果
2020/07/05 Javascript
js屏蔽F12审查元素,禁止修改页面代码等实现代码
2020/10/02 Javascript
Python中摘要算法MD5,SHA1简介及应用实例代码
2018/01/09 Python
基于Python实现的微信好友数据分析
2018/02/26 Python
python 实现批量xls文件转csv文件的方法
2018/10/23 Python
python中的&&及||的实现示例
2019/08/07 Python
python cv2.resize函数high和width注意事项说明
2020/07/05 Python
python 如何利用argparse解析命令行参数
2020/09/11 Python
手把手教你用Django执行原生SQL的方法
2021/02/18 Python
html5 Canvas画图教程(2)—画直线与设置线条的样式如颜色/端点/交汇点
2013/01/09 HTML / CSS
美国钻石商店:Zales
2016/11/20 全球购物
Bitiba意大利:在线宠物商店
2020/10/31 全球购物
师德师风自查总结
2014/10/14 职场文书
教师读书笔记
2015/06/29 职场文书
浅析InnoDB索引结构
2021/04/05 MySQL