xmlhttp提交表單

xmlhttp是在RIA時代沒有來臨之前, 最能使B/S程式遠離每個動作重新整理一次頁面的痛苦做法,

同時也是最平民化的一項技術,HelloWord幾句話就完成了.

不過,大家對xmlhttp的應用大多隻以Get方式在URL裡傳遞少數的變數, 對於大量資料的Form,還是會選擇form.submit()一次.

其實,只要稍加封裝,xmlhttp一樣可以完成複雜表單的後台提交,真正做到讓用家賓至如歸,不到頁面本身需要重新整理的時候,決不去重新整理用家的介面.

用戶端：

function xmlhttp_submit(form_object,url)  for i = 0 to  form_object.elements.length-1set elem = form_object.elements(i)        form_value=form_value & URLEncoding(elem.name) & "=" & URLEncoding(elem.value) &"&"  Next  set xmlhttp = CreateObject("Microsoft.XMLHTTP")  xmlhttp.open "POST",url,false  xmlhttp.setRequestHeader "Content-Length",Len(strA)  xmlhttp.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"  xmlhttp.send(form_value)end function

上面這段代碼遍曆了form裡的對象，組裝出form_value字串，然後通過send()方法以POST方式發送給伺服器端。

又是經典的中文編碼問題，需要加多一個URLEncoding函數把變數值的字串編成UTF-8格式，而且也因此採用不熟悉的VBScript自己不熟悉來寫form_submit()。

Function URLEncoding(vstrIn)    strReturn = ""    For i = 1 To Len(vstrIn)        ThisChr = Mid(vStrIn,i,1)        If Abs(Asc(ThisChr)) < &HFF Then            strReturn = strReturn & ThisChr        Else            innerCode = Asc(ThisChr)            If innerCode < 0 Then                innerCode = innerCode + &H10000            End If            Hight8 = (innerCode  And &HFF00)\ &HFF            Low8 = innerCode And &HFF            strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)        End If    Next    URLEncoding = strReturnEnd Function

伺服器端

什麼特別的事情都不用作，當作普通request處理就可逸樂。