receivepayment2.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 143 行
ASP
143 行
<!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/base64.asp"-->
<link rel="stylesheet" href="style.css" type="text/css">
<html>
<body>
<div align="center">
<table border="1" width="500" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" >
<tr><td><a href="index.asp"><img border="0" src="images/top.gif" width="500" height="79"></a></td></tr>
<tr><td>
<% if session("user_name")="" then
response.write "<script language=javascript>alert('请先登陆后操作，谢谢合作！');history.go(-1);</script>"
response.End
end if%>
<%set rs=server.createobject("adodb.recordset")
sql="select top 1 * from sys"
rs.open sql,conn,3,3
sys_mailserver=rs("sys_mailserver")
sys_mailuser=rs("sys_mailuser")
sys_mailpass=rs("sys_mailpass")
sys_mailtitle=rs("sys_mailtitle")
sys_name=rs("sys_name")
sys_qq=rs("sys_qq")
sys_tel=rs("sys_tel")
sys_mail=rs("sys_mail")
sys_vip=rs("sys_vip")
sys_jxs=rs("sys_jxs")
rs.close
set rs1=server.createobject("adodb.recordset")
strTemp=request("sub_number")
strTemp=srequest(strTemp,0)
sql="select * from sub where sub_number='"&strTemp&"' and sub_check=false and sub_payok=false"
rs.open sql,conn,3,3
if rs.eof then
response.write("<script>alert('没有符合条件的订单请查询谢谢！');window.location=('index.asp')</script>")
response.end
end if
if csng(rs("sub_totalcash"))<=0 then
response.write("<script>alert('订单中的金额小于零不可能的，请查询谢谢！');window.location=('index.asp')</script>")
response.end
end if
sql1="select * from [user] where user_name='"&rs("user_name")&"'"
rs1.open sql1,conn,3,3
if csng(rs1("user_money"))<csng(rs("sub_totalcash")) then
response.write("<script>alert('您帐户上的余额不足以支付此次卡资，购买不成功!');window.location=('index.asp')</script>")
response.end
end if
%>
产品名称：<%=rs("hw_name")%>
<div align="center">
<table border="1" width="500" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
<%
rs1("user_money")=round(round(rs1("user_money"),2)-round(rs("sub_totalcash"),2),2)
rs1.update
rs("sub_payok")=true
rs.update
rs("sub_adds")="0"
if rs("sub_cz")="1" then%>
<br>您的款已收从您的帐户上扣除，工作人员将尽快给您充值，您也可以现在通知客服！<a href="INDEX.ASP">返回</a> <br>
<%else
set rs2=server.createobject("adodb.recordset")
sql2="select top "&rs("hw_count")&" * from tingcardnum where hw_id="&rs("hw_id")&" and hw_ok=true order by id"
rs2.open sql2,conn,3,3
if rs2.recordcount<int(rs("hw_count")) then
response.write("<script>alert('库存不足，麻烦你尽快与管理员联系，此次交易失败!');window.location=('index.asp')</script>")
response.end
end if
%>
<br>
<%
n1=0
content="您好！感谢您购买我们的产品!我们与中国西部唯一在线支付平台联合，使用目前最新的银行B2C在线支付系统，与中国工商银行，招商银行，中国建设银行，民生银行等金融机构达成电子商务协议，其他银行正在洽谈中。本站集支付的合法性，交易的便捷性，买卖双方的及时性，网站管理的严格性，让众多玩家真正体会到交易的便捷性，安全性！可以大量的节约买家的汇款时间以及银行汇款手续费等。从而实现了游戏虚拟物品交易的电子商务化！您汇款，我付费！ 本站提倡诚信第一，在虚拟宝物得到不断的重视的过程中，愿广大玩家自觉的营造一个良好的交易氛围。 在网络游戏不断成熟的今天，也希望青少年不要荒废学业，事业沉迷于网络游戏。 最后，在此衷心感谢“西部支付”对我站技术上的支持。"&CHR(10)&CHR(10)
content=content+"您购买的是:"&CHR(10)
content=content+"购买时间:"&cstr(rs("sub_date"))&CHR(10)
content=content+"订 单 号 :"&rs("sub_number")&CHR(10)
content=content+"购买数量 :"&rs("hw_count")&CHR(10)&CHR(10)&"------------------------------------------"&CHR(10)
do while not rs2.eof
content=content&"卡号:"&rs2("hw_number")& CHR(10)&"密码:"& strAnsi2Unicode(Base64decode(strUnicode2Ansi(rs2("hw_pass"))))& CHR(10)
rs2("hw_ok")=false
rs2("sub_number")=rs("sub_number")
rs2("sub_tel")=rs("sub_tel")
rs2("number_ip")=request.servervariables("remote_addr")
rs2.update
%>
<tr>
<td width="58" style="padding: 5px" align="center">卡号：</td>
<td width="111" style="padding: 5px" align="center"><%=rs2("hw_number")%> </td>
<td width="58" style="padding: 5px" align="center">密码：</td>
<td width="111" style="padding: 5px" align="center"><%=strAnsi2Unicode(Base64decode(strUnicode2Ansi(rs2("hw_pass"))))%></td>
</tr>
<%
rs2.movenext
loop
content=content&CHR(10)&"------------------------------------------"&CHR(10)&CHR(10)
content=content+"再次感谢您购买我们的产品!"&CHR(10)
content=content+"此卡配送信息："&CHR(10)
content=content+"配送区域：全世界。"&CHR(10)
content=content+"配送方式：通过128位加密方式将商品信息（卡号密码或充值信息）实时显示在用户浏览器的页面上，同时发送到用户的邮箱中。"&CHR(10)
content=content+"配送时间：实时，无需任何等待时间。"&CHR(10)&CHR(10)
content=content+"2、如果您在购买中有问题请和我们联系："&CHR(10)
content=content+"电话："&sys_tel&"QQ："&sys_qq&CHR(10)
rs("sub_yuka")=0
rs.update
set jmail=server.CreateObject ("jmail.message")
jmail.Silent=true
jmail.Charset="gb2312"
jmail.logging=true
jmail.from=sys_mailuser
jmail.FromName=sys_mailuser
JMail.Subject =sys_mailtitle
jmail.MailServerUserName =sys_mailuser
jmail.MailServerPassWord =sys_mailpass
emailto = rs("sub_mail")
JMail.AddRecipient emailto
JMail.Body = content
jmail.Send(sys_mailserver)
set JMail = nothing
end if
set rsq=conn.execute("select sum(sub_totalcash) from sub where user_name='"&rs1("user_name")&"'")
if rsq(0)&"1"="1" then a1=0
a1=rsq(0)
if rs1("user_vip")="普通会员" then
if a1>sys_vip then
rs1("user_vip")="VIP会员"
rs1.update
end if
end if
if a1>sys_jxs then
rs1("user_vip")="经销商会员"
rs1.update
end if
%><br>本期消费金额为：<%=rs("sub_totalcash")%>元，当期您帐户上的余额为：<%=rs1("user_money")%>元<br></table></div>
<p align="center"><a href="INDEX.ASP">
<img border="0" src="images/home.gif" width="200" height="44"></a></td></tr></table></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?