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

面试题 相关文章推荐
会话Bean的种类
Nov 07 面试题
Java中实现多态的机制
Aug 09 面试题
是什么让J2EE适合用来开发多层的分布式的应用
Jan 16 面试题
如何在发生故障的节点上重新安装 SQL Server
Mar 14 面试题
创建索引时需要注意的事项
May 13 面试题
NET程序员上机面试题
May 23 面试题
介绍一下常见的木马种类
Nov 15 面试题
abstract是什么意思
Feb 12 面试题
几个Linux面试题笔试题
Aug 01 面试题
Linux的主要特性
Oct 06 面试题
JDBC操作数据库的基本流程是什么
Oct 28 面试题
中软国际Java程序员笔试题
Jul 19 面试题
百度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 __autoload函数(自动载入类文件)的使用方法
2012/02/04 PHP
PHP人民币金额数字转中文大写的函数代码
2013/02/27 PHP
php 表单提交大量数据发生丢失的解决方法
2014/03/03 PHP
php输出全球各个时区列表的方法
2015/03/31 PHP
PHP+redis实现的购物车单例类示例
2019/02/02 PHP
PHP预定义接口――Iterator用法示例
2020/06/05 PHP
javascript英文日期(有时间)选择器
2007/05/02 Javascript
效率高的Javscript字符串替换函数的benchmark
2008/08/02 Javascript
javascript面向对象包装类Class封装类库剖析
2013/01/24 Javascript
javascript不可用的问题探究
2013/10/01 Javascript
JQuery中dataGrid设置行的高度示例代码
2014/01/03 Javascript
浅析Node.js查找字符串功能
2014/09/03 Javascript
AngularJS中filter的使用实例详解
2017/08/25 Javascript
浅谈Node 异步IO和事件循环
2019/05/05 Javascript
小程序使用wxs解决wxml保留2位小数问题
2019/12/13 Javascript
JavaScript享元模式原理与用法实例详解
2020/03/09 Javascript
Vue简单实现原理详解
2020/05/07 Javascript
Python基于有道实现英汉字典功能
2015/07/25 Python
对Python的Django框架中的项目进行单元测试的方法
2016/04/11 Python
使用PyV8在Python爬虫中执行js代码
2017/02/16 Python
Python 中 list 的各项操作技巧
2017/04/13 Python
python好玩的项目—色情图片识别代码分享
2017/11/07 Python
TensorFlow绘制loss/accuracy曲线的实例
2020/01/21 Python
CSS3 3D酷炫立方体变换动画的实现
2019/03/26 HTML / CSS
Perry Ellis官网:美国男士品味服装
2016/12/09 全球购物
匡威荷兰官方网站:Converse荷兰
2018/10/24 全球购物
三项教育活动实施方案
2014/03/30 职场文书
合作意向协议书范本
2014/03/31 职场文书
激励口号大全
2014/06/17 职场文书
学校安全责任书范本
2014/07/23 职场文书
单位未婚证明范本
2014/11/25 职场文书
幼儿园亲子活动感想
2015/08/07 职场文书
2016年国培研修日志
2015/11/13 职场文书
2016新年晚会开场白
2015/12/03 职场文书
《一面五星红旗》教学反思
2016/02/23 职场文书
pytorch MSELoss计算平均的实现方法
2021/05/12 Python