Web层改进II-用xmlhttp 无声息提交复杂表单

王朝java/jsp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

xmlhttp是在RIA时代没有来临之前, 最能使B/S程序远离每个动作刷新一次页面的痛苦做法, 同时也是最平民化的一项技术, HelloWord几句话就完成了.

不过,大家对xmlhttp的应用大多只以Get方式在URL里传递少数的变量, 其实即使是大量数据的Form, 只要用Javascript稍加封装, 一样可以用简单的用xmlhttp完成提交,真正做到让用家宾至如归, 不到页面本身需要刷新的时候, 决不去刷新用家的界面.

客户端: function xmlhttp_submit(form_object,url)

for i = 0 to form_object.elements.length-1

set 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-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 = strReturn

End Function

服务器端

没有任何需要特别作的东西,如常响应请求就是了.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航