?? 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 + -