bankret.asp

功能最强大的ASP网站

<%

Succeed = request ("Succeed")
BillNo = request("BillNo")
Amount = request("Amount")
strDate = request("Date")
Msg = request("Msg")
signature = request("signature")

ip=Request.ServerVariables("REMOTE_ADDR")

if ip<>"61.132.57.38" then		'招行支付网关的IP.防址恶意调用该程序
	session("mesg")="对不起,该网页只能由招行支付网关调用"
	Response.Redirect "../result.asp"
end if


if Succeed <>"Y" then
	response.write "实时支付失败"
	response.end
end if


set rs = conn.execute (" select * from banktransfer where orderid like '%-"& BillNo & "' ")
	if rs.eof then
		session("mesg")="在线支付入帐失败:未找到转帐记录,请尽快与本公司财务部联系"
		Response.Redirect "../result.asp"
		'response.write "在线支付入帐失败:未找到转帐记录,请尽快与本公司财务部联系"
		response.end
	end if
	
	if rs("status") = "正在确认" then
		direction = "真实入帐"
		remark = "招行转帐,转帐订单号["& v_oid & "]"
		username = rs("username")
		amount = Amount
		billno = BillNo
		rs.close
		set rs = nothing
		
		ret = FunManage(direction,username,amount, billno, remark, ErrMsg)
		
	
		if ret = "0" then
			conn.execute ("update banktransfer set status='正常',handletime='" & now() & "', remark='已真实入帐到[" & username & "]' where orderid='" & v_oid & "' ")
			session("mesg")="系统为客户["&username&"]做["&direction&"]["&amount&"]成功"
			Response.Redirect "../result.asp"
			'response.write "系统为客户["&username&"]做["&direction&"]["&amount&"]成功"
		else
			session("mesg")="系统为客户["&username&"]做["&direction&"]["&amount&"]失败：" & ErrMsg
			Response.Redirect "../result.asp"
			'response.write "系统为客户["&username&"]做["&direction&"]["&amount&"]失败：" & ErrMsg
		end if
	else
		session("mesg")="该支付订单已入帐成功"
		Response.Redirect "../result.asp"
		'response.write "该支付订单已入帐成功"
	end if
%>