receive.asp

一个非常优秀的自动建站程序

<!--#include file="top.asp"-->
<!--#include file="checkpost.asp"-->
<!--#include file="md5.asp"-->
<%
'该页面为支付完成后获取返回的参数及处理.....
 '获取参数
v_oid=request("v_oid")
v_pmode=request("v_pmode")
v_pstatus=request("v_pstatus")
v_pstring=request("v_pstring")
v_md5info=request("v_md5info")
v_amount=request("v_amount")
v_moneytype=request("v_moneytype")
v_md5money=request("v_md5money")
v_md5=request("v_md5")
key="wangqunwangjin649876420"

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


'md5校验

text = v_oid&v_pstatus&v_amount&v_moneytype&key
md5text = trim(md5(text))


'按md5检验情况输出结果 Ucase转换为大写
if Ucase(md5text)<>Ucase(v_md5) then
  response.write("error")
else
  response.write("received")
	'或response.write "sent',依据商品物流特征决定。

	'提示：仅是对校验码校验通过不表示该支付结果是成功只意味着该信息是由网银传回
	'校验成功需对传回的v_pstatus参数做判断，其中1或20都意味着支付成功（只是支付状态分非实时和实时两种），30表示支付失败
	'如果商户涉及实时售卡，请对返回的金额与数据库中原始金额做大小判断，以防恶意行为
    '操作数据库

'''''''''''''''''''''开始写入数据库''''''''''''''''''''
set rs=server.createobject("adodb.recordset")
sql="select * from [Agent_User] where Id=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Redirect("error.asp?id=011")
else
UserID=rs("ID")
Money=rs("Money") + v_amount
rs("Money")=Money
rs.update
end if
rs.close
sql="select * from [BuyLog_List] where (BuyLogID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserID")=UserID
rs("BuyLogSum")=v_amount
rs("BuyLogMoney")=Money
rs("BuyLogDate")=Date()
rs("BuyLogOther")="用户网络银行允值"
rs.update
rs.close
set rs=nothing







'cn.close
'set cn=nothing
'set rs=nothing
   
   '-----------------------------------------------
   '若有错误发生
   If Err.Number <> 0 Then
      Response.Write "error" & Err.Number & "<br>"
      Response.Write "error" & Err.Source & "<br>"
      Response.Write "error" & Err.Description & "<br>"
  Else
     
   End If
   '-----------------------------------------------
   '关闭资料库
   '-----------------------------------------------
end if
%>
<!--
以下是打印出所有接收数据的结果，供编程人员参考
-->
<table width="93%" border="0">
  <tr> 
    <td> <p><b><font color="#FF0000">提示：</font> 您网上在线支付情况反馈如下：</b><br>
        此次交易编号： <%=v_oid%></p>
      <p> 
        <% if v_pstatus=1 then
								zhuangtai = "支付已提交，但已对您的非实时银行卡已经进行扣款 "
								%>
        支付已提交，但已对您的非实时银行卡已经进行扣款 
        <%elseif v_pstatus=20 then
								zhuangtai = "在线支付已经支付成功"
								%>
        在线支付已经支付成功 
        <%elseif v_pstatus=30 then
								zhuangtai = "在线支付失败!"
								%>
        在线支付失败! 
        <%end if%>
      </p>
      <p> 支付代码号：<%=v_pstatus%><br>
        <br>
        在线支付结果：<%=v_pstring%> </p>
      <p> 您所使用的卡为：<%=v_pmode%></p>
      <p>传输来的校验码：<%=v_md5%></p>

      <p>加密后的值：<%=md5text%><br>
      </p>
      <p>v_amount：<%=v_amount%></p>
      <p>v_moneytype：<%=v_moneytype%></p>
      </p></td><%session.abandon()%>
  </tr>
</table>
<!--#include file="hand.asp"-->