onlinepay_receive.asp

免费电影程序:系统做免费

<%
' 乘风电影V3.3 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<!--#Include File="Conn.asp"-->
<!--#Include File="QQCF_MyFunction.asp"-->
<!--#Include File="QQCF_Md5.asp"-->

<%If CInt(GetMySet("OnlinePayType"))=1 Then%>
<%
'''''''''
 ' @Description: 快钱网关接口范例
 ' @Copyright (c) 上海快钱信息服务有限公司
 ' @version 2.0
'''''''''
	merchant_key =GetMySet("OnlinePayKey")		'''商户密钥

	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")		'''获取商户私有参数
	
	User_Name=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="OnlinePay_Ok.asp"-->
				<%
				'''
			
			else		'''支付失败
			 Response.write "支付失败，如有问题请联系管理员处理"
			 Response.End
			end if

	else		'''签名错误
	 Response.write "签名错误，如有问题请联系管理员处理"
	 Response.End
	end if
%>
<%End If%>


<%If CInt(GetMySet("OnlinePayType"))=2 Then%>
<%   
'****************************************	' MD5密钥要跟订单提交页相同，如Send.asp里的 key = "test" ,修改""号内 test 为您的密钥
											' 如果您还没有设置MD5密钥请登陆我们为您提供商户后台，地址：https://merchant3.chinabank.com.cn/
	key = GetMySet("OnlinePayKey")							' 登陆后在上面的导航栏里可能找到“资料管理”，在资料管理的二级导航栏里有“MD5密钥设置” 
											' 建议您设置一个16位以上的密钥或更高，密钥最多64位，但设置16位已经足够了
'****************************************

' 取得返回参数值
	v_oid=request("v_oid")                               ' 商户发送的v_oid定单编号
	orderid=v_oid
	v_pmode=request("v_pmode")                           ' 支付方式（字符串） 
	v_pstatus=request("v_pstatus")                       ' 支付状态 20（支付成功）;30（支付失败）
	If v_pstatus="20" Then
	 v_result="成功"
	Elseif v_pstatus="30" Then
	 v_result="失败"
	End If
	
	v_pstring=request("v_pstring")                       ' 支付结果信息 支付完成（当v_pstatus=20时）；失败原因（当v_pstatus=30时）；
	v_amount=request("v_amount")                         ' 订单实际支付金额
	amount=v_amount
		
	v_moneytype=request("v_moneytype")                   ' 订单实际支付币种
	remark1=request("remark1")                           ' 备注字段1
	User_Name=remark1
	
	remark2=request("remark2")                           ' 备注字段2
	v_md5str=request("v_md5str")                         ' 网银在线拼凑的Md5校验串


if request("v_md5str")="" then
	response.Write("v_md5str：空值")
	response.end
end if


'md5校验

	text = v_oid&v_pstatus&v_amount&v_moneytype&key

	md5text = Ucase(trim(md5(text,2)))    '商户拼凑的Md5校验串

	if md5text<>v_md5str then		' 网银在线拼凑的Md5校验串 与 商户拼凑的Md5校验串 进行对比
	'对比失败表示信息非网银在线返回的信息

	  response.write("MD5 error")

	else
	'对比成功表示信息是网银在线返回的信息

	  if v_pstatus=20 then
	  	  %>
	  	  <!--#include file="OnlinePay_Ok.asp"-->
	      <%
	  end if

	end if
%>

<%End If%>