?? banktransfer_check.asp
字號:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F105"
session("title")="招行在線支付"
session("headline")="首頁 -> 注冊系統 -> 招行在線支付"
%>
<!--#include file="../inc/head2.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&session("username")&"'"
rs.open sql,conn,1,1
'接收來自上頁所有訂單信息
bankMODE = request("bankMODE")
v_amount=Request.Form ("v_amount")
v_username=session("username")
v_rcvname=rs("chname")
v_rcvaddr=rs("chaddress")
v_rcvtel=rs("telephoneno")
v_rcvpost=rs("postcode")
v_ordername=rs("chname")
'根據系統時間產生訂單，格式：YYYYMMDD HHMMSS
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
v_ymd=yy&mm&dd
'生成訂單號所有所需元素,格式為：小時，分鐘，秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
'產生6位訂單號BillNo
BillNo=xiaoshi&fenzhong&miao
'定義相關必要參數，如商戶號、私鑰、推薦的標準形式訂單號、幣種、配貨狀態、返回url地址
v_mid = "123456"
key = "chinabank8578605123jbvisdfjmmmm"
'以下v_oid為網銀推薦標準訂單號
v_oid=v_ymd&"-"&v_mid&"-"&BillNo
v_moneytype = "0" '0為rmb 1為dollor
v_orderstatus = "0" '0未配齊 1為配齊
'支付網關回調頁面.譬如http://www.xxx.com/xxx.asp
if bankMODE = 1 then '招行回調頁面
v_url = "http://www.winiis.com/LQHM/user/UserSelf/bakret.asp"
else '網銀回調頁面
v_url="http://www.winiis.com/LQHM/user/UserSelf/chinabank_receive.asp"
end if
dim iii,ooo
iii=split(v_amount,".")
if ubound(iii)=0 then
v_amount=cstr(v_amount) & ".00"
else
if len(iii(1))=1 then v_amount=cstr(iii(0)) & "." &cstr(iii(1)) & "0"
if len(iii(1))=2 then v_amount=cstr(v_amount)
if len(iii(1))>2 then v_amount=cstr(iii(0)) & "." & left(iii(1),2)
end if
yy=year(date)
mm=month(now)
if len(mm)=1 then mm="0"&mm
dd=day(Date)
if len(dd)=1 then dd="0"&dd
v_ymd=yy&mm&dd
key_key = v_moneytype+v_ymd+v_amount+v_rcvtel+v_oid+v_mid+v_url+key
'拼湊串里勿使用中文字符，目前MD5在ASP、asp.net、java等環境下對中文處理有偏差現象
f=Ucase(trim(md5(key_key)))
'md5.asp文件中，LCase是將字符轉換為小寫; Ucase是將字符轉換為大寫
'網銀支付平臺對MD5值只認大寫字符串，所以小寫的MD5值得轉換為大寫
conn.execute (" insert into banktransfer (username,orderid,bankname,dest_ac,account,datetime,status) values ('" & session("username") & "','" & v_oid & "','網銀','0001','"& v_amount & "','" & now() & "','正在確認') ")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body>
<br><br>
<br><br>
<br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=55% class="size09" align="center">
<tr>
<td colspan="2" bgcolor="#efefef" height="28">
<div align="center" class="color01">請您確認轉帳信息:</div>
</td>
</tr>
<tbody>
<tr>
<td width="70" height="35">
<div align="center">會員:</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="35" width="455">
<%=session("username")%>
</td>
</tr>
<tr>
<td width="70" height="35">
<div align="center">金額:</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="35" width="455">
<%=v_amount%>元
</td>
</tr>
<tr>
<td width="70" height="35">
<div align="center">姓名:</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="35" width="455">
<%=v_rcvname%>
</td>
</tr>
<tr>
<td width="70" height="35">
<div align="center">地址:</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="35" width="455">
<%=v_rcvaddr%>
</td>
</tr>
<tr>
<td width="70" height="35">
<div align="center">電話:</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="35" width="455">
<%=v_rcvtel%>
</td>
</tr>
<tr>
<td width="70" height="35">
<div align="center">郵編：</div>
</td>
<td
style="LINE-HEIGHT: 14pt" height="35" width="455">
<%=v_rcvpost%>
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#efefef">
<div align="center">
<% if bankMODE = 1 then%>
<form method="post" action="https://www.nj.cmbchina.com/netpayment/BaseHttp.dll?PrePay1?CoNo=000001&Date=<%=v_ymd%>&MerchantUrl=<%=v_url%>&BillNo=<%=v_oid%>&Amount=<%=v_amount%>" name="E_FORM" target=new>
<center>
<input type=submit name=v_action value="招行網上安全支付平臺">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub button1_onclick
window.history.back
End Sub
-->
</SCRIPT>
<input type="button" name="button1" id="button1" value="返回">
</center>
<input type="hidden" name="v_md5info" size="100" value="<%=f%>">
<input type="hidden" name="v_mid" value="<%=v_mid%>">
<input type="hidden" name="v_oid" value="<%=v_oid%>">
<input type="hidden" name="v_rcvname" value="<%=v_rcvname%>">
<input type="hidden" name="v_rcvaddr" value="<%=v_rcvaddr%>">
<input type="hidden" name="v_rcvtel" value="<%=v_rcvtel%>">
<input type="hidden" name="v_ymd" value="<%=v_ymd%>">
<input type="hidden" name="v_rcvpost" value="<%=v_rcvpost%>">
<input type="hidden" name="v_amount" value="<%=v_amount%>">
<input type="hidden" name="v_orderstatus" value="<%=v_orderstatus%>">
<input type="hidden" name="v_ordername" value="<%=v_ordername%>">
<input type="hidden" name="v_moneytype" value="<%=v_moneytype%>">
<input type="hidden" name="v_url" value="<%=v_url%>">
</form>
<% else %>
<form method="post" action="https://pay.chinaebank.cn/select_bank.jsp" name="E_FORM" target=new>
<center>
<input type=submit name=v_action value="網銀電子商城網上安全支付平臺">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub button1_onclick
window.history.back
End Sub
-->
</SCRIPT>
<input type="button" name="button1" id="button1" value="返回">
</center>
<input type="hidden" name="v_md5info" size="100" value="<%=f%>">
<input type="hidden" name="v_mid" value="<%=v_mid%>">
<input type="hidden" name="v_oid" value="<%=v_oid%>">
<input type="hidden" name="v_rcvname" value="<%=v_rcvname%>">
<input type="hidden" name="v_rcvaddr" value="<%=v_rcvaddr%>">
<input type="hidden" name="v_rcvtel" value="<%=v_rcvtel%>">
<input type="hidden" name="v_ymd" value="<%=v_ymd%>">
<input type="hidden" name="v_rcvpost" value="<%=v_rcvpost%>">
<input type="hidden" name="v_amount" value="<%=v_amount%>">
<input type="hidden" name="v_orderstatus" value="<%=v_orderstatus%>">
<input type="hidden" name="v_ordername" value="<%=v_ordername%>">
<input type="hidden" name="v_moneytype" value="<%=v_moneytype%>">
<input type="hidden" name="v_url" value="<%=v_url%>">
</form>
<%end if %>
</div>
</td>
</tr>
</tbody>
</table>
<!--#include file="../inc/bottom2.asp"-->
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -