📄 checklist.asp
字号:
<!--#include file="top.asp"-->
<!--#include file="md5.asp"-->
<%
'接收来自上页所有订单信息
v_rcvname=Request.Form("v_rcvname")
v_rcvaddr=Request.Form("shouhuorendizhi")
v_rcvtel=Request.Form("shouhuorendianhua")
v_rcvpost=Request.Form("shouhuorenyoubian")
v_ordername=Request.Form("dinghuorenxingming")
v_amount=Request.Form ("v_amount")
'根据系统时间产生订单，格式：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 = "1677"
key = "wangqunwangjin649876420"
'以下v_oid为网银推荐标准订单号
v_oid=v_ymd&"-"&v_mid&"-"&BillNo
v_moneytype = "0" '0为rmb 1为dollor
v_orderstatus = "0" '0未配齐 1为配齐
v_url="http://www.225500.com/host/receive.asp" '譬如http://www.xxx.com/xxx.asp
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_oid&v_mid&v_url&key
'拼凑串里勿使用中文字符，目前MD5在ASP、asp.net、java等环境下对中文处理有偏差现象
f=Ucase(trim(md5(key_key)))
'md5.asp文件中，LCase是将字符转换为小写; Ucase是将字符转换为大写
'网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr bgcolor="#ffffff"><td>
<br>
<table border="0" width="60%" align=center>
<tr>
<td width="100%">请您确认您的信息:<br>
<table border="0" width="80%" align="center">
<tr>
<td align="left" width="10%">姓名：</td>
<td><%=v_rcvname%>
</td>
</tr>
<tr>
<td align="left" width="10%">地址：</td>
<td><%=v_rcvaddr%>
</td>
</tr>
<tr>
<td align="left" width="10%">电话：</td>
<td><%=v_rcvtel%>
</td>
</tr>
<tr>
<td align="left" width="10%">邮编：</td>
<td><%=v_rcvpost%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><br>您的付款金额为:<font color=red><b><%=v_amount%></b></font><p><br>如果以上资料正确，请您前往电子商城交费;假如不正确，请点返回。</td>
</tr>
</table>
<form method="post" action="https://pay.chinaebank.cn/select_bank.jsp" name="E_FORM" >
<center>
<input type=submit name=v_action value="网银电子商城网上安全支付平台" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'" >
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub button1_onclick
window.history.back
End Sub
-->
</SCRIPT>
<input type="button" name="button1" id="button1" value="返回" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'" >
</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_rcvname%>">
<input type="hidden" name="v_moneytype" value="<%=v_moneytype%>">
<input type="hidden" name="v_url" value="<%=v_url%>">
</form>
</body>
</td></tr></table>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -