index.asp

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

<!--#include file="top.asp"-->
<%
  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
%>


<div id="contentwrapper">
<div id="maincolumn">
<div class="text">
<% = NewsCode %>
<br />
<h2 style="font-weight: bold; font-family: Arial, Helvetica, sans-serif">会员利益</h2>

<p><img class="img-left" src="images/users.png" width="48" height="48" alt="Image" />所有会员可以在本站通过浏览广告或做简单任务的方式来赚取现金，只要几秒钟的时间，不需要任何技巧。我们没有虚拟货币，直接现金奖励！六级下线提成:<span style="color: #0000FF">20%-10%-5%-3%-1%-1%</span>，让你赚钱更简单！最低支付<span style="color: #FF0000">只需要1元人民币</span>，我们使用支付宝每天快速转账。会员加入是终身免费的！</p>
<p align="right"><a href="signup.asp?ref=<% = request ("ref") %>">马上加入我们</a></p>
<h2 style="font-family: Arial, Helvetica, sans-serif; font-weight: bold">广告商利益</h2>

<p><img class="img-left" src="images/money.gif" width="48" height="48" alt="Image" />在我们网站投放广告价格优惠、广告提交方便快捷，我们有层层防作弊机制，IP真实量99%，抵制垃圾广告，保证广告效果和客户利益。目前投放广告，每100个会员访问只需要人民币0.4元，每个访客浏览时间最低停留5秒。我们提供优质的后续服务，长期投放价格更优惠！</p> 
<p align="right"><a href="adver.asp">立即发布广告</a></p>

<hr />



<blockquote><h4>我能从这个网站赚到多少钱？</h4>
  <div align="left" style="font-weight: bold">“如果你每天在本站点15个广告，并发展100个一级下线他们每天也点15个广告，那么你每月最低的收为114.75元，当然这还不包括你的二、三、四、五、六级下线的提成。随着下线的增多，你的收入是非常可观的”</div>
</blockquote>



</div>
</div>
</div>
<div id="rightcolumn"></div>

<%
  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
%>

<div id="rightcolumn">
<% If UserName = "" or PassWord = "" Then %>
<ul id="navmainlist">
<li><a href="login.asp">>> 登陆</a></li>
<li><a href="signup.asp?ref=<% = request ("ref") %>">>> 注册</a></li>
</ul>

<div id="navmainlistline">&nbsp;</div>
	   <% Else %> 
<fieldset><legend>欢迎您：<% = LastName %></legend>
<table width="100%">

<tr>
<td>账户总额：</td>
<td><font color="#FF0000"><% = FormatNumber (AllDollars, 4, -1) %>
</font></td>
<td>元</td>
</tr>
<tr>
<td>共有下线：</td>
<td><font color="#FF0000"><% = TotalDownline %>
</font></td>
<td>位</td>
</tr>
<tr>
<td>历史付款：</td>
<td><font color="#FF0000"><% = FormatNumber (DollarsDebits, 2, -1) %>
</font></td>
<td>元</td>
</tr>

</table>
</fieldset>
<div id="navmainlistline">&nbsp;</div>
<% End if%> 

<fieldset><legend>会员信息</legend>
<table width="100%">
<tr>
<td>会员总数：</td>
<td><font color="#FF0000"><% = TotalMember + VirtualMember  %>
</font></td>
<td>位</td>
</tr>
<tr>
<td><%
	sql="select count(*) as Five from member where MemberShip=5"
	set rs_tj=conn.Execute(sql)
	FiveMember=rs_tj("Five")
	sql="select count(*) as Four from member where MemberShip=4"
	set rs_tj=conn.Execute(sql)
	FourMember=rs_tj("Four")
	sql="select count(*) as Three from member where MemberShip=3"
	set rs_tj=conn.Execute(sql)
	ThreeMember=rs_tj("Three")
	sql="select count(*) as two from member where MemberShip=2"
	set rs_tj=conn.Execute(sql)
	twoMember=rs_tj("two")
	sql="select count(*) as one from member where MemberShip=1"
	set rs_tj=conn.Execute(sql)
	oneMember=rs_tj("one")
%>一星会员：</td>
<td><font color="#FF0000"><% = oneMember  %>
</font></td>
<td>位</td>
</tr>
<tr>
<td>二星会员：</td>
<td><font color="#FF0000"><% = twoMember  %>
</font></td>
<td>位</td>
</tr>
<tr>
<td>三星会员：</td>
<td><font color="#FF0000"><% = ThreeMember %>
</font></td>
<td>位</td>
</tr>
<tr>
<td>四星会员：</td>
<td><font color="#FF0000"><% = FourMember %>
</font></td>
<td>位</td>
</tr>
<tr>
<td>五星会员：</td>
<td><font color="#FF0000"><% = FiveMember +1 %> 
  </font></td>
<td>位</td>
</tr>
</table>
</fieldset>
<div id="navmainlistline">&nbsp;</div>

<fieldset><legend>最新10笔付款</legend>
<table width="100%" align="center">
      <tr>
        <td width="50%"><font color="#ff0000">用户名</font></td>
        <td width="50%"><font color="#ff0000"><strong>支付金额</strong></font></td>
      </tr>
	  <% 
	  rs.Open "Select top 10 * From debits Where DebitsStatus=True order by ID DESC",Conn      
		 While not rs.eof 
		 user= rs ("UserName")
		 debits=rs ("DebitsAmount")
		 debits=FormatNumber (debits, 2, -1)    
     %>
	  <tr>
        <td><% =user %></td>
        <td><% =debits %>元</td>
      </tr>
	  <%  rs.MoveNext    
          Wend    
          rs.Close    
          Set rs = nothing
          Conn.Close
          set Conn = nothing        
	  %>
	  <tr>
          <td>&nbsp;&nbsp;</td>
        <td ><div align="right"><a href="paylist.asp" target="_blank">查看更多&gt;&gt;</a></div></td>
      </tr>
  </table>

</fieldset>
</div>
<!--#include file="footer.asp"-->
</div>
</body>
</html>