VBScript上ajax傳輸完整攻略

最新推荐文章于 2026-06-16 09:20:31 发布

转载最新推荐文章于 2026-06-16 09:20:31 发布 · 792 阅读

标签

#vbscript #ajax

ASP 同时被 2 个专栏收录

4 篇文章

订阅专栏

ajax

0 篇文章

订阅专栏

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

`01`	`<script language="vbscript">`

`02`	`sData ="INSERTTYPE=I5&CODESEND={0}&DEPT_NAME={1}&WORDSEND={2}&PRIM_UNIT_FK1={3}&SUBJECTS={4}&CREATEDATE={5}"`

`03`	`sData = formatStr(sData,array(escape("測試001"), _`

`04`	`escape("測試002"), _`

`05`	`escape("測試003"), _`

`06`	`escape("測試004"), _`

`07`	`escape("努力作筆記，遇到困難沒關西，加油"), _`

`08`	`escape("2011/11/01")))`

`09`	`document.getElementById("div").innerHTML=sData`

`10`	`str = jVBPost("toPost.asp",sData,false)`

`11`	`alert(str)`

12

`13`	`function 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`

`19`	`end 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%>