Question

asp获取信息及修改access数据库信息

out_trade_no =DelStr(Request.Form("out_trade_no")) '获取定单号
total_fee =DelStr(Request.Form("total_fee")) '获取支付的总价格
receive_name =DelStr(Request.Form("receive_name")) '获取收货人姓名
'如需获取其它参数，可填写 参数 =DelStr(Request.Form("获取参数名"))
*************************交易状态返回处*************************
If mysign=request.Form("sign") And ResponseTxt="true" Then
If request.Form("trade_status") = "TRADE_FINISHED" Then
'在此处添加：成功,更新数据库语句
returnTxt = "success"
Else
returnTxt = "fail"
End If
Response.Write returnTxt
Else
response.write "fail"
End If

主要是想用ASP语言编写代码获取支付的总价格在<在此处添加：成功,更新数据库语句>处加上一段代码,然后,加在access数据库中的member表中DollafsCredits项中的原有数值上,条件是和数据库member表中的name值相符合

Answer 1

'数据库连接
out_trade_no =DelStr(Request.Form("out_trade_no")) '获取定单号
total_fee =DelStr(Request.Form("total_fee")) '获取支付的总价格
receive_name =DelStr(Request.Form("receive_name")) '获取收货人姓名
'如需获取其它参数，可填写 参数 =DelStr(Request.Form("获取参数名"))
*************************交易状态返回处*************************
If mysign=request.Form("sign") And ResponseTxt="true" Then
If request.Form("trade_status") = "TRADE_FINISHED" Then

conn.execute("update [member] set DollafsCredits=DollafsCredits+"&request.Form("trade_status")&" where [name]='"&receive_name &"'")
response.write "<script>alert('成功,更新数据库');</script>"

returnTxt = "success"
Else
returnTxt = "fail"
End If
Response.Write returnTxt
Else
response.write "fail"
End If