<% OrderID=Request("OrderID") Amount=Request("Amount") if Request("OrderID")="" then %>
欲查詢您的ATM繳款是否成功，請輸入您的訂單編號以及轉帳金額。
請輸入訂單編號
請輸入繳款金額
<% else set ob=CreateObject ("VAClient_SE.MSClient") Status=ob.Accounting (OrderID,Amount,Message,Pay_Infor) ret=ob.Payment_Detail(Pay_Infor, VA_No , VA_Order_AMT , VA_Transaction_Date , VA_Transaction_Time , VA_Transaction_AMT , VA_Aquire_Bank , VA_Aquire_Trm ) Response.Write "帳號"&OrderID&"繳款狀況:
" if Status then Response.Write "<查詢繳款結果>
" if Message="0" then Response.Write "尚未轉帳!
" Response.Write "<---詳細資訊--->
" Response.Write "對應銀行帳號:"&VA_No&"
" else Response.Write "消費者已轉帳!
" Response.Write "<---詳細資訊--->
" Response.Write "對應銀行帳號:"&VA_No&"
" Response.Write "原訂單金額:"&VA_Order_AMT&"
" Response.Write "轉帳時間:"&VA_Transaction_Date&VA_Transaction_Time&"
" Response.Write "已轉帳總金額:"&VA_Transaction_AMT&"
" Response.Write "收單銀行代號:"&VA_Aquire_Bank &"
" Response.Write "收單機台代號:"&VA_Aquire_Trm&"
" end if Else Response.Write "<查詢失敗>
" Response.Write "錯誤訊息:"&Message End IF end if %>
回首頁
