利用XMLHTTP检测URL及探测服务器信息 - 网络编程 - ASP技术 - 资讯中心

ASP技术

本类阅读TOP10

·ASP对excel的操作。
·问题
·如何利用回车来进行焦点转移呢？
·ASP操作Excel技术总结
·在ASP中怎樣用Excel寫報表
·如何用asp调用启动服务器上的Exe程序。
·利用XMLHTTP的国际域名查询系统源代码（一个页面，无需另外组件，原帖另附QQ在线状态检测）
·用VB编写ActiveX DLL实现ASP编程
·在第一个输入框输入完以后，回车如何自动转移到第二个输入框在焦点呢？
·ASP如何获取真实IP地址

广告连接

精选专题

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

作者：未知来源：未知加入时间：2003-9-2

主要利用了XMLHTTP的一些方法和属性来获取服务器的信息。
XMLHTTP 对象方法和对象属性附于以下文档：
http://www.csdn.net/Develop/article/16/16493.shtm
关于状态码的问题，可以见我的一篇文档《互联网HTTP连接等出错代码大全》
http://www.csdn.net/Develop/Article/16/16477.shtm

以下是全部源代码：

<html>
<head>
<title>利用XMLHTTP检测网址及探测服务器类型</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="text" id="jnkcInput" value="http://www.csdn.net" size="50"><button id="chk">检测</button>
<div id="jnkc_show"></div>
<SCRIPT LANGUAGE="VBScript">
Dim i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer
Function chk_onClick()
jnkcUrl = jnkcInput.value
Call GetDetail
i = i+1
jnkc_show.innerHTML = "<hr><pre><font color=red>" & i & "、" & jnkcUrl & "</font><br>" & jnkcStatus & "</pre>" & jnkc_show.innerHTML
End Function
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>

相关软件：

xmlhttp介绍