针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2686244
建立时间:2005年1月1日 |
|
|
| |
 利用XMLHTTP检测URL及探测服务器信息
|
| 主要利用了XMLHTTP的一些方法和属性来获取服务器的信息。 先给大家讲解一下,XMLHTTP 对象方法和对象属性,如下; ServerXMLHTTP 对象方法 方法 说明 Abort 取消当前 HTTP 请求。 GetAllResponseHeaders 从响应信息中检索所有的标头字段（header fields）。 GetResponseHeader 从响应信息正文中获得一个 HTTP 标头值。 Open 打开一个与 HTTP 服务器的连接。 SetRequestHeader 设定一个请求的标头字段。 Send 向 HTTP 服务器发送请求。可包含正文。 ServerXMLHTTP 对象属性 属性 值 说明 OnReadyStateChange 事件处理器参考 仅用于异步操作。指定当就绪状态发生改变时（例如当数据从服务器上返回时）调用的事件处理器。 ReadyState 整型 说明异步操作的状态：未初始化（0），正在加载（1），已加载（2），交互（3），或者已完成（4）。 ResponseBody 变量数组 将响应信息正文作为数组返回。 ResponseStream Istream 将响应信息正文作为一个 ADO Stream 对象返回。 ResponseText 字符串 将响应信息正文作为一个文本字符串返回。 ResponseXML XMLDocument 对象 返回响应信息正文，并视为已被 MSXML XMLDOM 语法分析器分析过。 Status 长型 由服务器返回的 HTTP 状态码。 StatusText 字符串 HTTP 响应行状态。 <html> <head> <title>利用XMLHTTP检测URL及探测服务器信息</title> <META html>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> 请输入URL：<input type="text" id="jnkcInput" value="html>http://" size="40"><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检测URL及探测服务器信息
|
| 监测大文件时会当掉
比如***。mp3
有没有解决方法 |
| 电脑与网络 zz(游客)发表评论于2005/9/8 19:42:41 |
| |
回复:利用XMLHTTP检测URL及探测服务器信息
|
| 电脑与网络 11(游客|219.236.52.244)发表评论于2005/7/28 10:39:37 |
| |
回复:利用XMLHTTP检测URL及探测服务器信息
|
| 电脑与网络 guest(游客)发表评论于2005/5/27 16:54:38 |
| |
» 1 »
|
