receive.asp

有关遗传算法的例子

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

	m_id			=	request("m_id")		
	m_orderid		=	request("m_orderid")
	m_oamount		=	request("m_oamount")
	m_ocurrency		=	request("m_ocurrency")
	m_url			=	request("m_url")	
	m_language		=	request("m_language")
	s_name			=	request("s_name")
	s_addr			=	request("s_addr")
	s_postcode		=	request("s_postcode")
	s_tel			=	request("s_tel")
	s_eml			=	request("s_eml")

'支付用户
	if session("username")<>"" then
		r_name	=	session("username")
	else
		r_name	=	Request.form("username")
	end if
	
	r_addr			=	request("r_addr")
	r_postcode		=	request("r_postcode")
	r_eml			=	request("r_eml")
	r_tel			=	request("r_tel")
	m_ocomment		=	request("m_ocomment")
	m_status		=	request("m_status")
	modate			=	request("modate")
	newmd5info		=	request("newmd5info")
	key				=	site_pay_md5
	
	if request("md5info")="" then
		response.Write("认证签名为空值")
		response.end
	end if

	'升级的
	newOrderMessage = m_id&m_orderid&m_oamount&key&m_status
	
	newMd5text = trim(md5(newOrderMessage))		

	if Ucase(newMd5text)<>Ucase(newmd5info) then
			response.write("认证失败!!!")
	else
			if m_status = 2 then
			if s_postcode>1 then
			'/////////////////////////////////////////////////////////////
			'	用户包月升级函数：目标用户名,级别,金额,有效期/月,支付用户
			'/////////////////////////////////////////////////////////////
				call update_user(s_name,s_postcode,m_oamount,r_postcode,r_name)
			else
				'/////////////////////////////////////////////////////////////
				'	用户加点数函数：目标用户名,级别,金额,加入点数,支付用户
				'//////////////////////////////////////////////////////////////
				call update_user_ds(s_name,s_postcode,m_oamount,m_oamount*vip_money(1),r_name)
			end if
			
			else
				Response.Write "在线支付失败，请勿重复操作<br>如果你上次支付失败，请关掉所有浏览器窗口后再重试一次"
			end if
	end if
%>