📄 checkpay.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="myAlipay/myAlipay.asp"-->
<!--#include file="chinabank/md5.asp"-->
<%
if request.Cookies("BOB")("username")<>"" then
username=trim(request.Cookies("BOB")("username"))
else
username=request.Cookies("BOB")("dingdanusername")
end if%>
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--佣金计划</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<TABLE width=778 border=0 align=center cellPadding=0 cellSpacing=0 background="images/content.gif">
<TBODY>
<TR>
<TD class=b width=7> </TD>
<TD class=b vAlign=top align=left width=764><table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td width="100%" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/class_bg.jpg" height=50> <img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp><%=webname%></a> >> 网银在线支付平台/会员充值平台</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width=100% border="0" cellpadding="5" cellspacing="0" class="table-xia" bgColor=#f1f1f1>
<TR>
<TD bgColor=#ffffff colspan=19 height=1></TD>
<tr>
<%
dim SHJIAUserName
SHJIAUserName="BOBshop_admin"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BOB_PAY where SHJIAUserName='"&SHJIAUserName&"' ",conn,1,1
if rs.eof and rs.bof then
response.Write "<script LANGUAGE='javascript'>alert('此店铺还没有设置网银在线支付帐号！');</script>"
else
'网银支付
' 表单的各项参数如下：
' v_mid
' 商户号,这里为测试商户号1001，替换为自己的商户号即可
' key
' MD5私钥
' v_oid
' 订单号，构成格式 年月日-商户号-小时分钟秒
' v_amount
' 订单金额
' v_moneytype
' 支付币种0为人民币
' v_url
' 商户自定义返回接收支付结果的页面
' remark1
' 备注字段1
' remark2
' 备注字段2
' style
' 指网关模式0(普通)，1(银行列表中带外卡)
'********以下几项与网上支付货款无关，建议不用**************
' v_rcvname
' 收货人
' v_rcvaddr
' 收货地址
' v_rcvtel
' 订货人电话
' v_rcvpost
' 邮编
' v_ordername
' 发货人
' v_orderemail
' 订货人EMAIL
'**********以下几项与网上支付货款无关，建议不用**************
v_rcvname="www_IT-BOB_com"
v_rcvaddr="BOB_STUDIO"
v_rcvtel="13785477507"
v_rcvpost="065001"
v_ordername="BOBSHOP"
v_orderemail = "zjj5483@yahoo.com.cn"
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 = rs("BOB_PAY_ZHANGHAO")
key = rs("BOB_PAY_MIYAO")
'以下v_oid为网银推荐标准订单号
v_oid=v_ymd&"-"&v_mid&"-"&BillNo
v_moneytype = "0" '0为rmb 1为dollor
v_orderstatus = "0" '0未配齐 1为配齐
v_url=rs("BOB_PAY_BACKURL") '譬如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_rcvtel+v_oid+v_mid+v_url+key
'拼凑串里勿使用中文字符，目前MD5在ASP、asp.net、java等环境下对中文处理有偏差现象
f=Ucase(trim(BOBSHOPWYMD5(key_key)))
'md5.asp文件中，LCase是将字符转换为小写; Ucase是将字符转换为大写
'网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写
%>
<td width="88%" colspan="8"><br>
<table border="0" width="80%" align=center>
<tr>
<td width="100%"><span class="style1">请您确认您的支付信息:</span><br>
<table border="0" width="80%" align="center"
bgcolor="#f0f0f0">
<tr>
<td align="left" width="20%">付款人姓名：</td>
<td><%=v_rcvname%> </td>
</tr>
<tr>
<td align="left" width="20%">付款人地址：</td>
<td><%=v_rcvaddr%> </td>
</tr>
<tr>
<td align="left" width="20%">付款人电话：</td>
<td><%=v_rcvtel%> </td>
</tr>
<tr>
<td align="left" width="20%">付款人邮编：</td>
<td><%=v_rcvpost%> </td>
</tr>
<tr>
<td align="left" width="20%">付款人商家ID<%=adidas%></td>
<td><%=v_ordername%> </td>
</tr>
</table></td>
</tr>
<tr>
<td><br>
您要支付/充值的总金额为: <b><font color=red><%=v_amount%></font> 元</b>
<p></td>
</tr>
</table>
<form method="post" action="https://pay3.chinabank.com.cn/select_bank" name="E_FORM" target=new>
<center>
<input type=submit name=v_action value="BOB网店系统网银在线支付/会员帐号充值平台">
<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%>
<p> </p>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></TD>
<TD class=b width=7><IMG height=1
src="image/tm.gif" width=1></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -