日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

怎樣用XMLHTTP檢測(cè)URL及探測(cè)服務(wù)器信息_Xml教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：XMLHTTP 對(duì)象及其方法簡介
MSXML中提供了Microsoft.XMLHTTP對(duì)象，能夠完成從數(shù)據(jù)包到Request對(duì)象的轉(zhuǎn)換以及發(fā)送任務(wù)。 創(chuàng)建XMLHTTP對(duì)象的語句如下： Set objXML = CreateObject(Msxml2.XMLHTTP) 或 Set objXML = CreateObject(“Microsoft.XMLHTTP”) ' Or, for version 3.0 of XMLHTTP

　主要利用了XMLHTTP的一些方法和屬性來獲取服務(wù)器的信息。
XMLHTTP 對(duì)象方法和對(duì)象屬性附于本文后面。
關(guān)于狀態(tài)碼的問題，可以見我的另外一篇文檔《互聯(lián)網(wǎng)HTTP連接等出錯(cuò)代碼大全》
http://www.csdn.net/Develop/Article/16/16477.shtm

<html>
<head>
<title>利用XMLHTTP檢測(cè)URL及探測(cè)服務(wù)器信息</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>
請(qǐng)輸入U(xiǎn)RL：<input type="text" id="jnkcInput" value="http://" size="40"><button id="chk">檢測(cè)</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 = "該網(wǎng)頁不存在！"
ElseIf jnkcXMLHTTP.Status < 200 Then
jnkcStatus = "客戶端錯(cuò)誤，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
ElseIf jnkcXMLHTTP.Status < 300 Then
jnkcStatus = "成功，該網(wǎng)頁能訪問。"
ElseIf jnkcXMLHTTP.Status < 400 Then
jnkcStatus = "重定向，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
ElseIf jnkcXMLHTTP.Status < 500 Then
jnkcStatus = "客戶端錯(cuò)誤，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
ElseIf jnkcXMLHTTP.Status < 600 Then
jnkcStatus = "服務(wù)器錯(cuò)誤，信息：" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
Else
jnkcStatus = "域名不可用或網(wǎng)絡(luò)連接錯(cuò)誤，信息：" & 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服務(wù)器：" & jnkcServer
End If
jnkcStatus = "<b>" & jnkcStatus & "</b><br>所有反饋信息：<br>"& jnkcXMLHTTP.GetAllResponseHeaders
End Sub
</SCRIPT>
</body>
</html>


______________________________________________________________________________________

另附：

ServerXMLHTTP 對(duì)象方法

方法 說明
Abort 取消當(dāng)前 HTTP 請(qǐng)求。
GetAllResponseHeaders 從響應(yīng)信息中檢索所有的標(biāo)頭字段（header fields）。
GetResponseHeader 從響應(yīng)信息正文中獲得一個(gè) HTTP 標(biāo)頭值。
Open 打開一個(gè)與 HTTP 服務(wù)器的連接。
SetRequestHeader 設(shè)定一個(gè)請(qǐng)求的標(biāo)頭字段。
Send 向 HTTP 服務(wù)器發(fā)送請(qǐng)求�？砂�。



ServerXMLHTTP 對(duì)象屬性

屬性 值 說明
OnReadyStateChange 事件處理器參考 僅用于異步操作。指定當(dāng)就緒狀態(tài)發(fā)生改變時(shí)（例如當(dāng)數(shù)據(jù)從服務(wù)器上返回時(shí)）調(diào)用的事件處理器。
ReadyState 整型 說明異步操作的狀態(tài)：未初始化（0），正在加載（1），已加載（2），交互（3），或者已完成（4）。
ResponseBody 變量數(shù)組 將響應(yīng)信息正文作為數(shù)組返回。
ResponseStream Istream 將響應(yīng)信息正文作為一個(gè) ADO Stream 對(duì)象返回。
ResponseText 字符串 將響應(yīng)信息正文作為一個(gè)文本字符串返回。
ResponseXML XMLDocument 對(duì)象 返回響應(yīng)信息正文，并視為已被 MSXML XMLDOM 語法分析器分析過。
Status 長型 由服務(wù)器返回的 HTTP 狀態(tài)碼。
StatusText 字符串 HTTP 響應(yīng)行狀態(tài)。

 

分享：揭秘用XML和XSL來生成動(dòng)態(tài)頁面的技巧
xml（可擴(kuò)展標(biāo)記語言）看起來可能像某種w3c標(biāo)準(zhǔn)——現(xiàn)在沒有什么實(shí)際影響，即使以后能派上用場(chǎng)，也是很久以后的事。但實(shí)際上，它現(xiàn)在已經(jīng)得到了應(yīng)用。所以，不要等到xml已被加進(jìn)了你最喜愛的html編輯器中才開始使用它。它現(xiàn)在就可以解決各種內(nèi)部問題和 b2b系

來源：模板無憂//所屬分類：Xml教程/更新時(shí)間：2010-04-23
相關(guān)Xml教程：