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

📄 qqcf_onlinepay_receive.asp

📁 功 能: 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
字号:
<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制 作:乘 风
' 开发网站:乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示:http://www.qqcf.com/?action=try
' 最新版本下载:http://www.qqcf.com/?action=down
' 使用帮助:http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品:乘风多用户计数器Access版、MsSql版、Php版、.Net版,乘风电影程序、
'        乘风网站推广系统Mssql版、乘风网址程序,乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度,请勿删除!
'                       2006年9月14日									
'===================================
%>
<!--#include file="QQCF_Conn.asp"-->
<!--#include file="QQCF_MD5.asp"-->
<%
'''''''''
 ' @Description: 快钱网关接口范例
 ' @Copyright (c) 上海快钱信息服务有限公司
 ' @version 2.0
'''''''''
	merchant_key =merchant_key		'''商户密钥

	merchant_id = request("merchant_id")			'''获取商户编号
	orderid =  request("orderid")		'''获取订单编号
	amount =  request("amount")	'''获取订单金额
	dealdate =  request("date")		'''获取交易日期
	succeed =  request("succeed")	'''获取交易结果,Y成功,N失败
	mac =  request("mac")		'''获取安全加密串
	merchant_param =  request("merchant_param")		'''获取商户私有参数

	couponid = request("couponid")		'''获取优惠券编码
	couponvalue = request("couponvalue") 		'''获取优惠券面额

	'''生成加密串,注意顺序
	ScrtStr = "merchant_id=" & merchant_id & "&orderid=" & orderid & "&amount=" & amount & "&date=" & dealdate & "&succeed=" & succeed & "&merchant_key=" & merchant_key
	mymac=md5(ScrtStr,2) 
		

	 v_result="失败"
	if ucase(mac)=ucase(mymac)   then 
			
			if succeed="Y"   then		'''支付成功
				
				v_result="成功"
				'''
				'''#商户网站逻辑处理#
				%>
				<!--#include file="qqcf_onlinepay_ok.asp"-->
				<%
				'''
			
			else		'''支付失败

			end if

	else		'''签名错误

	end if
	

%>
<!doctype html public "-//w3c//dtd html 4.0 transitional//en" >
<html>
	<head>
		<title>支付结果</title>
		<meta http-equiv="content-type" content="text/html; charset=gb2312" />
	</head>
	
	<body>
		
		<div align="center">
		
		<%if succeed="Y" Then%>
		
  <table width="259" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC" >
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"><%=Mystr%></td>
    </tr>
  </table>
		<%else%>
		<table width="259" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC" >
			<tr bgcolor="#FFFFFF">
				<td width="68">订单编号:</td>
			  <td width="182"><%=orderid%></td>
			</tr>
			<tr bgcolor="#FFFFFF">
				<td>订单金额:</td>
			  <td><%=amount%></td>
			</tr>
			<tr bgcolor="#FFFFFF">
				<td>支付结果:</td>
			  <td><%=v_result%>(有疑问的话请联系系统管理员)</td>
			</tr>
	  </table>
	  <%End if%>
	</div>

	</body>
</html>

⌨️ 快捷键说明

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