⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 checkpay.asp

📁 php 语言写的c2c商城网站程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#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}
.style13 {color: #0000FF}
.style8 {	color: #0000FF;
	font-size: 12pt;
	font-weight: bold;
}
.style9 {color: #000000}
.style14 {color: #FF00FF}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<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>
<!--#include file="md52.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 = "20219687"'此处填写你的网银在线商户号
	key = "afdafadsfdf524f6safafdafd"'此处填写你的网银在线私钥
	'以下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.chinabank.com.cn/index.shtml" '譬如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(md5(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%">请您确认您的地址:<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>
        您的总金额为:<font color=red><%=v_amount%></font>
        <p><br>
          如果以上资料正确,请您前往网上安全支付平台交费。</td>
        </tr>
      </table>
      <form method="post" action="https://pay3.chinabank.com.cn/Payto?v_mid=20219687" 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>
      <p>&nbsp;</p>
  </tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -