📄 surf4.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
P2CName = Request ("P2CName")
rs.Open "Select * From p2c Where P2CName = '" & P2CName & "'",Conn
P2CID = rs ("ID")
P2CLink = rs ("P2CLink")
P2CType = rs ("P2CType")
P2CValuation = rs ("P2CValuation")
NeedClick = rs ("NeedClick")
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")
MemberShip = rs ("MemberShip")
rs.Close
rs.Open "Select * From memberp2c Where UserName = '" & UserName & "' And P2CID = " & P2CID & " And P2CDate = Date()",Conn
Status = "None"
If Not rs.EOF Then
Status = rs ("Status")
Else
re.Open "Insert Into memberp2c(UserName, P2CID, P2CDate, Status) values ('" & UserName & "', " & P2CID & ", Date(), 'None')",Conn
End If
rs.Close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="css/layout-6-master.css" TYPE="text/css" MEDIA="screen">
<title><% = SiteTitle %></title>
</head>
<body topmargin="0" 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>
<td width="8%" align="center"><p align="center"><strong><font size=5> <% = SiteTitle %></font></strong>
</p></td>
<%
If Status = "Finish" Then
%>
<td width="11%" height="60" align="center"><p align="center">错误。<br>您今天已经点击过这个广告了。</p></td>
<%
Else If (Status <> "Clicked" And NeedClick = 1) Then
re.Open "Update member Set CheatCount = CheatCount + 1 Where UserName = '" & UserName & "'",Conn
%>
<td width="14%" height="60" align="center"><p align="center">错误。<br>您还没有按照要求点击广告，不能得到奖励。</p></td>
<%
Else
rs.Open "Update memberp2c Set Status = 'Finish' Where UserName = '" & UserName & "' And P2CID = " & P2CID & " And P2CDate = Date()",Conn
<!--统计活动的有效直接下线个数代码开始-->
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 + 1
If ValueRate <> 1 Then
P2CValuation2 = FormatNumber (P2CValuation * ValueRate, 4, -1)
Else
P2CValuation2 = P2CValuation
End If
If P2CType = "Points" Then
P2CType_C = "点"
sql = "Update member Set Points = Points + '" & P2CValuation2 & "', TotalClicked = TotalClicked + 1 Where UserName = '" & UserName & "'"
rs.Open sql,Conn
If Referral <> "" Then
rs.Open "Update member Set Points1 = Points1 + ('" & P2CValuation & "' * '" & EarnFromRef & "') Where UserName = '" & Referral & "'",Conn
If Referral2 <> "" Then
rs.Open "Update member Set Points2 = Points2 + ('" & P2CValuation & "' * '" & EarnFromRef2 & "') Where UserName = '" & Referral2 & "'",Conn
If Referral3 <> "" Then
rs.Open "Update member Set Points3 = Points3 + ('" & P2CValuation & "' * '" & EarnFromRef3 & "') Where UserName = '" & Referral3 & "'",Conn
If Referral4 <> "" Then
rs.Open "Update member Set Points4 = Points4 + ('" & P2CValuation & "' * '" & EarnFromRef4 & "') Where UserName = '" & Referral4 & "'",Conn
If Referral5 <> "" Then
rs.Open "Update member Set Points5 = Points5 + ('" & P2CValuation & "' * '" & EarnFromRef5 & "') Where UserName = '" & Referral5 & "'",Conn
If Referral6 <> "" Then
rs.Open "Update member Set Points6 = Points6 + ('" & P2CValuation & "' * '" & EarnFromRef6 & "') Where UserName = '" & Referral6 & "'",Conn
End If
End If
End If
End If
End If
End If
Else
P2CType_C = "元"
sql = "Update member Set Dollars = Dollars + '" & P2CValuation2 & "', TotalClicked = TotalClicked + 1 Where UserName = '" & UserName & "'"
rs.Open sql,Conn
If Referral <> "" Then
rs.Open "Update member Set Dollars1 = Dollars1 + ('" & P2CValuation & "' * '" & EarnFromRef & "') Where UserName = '" & Referral & "'",Conn
If Referral2 <> "" Then
rs.Open "Update member Set Dollars2 = Dollars2 + ('" & P2CValuation & "' * '" & EarnFromRef2 & "') Where UserName = '" & Referral2 & "'",Conn
If Referral3 <> "" Then
rs.Open "Update member Set Dollars3 = Dollars3 + ('" & P2CValuation & "' * '" & EarnFromRef3 & "') Where UserName = '" & Referral3 & "'",Conn
If Referral4 <> "" Then
rs.Open "Update member Set Dollars4 = Dollars4 + ('" & P2CValuation & "' * '" & EarnFromRef4 & "') Where UserName = '" & Referral4 & "'",Conn
If Referral5 <> "" Then
rs.Open "Update member Set Dollars5 = Dollars5 + ('" & P2CValuation & "' * '" & EarnFromRef5 & "') Where UserName = '" & Referral5 & "'",Conn
If Referral6 <> "" Then
rs.Open "Update member Set Dollars6 = Dollars6 + ('" & P2CValuation & "' * '" & EarnFromRef6 & "') Where UserName = '" & Referral6 & "'",Conn
End If
End If
End If
End If
End If
End If
End if
rs.open "Update p2c Set P2CClick = P2CClick + 1 Where P2CName = '" & P2CName & "'",Conn
%>
<td width="15%" height="60" align="center"><p>谢谢。<br><font color="#00FF00"><% = P2CValuation2 %></font> <% = P2CType_C %>已经加入您的帐户。</p></td>
<% End if %>
<% End if %>
<%
rs.open "Update p2c Set P2CVisit = P2CVisit + 1 Where P2CName = '" & P2CName & "'",Conn
%>
<td width="10%" height="60" align="center">
<p align="left">
<td width="42%" height="60" align="center" valign="middle"><div align="center"> <a href="<% = P2CLink %>" target="_blank"><h2>在新窗口打开此站</h2></a></div>
</p> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -