📄 p2r4.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->
<%
rs.Open "Select * From setup",Conn
EarnFromRef = rs ("EarnFromRef")
EarnFromRef2 = rs ("EarnFromRef2")
EarnFromRef3 = rs ("EarnFromRef3")
EarnFromRef4 = rs ("EarnFromRef4")
EarnFromRef5 = rs ("EarnFromRef5")
EarnFromRef6 = rs ("EarnFromRef6")
rs.Close
P2RName = Request ("P2RName")
rs.Open "Select * From p2r Where P2RName = '" & P2RLink & "'",Conn
P2RType = rs ("P2RType")
P2RValuation = rs ("P2RValuation")
rs.Close
Amount = 0
rs.Open "Select Count(*) AS Total From banner Where BannerLimit > BannerDisplay And BannerValid = True",Conn
Totalbanner = rs ("Total")
If Totalbanner = 0 Then
Message = "目前数据库中没有有效的旗帜广告。"
End if
Randomize
Num = Int((Totalbanner - 1 + 1) * Rnd + 1)
rs.Close
rs.Open "Select * From banner Where BannerLimit > BannerDisplay And BannerValid = True",Conn
While not rs.eof
Amount = Amount + 1
If Amount = Num Then
BannerName = rs ("BannerName")
BannerLink = rs ("BannerLink")
BannerImg = rs ("BannerImg")
BannerText = rs ("BannerText")
End if
rs.Movenext
Wend
rs.Close
Response.Cookies("" & DomainName & "ADing").Expires = Date() - 1
rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
Referral = rs ("Referral")
Referral2 = rs ("Referral2")
Referral3 = rs ("Referral3")
Referral4 = rs ("Referral4")
Referral5 = rs ("Referral5")
Referral6 = rs ("Referral6")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><% = SiteTitle %></title>
</head>
<body topmargin="7" leftmargin="0">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td width="100%" align="center" valign="top">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<%
If rs (P2RName) <> "None" Then
rs.Close
%>
<td width="46%" height="60" align="center"><p>错误。<br>您已经从这个广告得到奖励了。</p></td>
<%
Else
MemberShip = rs ("MemberShip")
rs.Close
<!--统计活动的有效直接下线个数代码开始-->
rs.Open "Select Count(*) AS Total From member Where Referral = '" & UserName & "' And NoReferral = False And Active = True And Valid = True And Vacation = False And DateDiff('d', LoginTime, Date()) <= 30",Conn
DirectActiveRef = rs("Total")
rs.Close
<!--统计活动的有效直接下线个数代码结束-->
ValueRate = MemberShip * 0.05 + DirectActiveRef * 0.005 + 1
If ValueRate <> 1 Then
P2RValuation2 = FormatNumber (P2RValuation * ValueRate, 4, -1)
Else
P2RValuation2 = P2RValuation
End If
IP = Request.ServerVariables("REMOTE_ADDR")
If P2RType = "Points" Then
P2RType_C = "点"
sql = "Update member Set Points = Points + '" & P2RValuation2 & "', " & P2RName & " = '" & IP & "', TotalClicked = TotalClicked + 1, LoginTime = Date() Where UserName = '" & UserName & "'"
rs.Open sql,Conn
If Referral <> "" Then
rs.Open "Update member Set Points1 = Points1 + ('" & P2RValuation & "' * '" & EarnFromRef & "') Where UserName = '" & Referral & "'",Conn
If Referral2 <> "" Then
rs.Open "Update member Set Points2 = Points2 + ('" & P2RValuation & "' * '" & EarnFromRef2 & "') Where UserName = '" & Referral2 & "'",Conn
If Referral3 <> "" Then
rs.Open "Update member Set Points3 = Points3 + ('" & P2RValuation & "' * '" & EarnFromRef3 & "') Where UserName = '" & Referral3 & "'",Conn
If Referral4 <> "" Then
rs.Open "Update member Set Points4 = Points4 + ('" & P2RValuation & "' * '" & EarnFromRef4 & "') Where UserName = '" & Referral4 & "'",Conn
If Referral5 <> "" Then
rs.Open "Update member Set Points5 = Points5 + ('" & P2RValuation & "' * '" & EarnFromRef5 & "') Where UserName = '" & Referral5 & "'",Conn
If Referral6 <> "" Then
rs.Open "Update member Set Points6 = Points6 + ('" & P2RValuation & "' * '" & EarnFromRef6 & "') Where UserName = '" & Referral6 & "'",Conn
End If
End If
End If
End If
End If
End If
Else
P2RType_C = "元"
sql = "Update member Set Dollars = Dollars + '" & P2RValuation2 & "', " & P2RName & " = '" & IP & "', TotalClicked = TotalClicked + 1, LoginTime = Date() Where UserName = '" & UserName & "'"
rs.Open sql,Conn
If Referral <> "" Then
rs.Open "Update member Set Dollars1 = Dollars1 + ('" & P2RValuation & "' * '" & EarnFromRef & "') Where UserName = '" & Referral & "'",Conn
If Referral2 <> "" Then
rs.Open "Update member Set Dollars2 = Dollars2 + ('" & P2RValuation & "' * '" & EarnFromRef2 & "') Where UserName = '" & Referral2 & "'",Conn
If Referral3 <> "" Then
rs.Open "Update member Set Dollars3 = Dollars3 + ('" & P2RValuation & "' * '" & EarnFromRef3 & "') Where UserName = '" & Referral3 & "'",Conn
If Referral4 <> "" Then
rs.Open "Update member Set Dollars4 = Dollars4 + ('" & P2RValuation & "' * '" & EarnFromRef4 & "') Where UserName = '" & Referral4 & "'",Conn
If Referral5 <> "" Then
rs.Open "Update member Set Dollars5 = Dollars5 + ('" & P2RValuation & "' * '" & EarnFromRef5 & "') Where UserName = '" & Referral5 & "'",Conn
If Referral6 <> "" Then
rs.Open "Update member Set Dollars6 = Dollars6 + ('" & P2RValuation & "' * '" & EarnFromRef6 & "') Where UserName = '" & Referral6 & "'",Conn
End If
End If
End If
End If
End If
End If
End if
rs.open "Update p2r Set P2RVisit = P2RVisit + 1 Where P2RName = '" & P2RName & "'",Conn
%>
<td width="32%" height="60" align="center"><p>谢谢！<br><font color="#FF0000"><% = P2RValuation %></font> <% = P2RType_C %> 已经加入您的帐户了。</p></td>
<% End if %>
<td width="72%" height="60" align="center">
<%
If Message <> "" Then
Response.Write Message
Conn.Close
Else
%>
<% If BannerImg <> "" Then %>
<a href="<% = BannerLink %>" target="_blank"><img border="0" src="<% = BannerImg %>" width="468" height="60" align="left"></a>
<% Else %>
<a href="<% = BannerLink %>" target="_blank"><% = BannerText %></a>
<% End if%>
<%
rs.Open "Update banner Set BannerDisplay = BannerDisplay + 1 Where BannerName = '" & BannerName & "'",Conn
Conn.Close
End if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -