success.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 105 行

<%
'
'@ 接收页面示例
'@
 
 
'接收订单日期
v_date=Request.Form("v_date") 

'接收订单编号
v_oid=Request.Form("v_oid") 

'接收订单金额
v_amount=Request.Form("v_amount") 

'接收订单状态
v_status=Request.Form("v_status") 

'接收MD5签名
v_md5=Request.Form("v_md5") 

sql="select * from pay_online where id=1"
set rs=conn.execute (sql)
ipayno2=rs("shbh")
ipaykey2=rs("pay_key")
rs.close
set rs=nothing
ipayno=base64Decode(ipayno2)
ipaykey=base64Decode(ipaykey2)


'商户编号,数字组成,由IPAY分配
v_mid = ipayno 

'商户私钥,在IPAY商户管理后台设定
v_key = ipaykey 


 
dim md5_string 
md5_string = md5(cstr(v_date & v_mid & v_oid & v_amount & v_status & v_key)) 

%>
<table border="1" width="771" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#ACA793">
<%
If v_md5 =  md5_string Then
	'支付结果可信	
	If  v_status = "00" Then
%>

	<tr>
		<td>
		<table border="0" width="100%" id="table2" cellspacing="1">
			<tr>
				<td>
				<table border="0" width="100%" id="table3" cellspacing="0" cellpadding="0">
					<tr>
						<td>
						<p align="center"><font color="#FF0000">恭喜您！交易成功</font></td>
					</tr>
					<tr>
						<td>
						<ul>
							<li>交易日期：<%=v_date%></li>
							<li>订单号：<%=v_oid%></li>
							<li>一共费用(包括运费)：<%=v_amount%></li>
							<li>请牢记您的订单号。</li>
							<li>我们会尽快给您发货，请及时登录网站并查询发货情况。</li>
							<li><a href="index.asp">返回首页</a>继续浏览其他商品。</li>
						</ul>
						</td>
					</tr>
				</table>
				</td>
			</tr>
<%
ElseIf v_status =  "20" Then 
Response.Write "订单查询成功" 	'相应处理代码 
Else
%>
<tr>
				<td>
				<p align="center"><font color="#FF0000">Sorry！交易失败</font></td>
			</tr>
			<tr>
				<td>
				<ul>
					<li>对不起，交易失败，帐户金额没有被扣除。</li>
					<li>如果您是会员，并通过正确操作而导致该情况，请与网站管理员联系。</li>
					<li>如果非法导致改情况发生，我们已经记录了您的相关信息。</li>
				</ul>
				</td>
			</tr>
		</table>
		</td>
	</tr>
<%
End If
Else  
Response.Write "<tr><td>伪造支付结果或无效信息，已经记录相关信息，后果严重者将移交公安部门处理</td></tr>" '支付结果伪造
	'相应处理代码，设置COOKIE拒绝该客户使用，记录IP等 
End If	
%>
</table>