<!--#include file="Connection.Asp"-->
<!--#include file="MD5.asp"-->
<!--#include file="PayKey.Asp"-->
<%
Dim v_oid,v_pstatus,v_amount,v_moneytype,v_md5str,text,md5text,Rs
v_oid=request("v_oid")
v_pstatus=request("v_pstatus")
v_amount=request("v_amount")
v_moneytype=request("v_moneytype")
v_md5str=request("v_md5str")

'md5校验

text = v_oid&v_pstatus&v_amount&v_moneytype&key

md5text = Ucase(trim(md5(text)))

if md5text<>v_md5str then
	response.write("error")
else
	'商户系统的逻辑处理（例如判断金额，判断支付状态，更新订单状态等等）.......
  if v_pstatus=20 then
  SendFMoneyToUser'支付成功
  else
	'支付失败
  end if
    
	response.write("ok")
end if


'更新订单状态,更新用户点数
Sub SendFMoneyToUser
Set Rs=Conn.ExeCute("Select * From JaNeed WHERE V_oid='"&v_oid&"' AND Stat<>1") '查找是否存在此未冲值的订单
If not Rs.eof then
Conn.ExeCute("UPDATE [JaUser] SET JaMonery=JaMonery+"&Rs("JaMm")&" WHERE JaUid='"&Rs("JaUid")&"'") '给用户冲值
Conn.ExeCute("UPDATE [JaNeed] SET Stat=1 WHERE V_oid='"&v_oid&"'") '更新订单状态
End If
Rs.close
Set Rs=Nothing
End Sub
Conn.close
Set Conn=Nothing
%>