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

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

服务器端

上一篇： 将Java应用程序本地编译为EXE的几种方法
下一篇： Java与XML（一）基础

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有