Set objXML = CreateObject("Msxml2.XMLHTTP") 或

Set objXML = CreateObject(“Microsoft.XMLHTTP”)

' Or, for version 3.0 of XMLHTTP, use:

' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

poster.open http-method, url, async, userID, password

　　Open方法中包含了5個(gè)參數(shù)，前三個(gè)是必要的，后兩個(gè)是可選的(在服務(wù)器需要進(jìn)行身份驗(yàn)證時(shí)提供)。參數(shù)的含義如下所示：

http-method： HTTP的通信方式，比如GET或是 POST

url： 接收XML數(shù)據(jù)的服務(wù)器的URL地址。通常在URL中要指明 ASP或CGI程序

async： 一個(gè)布爾標(biāo)識(shí)，說(shuō)明請(qǐng)求是否為異步的。如果是異步通信方式(true)，客戶機(jī)就不等待服務(wù)器的響應(yīng)；如果是同步方式(false)，客戶機(jī)就要等到服務(wù)器返回消息后才去執(zhí)行其他操作

userID 用戶ID，用于服務(wù)器身份驗(yàn)證

password 用戶密碼，用于服務(wù)器身份驗(yàn)證

　　XMLHTTP對(duì)象的Send方法

　　用Open方法對(duì)Request對(duì)象進(jìn)行初始化后，調(diào)用Send方法發(fā)送XML數(shù)據(jù)：

poster.send XML-data

　　Send方法的參數(shù)類型是Variant，可以是字符串、DOM樹或任意數(shù)據(jù)流。發(fā)送數(shù)據(jù)的方式分為同步和異步兩種。在異步方式下，數(shù)據(jù)包一旦發(fā)送完畢，就結(jié)束Send進(jìn)程，客戶機(jī)執(zhí)行其他的操作；而在同步方式下，客戶機(jī)要等到服務(wù)器返回確認(rèn)消息后才結(jié)束Send進(jìn)程。

XMLHTTP對(duì)象中的readyState屬性能夠反映出服務(wù)器在處理請(qǐng)求時(shí)的進(jìn)展?fàn)顩r。客戶機(jī)的程序可以根據(jù)這個(gè)狀態(tài)信息設(shè)置相應(yīng)的事件處理方法。屬性值及其含義如下表所示：

　　客戶機(jī)處理響應(yīng)信息

　　客戶機(jī)接收到返回消息后，進(jìn)行簡(jiǎn)單的處理，基本上就完成了C/S之間的一個(gè)交互周期。客戶機(jī)接收響應(yīng)是通過(guò)XMLHTTP對(duì)象的屬性實(shí)現(xiàn)的：

● responseTxt：將返回消息作為文本字符串；

● responseXML：將返回消息視為XML文檔，在服務(wù)器響應(yīng)消息中含有XML數(shù)據(jù)時(shí)使用；

● responseStream：將返回消息視為Stream對(duì)象

　　就是下面這個(gè)很簡(jiǎn)單的JAVASCRIPT函數(shù)SEND(STR,URL)

　　使用到的是XMLDOM和XMLHTTP對(duì)象.用這種技術(shù)的好處是:全JS控制,方便/簡(jiǎn)單,比RDS或者remote好多了.(前提:服務(wù)器端和客戶端都必須安裝IE5或者更高版本),在俺貼的那個(gè)無(wú)刷新在線信息功能使用的也是這種技術(shù).有興趣的朋友可以看看。

function Send(Str,URL)

//STR參數(shù)是傳入的XML數(shù)據(jù),你也可以傳入其他文本數(shù)據(jù).

//不過(guò)這個(gè)函數(shù)需要服務(wù)器端處理之后返回XML數(shù)據(jù),你也可以修改一下

//URL參數(shù)表示你所要處理數(shù)據(jù)的ASP文件地址

{

　var Http = new ActiveXObject("Microsoft.XMLHTTP") //建立XMLHTTP對(duì)象

　var Dom = new ActiveXObject("Microsoft.XMLDOM") //建立XMLDOM對(duì)象

　Http.open("POST",URL,false)

　//第一個(gè)參數(shù)的意思是,用"POST"方式發(fā)送數(shù)據(jù).可以大到4MB,也可以換為"GET".只能256KB

　//第2個(gè)參數(shù)的意思是數(shù)據(jù)發(fā)送到哪個(gè)文件處理

　//第3個(gè)參數(shù)意思是同步或異步方式.TRUE為異步,FALSE為同步

　Http.send(Str) //開始發(fā)送數(shù)據(jù).............嘟嘟..

　Dom.async=false //設(shè)置為同步方式獲取數(shù)據(jù)

　Dom.loadXML(Http.responseText)

　//開始獲取服務(wù)器端處理后返回的數(shù)據(jù).我在這里設(shè)置必須為XML數(shù)據(jù),否則出錯(cuò).

　//你也可以自己修改.使返回的是2進(jìn)制或者記錄集數(shù)據(jù).................................

　if(Dom.parseError.errorCode != 0) //檢查是否發(fā)生獲取數(shù)據(jù)時(shí)錯(cuò)誤

　{

delete(Http)

delete(Dom)

return(false)

　}

　else

　{

var Back = Dom.documentElement.childNodes.item(0).text

//得到返回的XML數(shù)據(jù),我這里假設(shè)處理程序只返回一行XML數(shù)據(jù)(一個(gè)節(jié)點(diǎn))

delete(Http)

delete(Dom)

return(Back) //函數(shù)返回?cái)?shù)據(jù).......................結(jié)束

　}

}

VAR CAT = Send("<用戶資料><姓名>謝檸檬","http://WWW.CHINAASP.COM/VIVA.ASP") //執(zhí)行函數(shù)

IF(CAT == FALSE)

{

　ALERT("對(duì)不起.處理程序返回的是FALSE.數(shù)據(jù)處理已經(jīng)失敗........")

}

ELSE

{

　IF(EVAL(CAT))

{

　ALERT("OK.數(shù)據(jù)已經(jīng)發(fā)送成功.兼以處理完成!!!!!!")

}

ELSE

{

　ALERT("對(duì)不起.處理程序返回的是FALSE.數(shù)據(jù)處理已經(jīng)失敗........")

}

}

===============================VIVA.ASP============================

ON ERROR RESUME NEXT

DIM BOBO

DIM MOMO

SET BOBO = SERVER.CREATEOBJECT("MICROSOFT.XMLDOM")

BOBO.ASYNC = FALSE

BOBO.LOAD REQUEST

IF BOBO.PARSEERROR.ERRORCODE <> 0 THEN

RESPONSE.WRITE("<程序處理結(jié)果><最終結(jié)果>FALSE")

ELSE

SET MOMO = BOBO.DOCUMENTELEMENT

IF MOMO.CHILDNODES.ITEM(0).TEXT = "謝檸檬" THEN

RESPONSE.WRITE("<程序處理結(jié)果><最終結(jié)果>TRUE")

ELSE

RESPONSE.WRITE("<程序處理結(jié)果><最終結(jié)果>FALSE")

END IF

END IF

SET BOBO = NOTHING