📄 onlinepay_send.asp
字号:
<%
'乘风电影程序
'制作：乘 风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>
<%
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunction.asp"-->
<!--#Include File="CF_GetCookie.asp"-->
<!--#Include File="CF_Md5.asp"-->
<!--#include file="CF_Style.asp"-->
<%
UserName=ChkStr(Request("UserName"),1)
Email=ChkStr(Request("UserName"),1)
orderid = ChkStr(Request("orderid"),1)
Sql="Delete From CFFilm_OnlinePay Where DateDiff(d,AddTime,Getdate())>2"
Conn.Execute(Sql)
Sql="Select PayOk From CFFilm_OnlinePay Where OrderID='"&OrderID&"'"
Set Rs= Conn.Execute(Sql)
If Rs.Eof Then
Sql="Insert Into CFFilm_OnlinePay (UserName,OrderID) Values('"&UserName&"','"&orderid&"')"
Conn.Execute(Sql)
Else
If Rs("PayOk")=-1 Then
Response.write "此定单已经处理过"
Response.End
End If
End If
%>
<body>
<%If CInt(GetMySet("OnlinePayType"))=1 Then%>
<%
'''''''''
' @Description: 快钱网关接口范例
' @Copyright (c) 上海快钱信息服务有限公司
' @version 2.0
'''''''''
merchant_id = GetMySet("OnlinePayUser") '''商户编号
merchant_key = GetMySet("OnlinePayKey") '''商户密钥
orderid = Request("orderid") '''订单编号
amount = Request("amount") '''订单金额
curr = "1" '''货币类型,1为人民币
isSupportDES = "2" '''是否安全校验,2为必校验,推荐
merchant_url = HttpPath(2)&"OnlinePay_Receive.asp" '''支付结果返回地址
pname = Request("pname") '''支付人姓名
commodity_info = Request("commodity_info") '''商品信息
merchant_param = UserName '''商户私有参数
pemail=Request("Email") '''传递email到快钱网关页面
pid="" '''代理/合作伙伴商户编号
'''生成加密串,注意顺序
ScrtStr="merchant_id=" & merchant_id & "&orderid=" & orderid & "&amount=" & amount & "&merchant_url=" & merchant_url & "&merchant_key=" & merchant_key
mac=ucase(md5(ScrtStr,2))
If amount="" Or IsNumeric(amount) = False Then
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "alert('输入的金额有误!');" & VbCrlf
Response.Write "window.close();" & vbCrlf
Response.Write "</script>" & VbCRLF
Response.End
End If
%>
<table align="center" class="tba">
<form name="frm" method="post" action="https://www.99bill.com/webapp/receiveMerchantInfoAction.do">
<tr class="tba_tr_1">
<td colspan="2"><div align="center">本支付系统使用快钱支付网关</div></td>
</tr>
<tr>
<td><div align="right">用户名：</div></td>
<td><%=UserName%></td>
</tr>
<tr>
<td><div align="right">订单编号：</div></td>
<td><%=orderid%></td>
</tr>
<tr>
<td><div align="right">订单金额：</div></td>
<td><%=amount%>元</td>
</tr>
<tr>
<td><div align="right">你的EMail：</div></td>
<td><%=pemail%></td>
</tr>
<tr>
<td colspan="2"><div align="center"><strong>请记下你订单编号，以备查询</strong></div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input name="merchant_id" type="hidden" value="<%=merchant_id%>">
<input name="orderid" type="hidden" value="<%=orderid%>">
<input name="amount" type="hidden" value="<%=amount%>">
<input name="currency" type="hidden" value="<%=curr%>">
<input name="isSupportDES" type="hidden" value="<%=isSupportDES%>">
<input name="mac" type="hidden" value="<%=mac%>">
<input name="merchant_url" type="hidden" value="<%=merchant_url%>">
<input name="pname" type="hidden" value="<%=pname%>">
<input name="commodity_info" type="hidden" value="<%=commodity_info%>">
<input name="merchant_param" type="hidden" value="<%=merchant_param%>">
<input name="pemail" type="hidden" value="<%=pemail%>">
<input name="pid" type="hidden" value="<%=pid%>">
<input name="payby99bill" type="submit" value="开始在线支付">
<br>
支持各种银行卡、快钱账户支付</div></td>
</tr>
</form>
</table>
<%End If%>
<%If CInt(GetMySet("OnlinePayType"))=2 Then%>
<%
'****************************************
v_mid = GetMySet("OnlinePayUser") ' 商户号,这里为测试商户号20000400，替换为自己的商户号即可
v_url = HttpPath(2)&"OnlinePay_Receive.asp" ' 商户自定义返回接收支付结果的页面 Receive.asp 为接收页面
' MD5密钥要跟订单提交页相同，如Send.asp里的 key = "test" ,修改""号内 test 为您的密钥
key = GetMySet("OnlinePayKey") ' 如果您还没有设置MD5密钥请登陆我们为您提供商户后台，地址：https://merchant3.chinabank.com.cn/
' 登陆后在上面的导航栏里可能找到“资料管理”，在资料管理的二级导航栏里有“MD5密钥设置”
' 建议您设置一个16位以上的密钥或更高，密钥最多64位，但设置16位已经足够了
'****************************************%>
<%
if request("orderid")<>"" then '判断是否有传递订单号
v_oid = request("orderid")
else
curdate = now() ' 根据系统时间产生订单，格式：YYYYMMDD-v_mid-HMMSS
ymd = year(curdate)&month(curdate)&day(curdate) ' 年月日
hms = hour(curdate)&minute(curdate)&second(curdate) ' 分秒时
v_oid = ymd&"-"&v_mid&"-"&hms ' 推荐订单号构成格式为 年月日-商户号-小时分钟秒
end if
v_amount = request("amount") ' 订单金额
v_moneytype = "CNY" ' 币种
text = v_amount&v_moneytype&v_oid&v_mid&v_url&key ' 拼凑加密串
v_md5info=Ucase(trim(md5(text,2))) ' 网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写
'**********以下几项为可选信息,如果发送网银在线会保存此信息,使用和不使用都不影响支付！**************
v_rcvname = request("v_rcvname") ' 收货人
v_rcvaddr = request("v_rcvaddr") ' 收货地址
v_rcvtel = request("v_rcvtel") ' 收货人电话
v_rcvpost = request("v_rcvpost") ' 收货人邮编
v_rcvemail = request("EMail") ' 收货人邮件
v_rcvmobile = request("v_rcvmobile") ' 收货人手机号
v_ordername = request("v_ordername") ' 订货人姓名
v_orderaddr = request("v_orderaddr") ' 订货人地址
v_ordertel = request("v_ordertel") ' 订货人电话
v_orderpost = request("v_orderpost") ' 订货人邮编
v_orderemail = request("v_orderemail") ' 订货人邮件
v_ordermobile = request("v_ordermobile") ' 订货人手机号
remark1 = request("UserName") ' 备注字段1
remark2 = request("remark2") ' 备注字段2
%>
<table align="center" class="tba">
<form action="https://pay3.chinabank.com.cn/PayGate" method="POST" name="E_FORM">
<!--以下几项为网上支付重要信息，信息必须正确无误，信息会影响支付进行！-->
<input type="hidden" name="v_md5info" value="<%=v_md5info%>" size="100">
<input type="hidden" name="v_mid" value="<%=v_mid%>">
<input type="hidden" name="v_oid" value="<%=v_oid%>">
<input type="hidden" name="v_amount" value="<%=v_amount%>">
<input type="hidden" name="v_moneytype" value="<%=v_moneytype%>">
<input type="hidden" name="v_url" value="<%=v_url%>">
<!--以下几项项为网上支付完成后，随支付反馈信息一同传给信息接收页，在传输过程中内容不会改变,如：Receive.asp -->
<input type="hidden" name="remark1" value="<%=remark1%>">
<input type="hidden" name="remark2" value="<%=remark2%>">
<!--以下几项与网上支付货款无关，只是用来记录客户信息，可以不用，使用和不使用都不影响支付 -->
<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_rcvpost" value="<%=v_rcvpost%>">
<input type="hidden" name="v_rcvemail" value="<%=v_rcvemail%>">
<input type="hidden" name="v_rcvmobile" value="<%=v_rcvmobile%>">
<input type="hidden" name="v_ordername" value="<%=v_ordername%>">
<input type="hidden" name="v_orderaddr" value="<%=v_orderaddr%>">
<input type="hidden" name="v_ordertel" value="<%=v_ordertel%>">
<input type="hidden" name="v_orderpost" value="<%=v_orderpost%>">
<input type="hidden" name="v_orderemail" value="<%=v_orderemail%>">
<input type="hidden" name="v_ordermobile" value="<%=v_ordermobile%>">
<tr class="tba_tr_1">
<td colspan="2"><div align="center">本支付系统使用网银支付网关</div></td>
</tr>
<tr>
<td><div align="right">用户名：</div></td>
<td><%=Request("UserName")%></td>
</tr>
<tr>
<td><div align="right">订单编号：</div></td>
<td><%=Request("orderid")%></td>
</tr>
<tr>
<td><div align="right">订单金额：</div></td>
<td><%=Request("amount")%></td>
</tr>
<tr>
<td><div align="right">你的EMail：</div></td>
<td><%=Request("Email")%></td>
</tr>
<tr>
<td> </td>
<td><input name="pay" type="submit" value="开始在线支付"></td>
</tr>
</form>
</table>
<%End If%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -