有用的无声递交表单的客户端函数

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【有用的无声递交表单的客户端函数】，下面是详细的分享！

有用的无声递交表单的客户端函数

以下为引用的内容：

<SCRIPT LANGUAGE="vbScript">
dim i,strReturn
function xmlhttp_submit(form_object,url)
alert("")
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)
ysinfo.innerHTML=form_value
msg.innerHTML=xmlhttp.ResponseText
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

</SCRIPT>

以上所分享的是关于有用的无声递交表单的客户端函数，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：怎样过滤客户端提交的表单数据 - 技术问答

　　答：过滤有两种，一种是SQL注入的过滤，一种是HTML标签的过滤HTML过滤，htmlspecialcharsSQL注入过滤一般用addslashes建议你翻翻discuz的common里的函数,进行了二次处理和判断，更安全 查看原帖>> >>详细

　　相关问题：javascript，提交表单数据，不用submit，把提交按...

　　答：function submitForm(obj){ if(表单验证通过) obj.submit();} >>详细

　　相关问题：js函数提交表单

　　答：如果函数是由 submit 按钮触发,或是由带有 href 属性的A标签触发,那么,必须要return false;才能阻止浏览器产生新的HTTP请求. >>详细