📄 receive2.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="md52.asp"-->
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--佣金计划</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td width="100%" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/class_bg.jpg" height=50> <img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp><%=webname%></a> >> 支付平台</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width=100% border="0" cellpadding="5" cellspacing="0" class="table-xia" bgColor=#f1f1f1>
<TR><TD bgColor=#ffffff colspan=19 height=1></TD>
<tr>
<td width="88%" colspan="8">
<%
'该页面为支付完成后获取返回的参数及处理.....
'获取参数
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="test"
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表示支付失败
'如果商户涉及实时售卡，请对返回的金额与数据库中原始金额做大小判断，以防恶意行为
'操作数据库
'''''''''''''''''''''开始写入数据库''''''''''''''''''''
'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>
<%if session("v_oid")=v_oid then%>
<b><font color="#FF0000">提示：</font> 您网上在线支付情况反馈如下：</b><br>
此次交易编号： <%=v_oid%><br>
支付金额：<%=v_amount%><br>
<% if v_pstatus=1 then
zhuangtai = "支付已提交，但已对您的非实时银行卡已经进行扣款 "
%>
支付已提交，但已对您的非实时银行卡已经进行扣款
<%elseif v_pstatus=20 then
zhuangtai = "在线支付已经支付成功"
%>
在线支付已经支付成功
<%elseif v_pstatus=30 then
zhuangtai = "在线支付失败!"
%>
在线支付失败!
<%end if%>
<br>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card_dingdan where dingdanhao='"&v_oid&"' " ,conn,1,1
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('系统出错！');window.close();</script>"
response.end
else
bookid=rs("bookid")
bookcount=rs("bookcount")
card_dingdanid=rs("card_dingdanid")
rs.Close
set rs=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where bookid="&bookid&" ",conn,1,3
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('系统缺货！');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&" "
Response.Write "卡号："&rs("cardhao")&" "
ii=ii&"密码："&rs("cardmima")&"<br>"
Response.Write "密码："&rs("cardmima")&"<br>"
rs("used")=1
rs("card_dingdanid")=card_dingdanid
rs.Update
i=i+1
if i>=bookcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1
mailaddress=rs("mailaddress")
mailusername=rs("mailusername")
mailuserpass=rs("mailuserpass")
mailname=rs("mailname")
mailsend=rs("mailsend")
rs.close
set rs=nothing
'发送邮件
'if Forum_Setting(47)=1 then
on error resume next
'发送注册邮件
topic="您在" & webname & "订购的卡号和密码"
mailbody="<html>"
mailbody=mailbody & "<title>卡号和密码</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & trim(session("dinguserzhenshiname"))&"，您好：<br><br>"
mailbody=mailbody & "欢迎您注册" & webname & "网上商城，我们将提供给您最好的服务！<br>"
mailbody=mailbody & "下面是您在" & webname & "网上商城的卡号和密码：<br><br>"
mailbody=mailbody & ""&ii&""
mailbody=mailbody & "<br><br>"
mailbody=mailbody & "<center><font color=red>再次感谢您来" & webname & "网上商城！</font>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
jmail.from = mailsend
jmail.silent = true
jmail.Logging = true
jmail.FromName = mailname
jmail.mailserverusername = mailusername
jmail.mailserverpassword = mailuserpass
jmail.AddRecipient trim(session("dinguseremail"))
jmail.body=mailbody
JMail.Subject=topic
if not jmail.Send ( mailaddress ) then
SendMail=""
else
SendMail="OK"
end if
if SendMail="OK" then
sendmsg="<p>· 您的卡号和密码已经发往您的邮箱，请注意查收!</p>"
else
sendmsg="<p>· 系统出错，卡号和密码未能发送到您的邮箱!</p>"
end if
%>
<%else%>
在线支付失败!
<%end if%>
</p>
</td>
</tr>
</table>
<p> </p>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -