VBScript上ajax傳輸完整攻略

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%>

結果畫面

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