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" ), _ |
07 | escape( "努力作筆記,遇到困難沒關西,加油" ), _ |
08 | escape( "2011/11/01" ))) |
09 | document.getElementById( "div" ).innerHTML=sData |
10 | str = jVBPost( "toPost.asp" ,sData,false) |
13 | function jVBPost(sUrl,dataStr,bSync) |
14 | set xmlHttp =CreateObject( "Microsoft.XMLHTTP" ) |
15 | xmlHttp.open "POST" ,sUrl,bSync |
16 | xmlHttp.setRequestHeader "Content-Type" , "application/x-www-form-urlencoded" |
18 | jVBPost =xmlHttp.responseText |
接的程式
02 | sData = "INSERTTYPE=I5&CODESEND={0}&DEPT_NAME={1}&WORDSEND={2}&PRIM_UNIT_FK1={3}&SUBJECTS={4}&CREATEDATE={5}" |
03 | CODESEND = request( "CODESEND" ) |
04 | DEPT_NAME = request( "DEPT_NAME" ) |
05 | WORDSEND = request( "WORDSEND" ) |
06 | PRIM_UNIT_FK1 = request( "PRIM_UNIT_FK1" ) |
07 | SUBJECTS = request( "SUBJECTS" ) |
08 | CREATEDATE = request( "CREATEDATE" ) |
09 | sData =formatStr(sData,array(CODESEND,DEPT_NAME,WORDSEND,PRIM_UNIT_FK1,SUBJECTS,CREATEDATE)) |
10 | response.Charset= "big5" |
結果畫面
畫面上是編碼後結果,彈出畫面是回傳結果,正常無亂碼,有此可證POST會自動幫我們解碼,真是貼心阿 !但輸出要記得指定網頁編碼,這樣就可以萬無一失了^^