VBScript上ajax傳輸完整攻略

本文展示如何使用VBScript脚本进行数据自动填充及通过POST请求将数据发送到服务器的过程,包括数据格式化、变量获取、数据拼接和响应处理。重点介绍了VBScript中如何利用函数简化数据处理步骤,并确保输出数据无乱码问题。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

01<script language="vbscript">
02sData ="INSERTTYPE=I5&CODESEND={0}&DEPT_NAME={1}&WORDSEND={2}&PRIM_UNIT_FK1={3}&SUBJECTS={4}&CREATEDATE={5}"
03sData = formatStr(sData,array(escape("測試001"), _
04                              escape("測試002"), _
05                              escape("測試003"), _
06                              escape("測試004"), _
07                              escape("努力作筆記,遇到困難沒關西,加油"), _
08                              escape("2011/11/01")))
09document.getElementById("div").innerHTML=sData
10str = jVBPost("toPost.asp",sData,false)
11alert(str)
12  
13function jVBPost(sUrl,dataStr,bSync) '網址,傳送資料串
14    set xmlHttp =CreateObject("Microsoft.XMLHTTP")
15    xmlHttp.open "POST",sUrl,bSync 'false同步true非同步
16    xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
17    xmlHttp.send dataStr
18    jVBPost =xmlHttp.responseText
19end function
20</script>

接的程式

01<%
02sData ="INSERTTYPE=I5&CODESEND={0}&DEPT_NAME={1}&WORDSEND={2}&PRIM_UNIT_FK1={3}&SUBJECTS={4}&CREATEDATE={5}"
03CODESEND = request("CODESEND")
04DEPT_NAME = request("DEPT_NAME")
05WORDSEND = request("WORDSEND")
06PRIM_UNIT_FK1 = request("PRIM_UNIT_FK1")
07SUBJECTS = request("SUBJECTS")
08CREATEDATE = request("CREATEDATE")
09sData =formatStr(sData,array(CODESEND,DEPT_NAME,WORDSEND,PRIM_UNIT_FK1,SUBJECTS,CREATEDATE))
10response.Charset="big5" '這很重要不然回傳還是會產生亂碼
11Response.Write(sData)
12Response.End()    
13%>

結果畫面

001

畫面上是編碼後結果,彈出畫面是回傳結果,正常無亂碼,有此可證POST會自動幫我們解碼,真是貼心阿 !但輸出要記得指定網頁編碼,這樣就可以萬無一失了^^

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值