receive.asp

来自「有关遗传算法的例子」· ASP 代码 · 共 58 行

<!--#include file="md5.asp"-->
<!--#include file="xpayconfig.asp"-->
<%
if Session("ayangmoviesystem_repay")=True then
Response.write "请勿重复提交"
Response.end
end if
Session("ayangmoviesystem_repay")=True

    tid=Request("tid")                            '商户唯一交易号 
    bid=Request("bid")                            '商户网站订单号
    sid=Request("sid")                            '易付通交易成功 流水号
    actionCode=Request("actionCode")              '交易码
    actionParameter=Request("actionParameter")    '业务代码
    card=Request("card")                          '支付方式
    success=Request("success")                    '成功标志，
    bankcode=request("bankcode")                  '支付银行代码
    remark1=request("remark1")                    '备注信息
   
   ayangsite_date=split(request("username"),"|")                 '商户网站支付用户
   '用户,会员级别，级别名
   prc=Request.form("prc")                            '支付的金额
   username=ayangsite_date(0)
   vip=ayangsite_date(1)
   vipname=ayangsite_date(2)
   vipdate=ayangsite_date(3)  
   r_name=ayangsite_date(4) 
    
   md=Request("md")                               '32位md5加密数据
     
   if success="false" then
   response.write "error"
   response.end
   end if
   
'验证数据是否正确  
'在xpayconfig.asp里取出key的值
'接收页面进行数据加密
dim ymd
ymd=md5(key&":"&bid&","&sid&","&prc&","&actionCode&","&actionParameter&","&tid&","&card&","&success)  
     if  md<>ymd  then               '验证数据是否正确
           response.write "error"
           response.end
     else
	
	if vip>1 then
			'/////////////////////////////////////////////////////////////
			'	用户包月升级函数：目标用户名,级别,金额,有效期/月,支付用户
			'/////////////////////////////////////////////////////////////
				call update_user(username,vip,prc,vipdate,r_name)
			else
				'/////////////////////////////////////////////////////////////
				'	用户加点数函数：目标用户名,级别,金额，点数,支付用户
				'//////////////////////////////////////////////////////////////
				call update_user_ds(username,vip,prc,prc*vip_money(1),r_name)
	end if 
end if 
%>