📄 buyok.asp
字号:
<!--#include file="../md5/md5.asp"-->
<!--#include file="conn.asp"-->
<% if request.cookies("userid")="" then
response.write"<script>alert('只有注册会员才可以付费,请到首页登陆后在来！');window.close();</Script>"
end if
'该页为数据反馈页
'以下数据可以取递交过来的数值，也可以取自己生成的数值
'codes为递交过来的加密数据
'dayss为日期
'cash为交易金额
'payid为交易号
'xinxi为交易的备注信息
codes=request("codes")
dayss=request("days")
cash=request("cash")
payid=request("payid")
xinxi=request("xinxi")
FoundErr=false
'约定的内部密码（自己社设定，必须和支付系统中设置的交易码同，否则无法进行核对）
set rs=server.createobject("adodb.recordset")
sql="select* from pay where id=1"
rs.open sql,conn,1,3
mima=rs("code")
rs.close
set rs=nothing
if request("paysok")="Y" then
'以下为加密格式,日期格式为20031113 为8位数字
codes2=md5(trim(mima&cash&dayss&payid&xinxi))
if codes<>codes2 then
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>双六空间网支付确认信息</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
</head>
<body bgcolor="#005d29">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="400" id="AutoNumber1" bgcolor="#FFFFFF" height="87">
<tr>
<td width="400" height="21" bgcolor="#C0C0C0">
<p align="center"><font color="#FF0000" size="2"><strong>您的交易失败！</strong></font></td>
</tr>
<tr>
<td width="400" height="47"> <p align="center"><font color="#0000FF">
<font size="2"> <br>
发生交易中错误，非法操作，交易结束<br>
（请不要试图破解交易系统，你已被记录) </font><br>
</font></td>
</tr>
</table>
</center>
</div>
<p align="center"><a href="../index.asp"><font color="#FFFF00">返回首页</font></a></p>
</body>
</html>
<%
FoundErr=true
else
pays="ok"
end if
if pays="ok" and FoundErr=false then
'以下进行其他自动化操作（如自动数据库登记，自动点播音乐、电影，自动放号（游戏帐号）等）
set rs=server.createobject("adodb.recordset")
sql="select * from buy where id='"&payid&"'"
rs.open sql,conn,1,3
rs("pay")=1
rs.update
baoyue=rs("baoyue")
money=rs("money")
oklook=rs("oklook")
askmejoin=rs("askmejoin")
userid=rs("userid")
count=rs("count")
rs.close
set rs=nothing
if baoyue=1 then
set rs=server.createobject("adodb.recordset")
sql="select money,starlook,oklook,pay,baoyue from users where userid='"&userid&"'"
rs.open sql,conn,1,3
rs("pay")=1
rs("starlook")=now()
if rs("money")-now()<1 then
rs("money")=now() + money
rs("oklook")=oklook
rs("baoyue")=1
rs("vipdown")=vipdown
else
rs("money")=rs("money") + money
rs("oklook")=oklook
rs("baoyue")=1
end if
rs.update
else
set rs=server.createobject("adodb.recordset")
sql="select money,starlook,oklook,pay,usercount,baoyue from users where userid='"&userid&"'"
rs.open sql,conn,1,3
rs("pay")=1
rs("starlook")=now()
rs("usercount")=rs("usercount")+count
rs("baoyue")=0
rs("oklook")=1
rs.update
end if
'conn.execute"delete from buy where id="&clng(request("id"))
if askmejoin<>"" then
set rs=server.createobject("adodb.recordset")
sql="select getmoney,payno,oklook from users where userid='"&askmejoin&"'"
rs.open sql,conn,1,3
if rs("oklook")=0 or rs("oklook")=1 then
give=1
elseif rs("oklook")=2 then
give=2
elseif rs("oklook")=3 then
give=3
elseif rs("oklook")=4 then
give=4
end if
rs("getmoney")=cint(rs("getmoney"))+request("paymoney")/10*give
rs("payno")=cint(rs("payno"))+1
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<title>支付确认信息</title>
</head>
<body bgcolor="#005d29">
<P></p>
<P></p>
<P></p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="400" id="AutoNumber1" bgcolor="#FFFFFF" height="87">
<tr>
<td width="400" height="21" bgcolor="#C0C0C0">
<p align="center"><font color="#FF0000" size="2"><strong>恭喜！您的交易成功！</strong></font></td>
</tr>
<tr>
<td width="400" height="47"> <p align="center"><font color="#0000FF">
<font size="2"> <br>
尊敬的 <%=userid%>，感谢您购买我们的会员<br>
现在您可以去观看和下载电影啦！<br>
祝您愉快！ </font><br>
</font></td>
</tr>
</table>
</center>
</div>
<p align="center"><a href="../index.asp"><font color="#FFFF00">返回首页</font></a></p>
</body>
</html>
<%
response.end
end if
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -