surf.asp

中文bux点击站源码。配合其他站点用

<!--#include file="top.asp"-->
<%
  Response.Buffer = true
  Response.Expires = 0
  Response.CacheControl = "no-cache"
  UserName = Request.Cookies("" & DomainName & "")("UserName")
  PassWord = Request.Cookies("" & DomainName & "")("PassWord")
  FileName = Request.ServerVariables("script_name")
  Postion = InstrRev(fileName, "/") + 1
  FileName = Mid(FileName, Postion)
 
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  
  rs.Close
  rs.Open "Select * From member Where UserName = '" & UserName & "' And PW = '" & PassWord & "'",Conn
  
  rs.Close
%>
<%
  Response.Buffer = true
  Response.Expires = 0
  Response.CacheControl = "no-cache"
  Referral = Request ("ref")
  Session ("Referral") = Referral
  rs.Open "Select * From config",Conn
  VirtualMember = rs ("VirtualMember")
  rs.Close
  rs.Open "Select * From sitedesign",Conn
  NewsCode = rs ("NewsCode")
  rs.Close
  rs.Open "Select Count(*) AS Total From member Where Active = True And Valid = True",Conn
  TotalMember = rs("Total")
  rs.Close
%>
<%
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  LastName = rs ("LastName")
  MemberShip = rs ("MemberShip")
  Referral = rs ("Referral")
  Referral2 = rs ("Referral2")
  Referral3 = rs ("Referral3")
  Referral4 = rs ("Referral4")
  Referral5 = rs ("Referral5")
  Referral6 = rs ("Referral6")
  BlindReferral = rs ("BlindReferral")
  SignupPoints = rs ("SignupPoints")
  Points = rs ("Points")
  Points1 = rs ("Points1")
  Points2 = rs ("Points2")
  Points3 = rs ("Points3")
  Points4 = rs ("Points4")
  Points5 = rs ("Points5")
  Points6 = rs ("Points6")
  PointsCredits = rs ("PointsCredits")
  PointsDebits = rs ("PointsDebits")
  AllPoints = SignupPoints + Points + Points1 + Points2 + Points3 + Points4 + Points5 + Points6 + PointsCredits - PointsDebits
  SignupBonus = rs ("SignupBonus")
  Dollars = rs ("Dollars")
  Dollars1 = rs ("Dollars1")
  Dollars2 = rs ("Dollars2")
  Dollars3 = rs ("Dollars3")
  Dollars4 = rs ("Dollars4")
  Dollars5 = rs ("Dollars5")
  Dollars6 = rs ("Dollars6")
  DollarsCredits = rs ("DollarsCredits")
  DollarsDebits = rs ("DollarsDebits")
  AllDollars = SignupBonus + Dollars + Dollars1 + Dollars2 + Dollars3 + Dollars4 + Dollars5 + Dollars6 + DollarsCredits - DollarsDebits
  rs.Close
  MemberShipCn = "普通" 
  rs.Open "Select * From membership Where MemberShip = " & MemberShip & "",Conn
  If Not rs.EOF Then
     MemberShipCn = rs ("MemberShipCn")
  End If
  rs.Close  
  rs.Open "Select Count(*) AS Total From member Where Referral = '" & UserName & "'",Conn
  TotalDownline1 = rs ("Total")
  rs.Close
  rs.Open "Select Count(*) AS Total From member Where Referral2 = '" & UserName & "'",Conn
  TotalDownline2 = rs ("Total")
  rs.Close
  rs.Open "Select Count(*) AS Total From member Where Referral3 = '" & UserName & "'",Conn
  TotalDownline3 = rs ("Total")
  rs.Close
  rs.Open "Select Count(*) AS Total From member Where Referral4 = '" & UserName & "'",Conn
  TotalDownline4 = rs ("Total")
  rs.Close
  rs.Open "Select Count(*) AS Total From member Where Referral5 = '" & UserName & "'",Conn
  TotalDownline5 = rs ("Total")
  rs.Close
  rs.Open "Select Count(*) AS Total From member Where Referral6 = '" & UserName & "'",Conn
  TotalDownline6 = rs ("Total")
  rs.Close
  TotalDownline = TotalDownline1 + TotalDownline2 + TotalDownline3 + TotalDownline4 + TotalDownline5 + TotalDownline6
%>
<%
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  MemberShip = rs ("MemberShip")
  MemberPriority = rs ("MemberPriority")
  rs.Close
  MemberShipCn = "普通" 
  rs.Open "Select * From membership Where MemberShip = " & MemberShip & "",Conn
  If Not rs.EOF Then
     MemberShipCn = rs ("MemberShipCn")
  End If
  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 + 1
%>
<%
  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
%>

<div id="contentwrapper">
<div id="maincolumn">
<div class="text">
<h2 style="font-family: &quot;楷体_GB2312&quot;; font-weight: bold">点击赚钱</h2>

<div id="tables">
<table width="92%" align="center">

<tr>
<th class="top" width="61%">
<b>广告名称</b>
</th>
<th class="top" width="13%">
<div align="center">
<b>可点次数</b></div>
</th>
<th class="top" width="13%">
<div align="center">
<b>已点次数</b></div>
</th>
<th class="top" width="13%">
<div align="center">
<b>广告价值</b></div>
</th>
</tr>
<tr>
<p align="center"><!--#include file="ad.asp"--></p>
</tr>
<tr>
<th>

        <div align="left">
          <%      
                            TmpFlag = 0      
                            rs.Open "Select * From p2c Where P2CValid = True And P2CClick < P2CLimit Order by P2CType, P2CValuation DESC",Conn      
                            While not rs.eof      
                            P2CID = rs ("ID")      
                            P2CName = rs ("P2CName")      
                            P2CLink = rs ("P2CLink")      
                            P2CImg = rs ("P2CImg")      
                            P2CText = rs ("P2CText")      
                            P2CType = rs ("P2CType")      
                            P2CValuation = rs ("P2CValuation")      
                            P2CTarget = rs ("P2CTarget")      
                            If P2CType = "Dollars" Then      
                               P2CType_C = "元"      
                            Else      
                               P2CType_C = "点"      
                            End If      
                            Today = Date()       
                            P2CClick = rs ("P2CClick")         
                            P2CLimit = rs ("P2CLimit")
                            P2CMemberPriority = rs ("MemberPriority")
                          %>      
          <%                     
                            re.Open "Select * From memberp2c Where UserName = '" & UserName & "' And P2CID = " & P2CID & " And P2CDate = Date()",Conn
                            ClickFlag = True
                            If Not re.EOF Then
                               Status = re ("Status")
                               If Status <> "Finish" Then
                                  ClickFlag = False
                               End If
                            Else
                               ClickFlag = False
                            End If
                            re.Close      
                            If ((ClickFlag = False) And (MemberPriority >= P2CMemberPriority)) Then      
                               TmpFlag = 1      
                          %>      
          <% If P2CTarget = "PopUp" Then %>                     
          <% If P2CImg <> "" Then %> 
          <a href="<% = P2CLink %>" target="<% = DomainName %>" onClick="window.open('surf3.asp?P2CName=<% = P2CName %>','','height=80')"><img border="0" src="<% = P2CImg %>"></a><br />
          <% = P2CText %>
          </p>      
          <% Else %>     
          <a href="<% = P2CLink %>" target="<% = DomainName %>" onClick="window.open('surf3.asp?P2CName=<% = P2CName %>','','height=80')">
            <% = P2CText %>
            </a>
          </p>      
          <% End if%>      
          <% Else %>      
          <% If P2CImg <> "" Then %>      
          <a href="surf2.asp?P2CName=<% = P2CName %>&P2CLink=<% = P2CLink %>" target="<% = DomainName %>"><img border="0" src="<% = P2CImg %>"></a><br />
          <% = P2CText %>      
           <% Else %>      
          <a href="surf2.asp?P2CName=<% = P2CName %>&P2CLink=<% = P2CLink %>" target="<% = DomainName %>">
            <% = P2CText %>
            </a>      
          <% End if%>
          <% End If %>
          <% 
                             If ValueRate <> 1 Then
                                P2CValuation2 = FormatNumber (P2CValuation * ValueRate, 4, -1)
                             Else 
                                P2CValuation2 = P2CValuation
                             End If
                          %> 
          </div></th><th><% = P2CLimit %></th>
        <th><% = P2CClick %></th>
        <th><% = P2CValuation %>
          <% = P2CType_C %></th>
      </tr>
    <tr>
      <th>
        <div align="left">
          <%    
                            End if      
                            rs.MoveNext      
                            Wend      
                            rs.Close      
                            Set rs = nothing      
                            Conn.Close      
                            Set Conn = nothing      
                          %>
          
            <% If TmpFlag = 0 Then %>      
          
            <% End If %>
          </div></th><th></th>
        <th></th>
        <th></th>
      </tr>
  </table>
  <p align="center"><a href="offers.asp">参加注册任务，赚更多的钱！</a></p><br />
  <p align="center"><!--#include file="ad72890.asp"--></p><br />
<hr/>
</div>
<br />
本页面每个链接有点击人数限制。如果您没有看到这些广告，说明已经达到点击限制，请明天早些时候再来获得更多可点击次数。<a href="surfreadme.asp" target="_blank">点击这里查看点击必读</a><br />
</div>
</div>
</div>
<!--#include file="log2.asp"-->
</div>

 <!--webbot bot="HTMLMarkup" startspan -->
  <script>   
<!-- 　  
  
var limit="1:30" 　  
  
if (document.images){   
var parselimit=limit.split(":")   
parselimit=parselimit[0]*60+parselimit[1]*1   
}   
function beginrefresh(){   
if (!document.images)   
return   
if (parselimit==1)   
window.location.reload()   
else{   
parselimit-=1   
curmin=Math.floor(parselimit/60)   
cursec=parselimit%60   
if (curmin!=0)   
curtime=curmin+"分"+cursec+"秒后重刷本页！"   
else   
curtime=cursec+"秒后重刷本页！"   
window.status=curtime   
setTimeout("beginrefresh()",1000)   
}   
} 　  
  
window.onload=beginrefresh   
file://-->   
</script>  


<!--#include file="footer.asp"-->

</div>
</body>
</html>