offers.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
  Email = rs ("Email")
  MemberShip = rs ("MemberShip")
  MemberPriority = rs ("MemberPriority")
  rs.Close
  
  'If Not Request.ServerVariables("HTTP_VIA") Is Nothing Then
     'ProxyFlag = True
  'Else
     'ProxyFlag = False
  'End If
  
  P2SIP = Request.serverVariables("REMOTE_ADDR")
  ProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  If ProxyIP <> "" Then
     P2SIP = ProxyIP
  End If
%>
<%
  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">注册赚钱<br />
</h2>
<div id="tables">
  <table width="92%" align="center">
       <tr>
      <th class="top" width="20%"><div align="center">广告名称</div></th>
        <th class="top" width="50%"><div align="center">注册要求及链接</div></th>
        <th class="top" width="15%"><div align="center">广告价值</div></th>
        <th class="top" width="15%"><div align="center">注册验证</div></th>
      </tr>
<tr>
<p align="center"><!--#include file="ad.asp"--></p>
</tr>
<tr>
<p align="center"><font color=red><b>注册须知：每个注册任务，每人只限做一次，重复注册会导致您的账户被删除。如果任务所涉及的网站已经在其他地方注册的，请不要参与！！！填写的资料必须真实详细，如家庭地址等，要详细到门牌号！！！如果由于没有按照要求注册，导致注册成果被商家退回的，本站有权扣除已经发放的奖励！！！</b></font></p>
</tr>
      
       
       
      </tr> 
    <tr>
      <th colspan="4"><div align="center">   
                <!--#include file="usernavi.asp"--><%   
                          TmpFlag = 0
                          EbayDisplay = 0   
                          rs.Open "Select * From p2s Where P2SValid = True And P2SSignup < P2SLimit Order by P2SType, OrderNo, P2SValuation DESC, ID",Conn   
                          While not rs.eof     
                          P2SID = rs ("ID") 
                          P2SName = rs ("P2SName")   
                          P2SLink = rs ("P2SLink")   
                          P2SImg = rs ("P2SImg")   
                          P2SText = rs ("P2SText")   
                          P2SType = rs ("P2SType")   
                          P2SValuation = rs ("P2SValuation")
                          P2SSignup = rs ("P2SSignup")   
                          P2SLimit = rs ("P2SLimit")  
                          P2SPeriod = rs ("P2SPeriod")
                          If P2SType = "Dollars" Then   
                               P2SType_C = "元"   
                            Else   
                               P2SType_C = "点"   
                            End If
                          P2SGroup = rs ("P2SGroup")
                          P2SMemberPriority = rs ("MemberPriority")
                          
                          P2SValuationBase = P2SValuation
                          If P2SValuationBase > 1 Then
                             P2SValuationBase = 1
                          End If
                        %>
                        <%
                          RegFlag = False

                          
                          If (MemberPriority < P2SMemberPriority) Then
                             RegFlag = True
                          End If
                          
                          'If (ProxyFlag = True) Then
                             'RegFlag = True
                          'End If
                          
                          If (P2SPeriod = 1) Then
                             sql = "Select * From memberp2s Where UserName = '" & UserName & "' And P2SID = " & P2SID & " And P2SDate = Date()"
                          Else
                             sql = "Select * From memberp2s Where UserName = '" & UserName & "' And P2SID = " & P2SID & ""
                          End If
                          re.Open sql,Conn
                          If Not re.EOF Then
                             Status = re ("Status")
                             If Status <> "None" Then
                                RegFlag = True
                             End If
                          End If
                          re.Close
                          
                          If (RegFlag = False And P2SGroup = "ebay") Then
                             re.Open "Select * From memberp2s Where (P2SIP = '" & P2SIP & "' OR RandomCodeIP = '" & P2SIP & "') And Status <> 'None' And P2SGroup = '" & P2SGroup & "'",Conn
                             If Not re.EOF Then
                                RegFlag = True
                             Else
                                If EbayDisplay <> 0 Then
                                   RegFlag = True
                                Else
                                   EbayDisplay = EbayDisplay + 1
                                End If
                             End If
                             re.Close
                          End If
                          
                          If (RegFlag = False) Then 
                             TmpFlag = 1
                        %>     </div> </th>
      </tr>

    <tr>
      <th><div align="left"><font color="#FF0000">
        <% = Right (P2SName, Len (P2SName) - 4) %></font></div></th>
        <th> <div align="center"><% If P2SImg = "" Then %>   
        <a href="<% = P2SLink %>" target="<% = DomainName %>">
          <% =P2SText %>
          </a> 
        <% Else %>
                <% End if %>  </div></th>
        <th> <div align="left"><font color="#FF0000">
      <% = FormatNumber (P2SValuation, 4, -1) %>
      </font>
          <% = P2SType_C %>
 <%
                               If (P2SPeriod = 1) Then
                            %>     
                            <%
                               End If
                            %></div></th>
        <th> <div align="center"><font color='red'>注册咨询验证QQ群:37534460</font></div></th>
      </tr>
    <tr>
      <th> <div align="left"></div></th>
      <th> <div align="center"></div></th>
      <th> <div align="left"></div></th>
      <th> <div align="left"></div></th>
    </tr>
    <tr>
      <th colspan="4"><div align="center"><%   
                          End if   
                          rs.MoveNext   
                          Wend   
                          rs.Close   
                          Set rs = nothing   
                          Conn.Close   
                          Set Conn = nothing   
                        %>   
                        <tr>   
                          <th align="center">   
       <%   
                          If TmpFlag = 0 Then   
                             Response.write "对不起，目前没有对您有效的注册广告。<a href='p2c.asp'>请到点击赚钱区完成点击任务，获得更多奖励和明日的更多可注册次数</a>。"   
                          End if   
                        %>	   </div>        <div align="center"></div>        <div align="center"></div>        <div align="center"></div></th>
    </tr>
  </table>
  <p align="center"><!--#include file="ad72890.asp"--></p><br />
</div>
<br />
每个注册任务，每人只限做一次，重复注册会导致您的账户被删除
。<a href="offersreadme.asp" target="_blank">点击这里查看注册必读</a><br />
</div>
</div>
</div>
<div id="rightcolumn"></div>

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

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