标题:[网银]在线支付 返回写入参数怎样配置!!详细进
取消只看楼主
d778
Rank: 1
等 级:新手上路
帖 子:257
专家分:0
注 册:2006-1-10
 问题点数:0 回复次数:3 
[网银]在线支付 返回写入参数怎样配置!!详细进

提交 页面 参数:姓名:v_rcvname 地址:v_rcvaddr 冲值金额:v_amount
数据库 结构:表:chongzhi 列 姓名:name 冲值 金额:qian 此记录是查询 支付

怎样让 数据 写入 chongzhi 呢? 并加 name qian

-----------------
写入chongzhi后 还要写入 用户资料表 user
结构: 表:user 列 ,姓名:name 该用户总金额 :zongjin

该如何判断给哪个用户加钱呢?是根据返回值name 还是根据
rs.open"select * from user where name='"&session("user")&"'",conn,1,1

网银在线的官方 文件:
<!--#include file="MD5.asp"-->
<%
'**************************************** ' MD5密钥要跟订单提交页相同,如Send.asp里的 key = "test" ,修改""号内 test 为您的密钥
' 如果您还没有设置MD5密钥请登陆我们为您提供商户后台,地址:https://merchant3.chinabank.com.cn/
key = "123456789" ' 登陆后在上面的导航栏里可能找到“资料管理”,在资料管理的二级导航栏里有“MD5密钥设置”
' 建议您设置一个16位以上的密钥或更高,密钥最多64位,但设置16位已经足够了
'****************************************

' 取得返回参数值
v_oid=request("v_oid") ' 商户发送的v_oid定单编号
v_pmode=request("v_pmode") ' 支付方式(字符串)
v_pstatus=request("v_pstatus") ' 支付状态 20(支付成功);30(支付失败)
v_pstring=request("v_pstring") ' 支付结果信息 支付完成(当v_pstatus=20时);失败原因(当v_pstatus=30时);
v_amount=request("v_amount") ' 订单实际支付金额
v_moneytype=request("v_moneytype") ' 订单实际支付币种
remark1=request("remark1") ' 备注字段1
remark2=request("remark2") ' 备注字段2
v_md5str=request("v_md5str") ' 网银在线拼凑的Md5校验串


if request("v_md5str")="" then
response.Write("v_md5str:空值")
response.end
end if


'md5校验

text = v_oid&v_pstatus&v_amount&v_moneytype&key

md5text = Ucase(trim(md5(text))) '商户拼凑的Md5校验串

if md5text<>v_md5str then ' 网银在线拼凑的Md5校验串 与 商户拼凑的Md5校验串 进行对比
'对比失败表示信息非网银在线返回的信息

response.write("MD5 error")

else
'对比成功表示信息是网银在线返回的信息

if v_pstatus=20 then

'支付成功
'此处加入商户系统的逻辑处理(例如判断金额,判断支付状态,更新订单状态等等)......

end if

end if
%>





<!--
以下是打印出所有接收数据的结果,供编程人员参考
-->
<table width="93%" border="0">
<tr>
<td> <p><b><font color="#FF0000">提示:</font> 您网上在线支付情况反馈如下:</b><br>
<br>
此次交易编号: <%=v_oid%></p>
<p>
<%if 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_amount%></p>
<p>币种:人民币</p>
</p></td>
</tr>
</table>

[此贴子已经被作者于2007-5-23 10:45:32编辑过]

搜索更多相关主题的帖子: 参数 数据库 name user 
2007-05-23 10:35
d778
Rank: 1
等 级:新手上路
帖 子:257
专家分:0
注 册:2006-1-10
得分:0 

我自己写了一个 感觉不对:BuyLogOther为在哪里冲值

'''''''''''''''''''''开始写入数据库''''''''''''''''''''
set rs=server.createobject("adodb.recordset")
sql="select * from chongzhi where BuyLogOther='" & "用户网络银行充值:" & v_oid &"'"
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then Response.Redirect("cuowu.asp")
rs.close
sql="select * from user where name='"&name&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Redirect("cuowu.asp")
else
name=rs("ID")
zongjin=rs("zongjin") + v_amount
rs("zongjin")=zongjin
rs.update
end if
rs.close
sql="select * from chongzhi 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")="用户网络银行充值:" & v_oid
rs.update
rs.close
set rs=nothing
Response.Redirect("Default.asp")

[此贴子已经被作者于2007-5-23 10:51:15编辑过]


2007-05-23 10:49
d778
Rank: 1
等 级:新手上路
帖 子:257
专家分:0
注 册:2006-1-10
得分:0 
在详细点的有不?

难道就没人帮忙?

2007-05-24 08:33
d778
Rank: 1
等 级:新手上路
帖 子:257
专家分:0
注 册:2006-1-10
得分:0 
你这个是 支付宝的
我要网银

2007-05-25 11:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-141744-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.512522 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved