这是一个网上银行反馈回来的信息！
我上次发了个关于提交的问题，现在是这是接收的代码！
有谁能够跟我解释一下啊！
<!--
<!--#include file="../sub/conn.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_amount=request("v_amount")
v_moneytype=request("v_moneytype")
remark1=request("remark1")
remark2=request("remark2")
v_md5str=request("v_md5str")
key="****************"'密码
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检验情况输出结果 Ucase转换为大写
if md5text<>v_md5str then
response.write("MD5 error")
else
'逻辑处理
if v_pstatus=20 then
'支付成功
else
'支付失败
end if
'提示：仅是对校验码校验通过不表示该支付结果是成功只意味着该信息是由网银传回
'校验成功需对传回的v_pstatus参数做判断，其中20都意味着支付成功，30表示支付失败
'如果商户涉及实时售卡，请对返回的金额与数据库中原始金额做大小判断，以防恶意行为
'-----------------------------------------------
end if
%>
<!--
以下是打印出所有接收数据的结果，供编程人员参考
-->
<table width="93%" border="0">
<tr>
<td> <p><b><font color="#FF0000">提示：</font> 您网上在线支付情况反馈如下：</b><br>
此次交易编号： <%=v_oid%></p>
<p>
<%if v_pstatus=20 then
zhuangtai = "在线支付已经支付成功"
%>
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select * from fx_pay where (fx_id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("fx_userid")=session("userid")
rs("fx_v_pstatus")=v_pstatus
rs("fx_v_pmode")=v_pmode
rs("fx_v_amount")=v_amount
rs("fx_v_moneytype")=v_moneytype
rs.update
rs.close
set rs=nothing
Response.write "<script language = 'javascript'>alert('在线支付成功!');"
Response.write "window.document.location.href='../diary_my.asp';</script>"
%>
在线支付已经支付成功
<%elseif v_pstatus=30 then
zhuangtai = "在线支付失败!"
%>
在线支付失败!
<%end if%>
</p>
<p> 支付代码号：<%=v_pstatus%><br>
<br>
在线支付结果：<%=v_pstring%> </p>
<p> 您所使用的卡为：<%=v_pmode%></p>
<p>传输来的校验码：<%=v_md5str%></p>
<p>加密后的值：<%=md5text%><br>
</p>
<p>v_amount：<%=v_amount%></p>
<p>v_moneytype：<%=v_moneytype%></p>
</p></td>
</tr>
</table>
-->
