stats.asp

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

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

<%
  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="contentwrapper">
<div id="maincolumn">
<div class="text">
<h2 style="font-family: &quot;楷体_GB2312&quot;"><strong>个人账户</strong></h2>
<br />
 <!--#include file="menu.asp"-->
<hr />
<center>
<p>您好
    <% = LastName %>
    ，您现在是
    <% = MemberShipCn %>
    会员。<a href="gold.asp">点击这里升级你的账号</a><br />
    <br />
    下线链接： 
    <input type="text" name="TextLinks" size="60" value="http://<% = DomainName %>/signup.asp?ref=<% = UserName %>">
</p>
<!--#include file="ad.asp"-->
<div id="tables">
<table width="80%" align="center">

<tr>
<th class="top" width="31%"><div align="center">下线数量</div></th>
<th class="top" width="23%"><div align="center">查看详情</div></th>
<th class="top" width="23%"><div align="center">现金提成</div></th>
<th class="top" width="23%"><div align="center">点数提成</div></th>
      </tr>
    <tr>
<th><div align="center">一级下线<% = TotalDownline1 %>个</div></th>
<th><div align="center"><a href="view.asp?ReferralLevel=Referral" target="_blank">查看下线</a></div></th>
<th><div align="center"><% = FormatNumber (Dollars1, 4, -1) %>元</div></th>
<th><div align="center"><% = FormatNumber (Points1, 4, -1) %>点</div></th>
      </tr>
    <tr>
<th><div align="center">二级下线<% = TotalDownline2 %>个</div></th>
        <th><div align="center"><a href="view.asp?ReferralLevel=Referral2" target="_blank">查看下线</a></div></th>
        <th><div align="center"><% = FormatNumber (Dollars2, 4, -1) %>元</div></th>
        <th><div align="center"><% = FormatNumber (Points2, 4, -1) %>点</div></th>
      </tr>
    <tr>
      <th><div align="center">三级下线<% = TotalDownline3 %>个</div></th>
        <th><div align="center"><a href="view.asp?ReferralLevel=Referral3" target="_blank">查看下线</a></div></th>
        <th><div align="center"><% = FormatNumber (Dollars3, 4, -1) %>元</div></th>
        <th><div align="center"><% = FormatNumber (Points3, 4, -1) %>点</div></th>
      </tr>
    <tr>
      <th><div align="center">四级下线<% = TotalDownline4 %>个</div></th>
        <th><div align="center"><a href="view.asp?ReferralLevel=Referral4" target="_blank">查看下线</a></div></th>
        <th><div align="center"><% = FormatNumber (Dollars4, 4, -1) %>元</div></th>
        <th><div align="center"><% = FormatNumber (Points4, 4, -1) %>点</div></th>
      </tr>
    <tr>
      <th><div align="center">五级下线<% = TotalDownline5 %>个</div></th>
        <th><div align="center"><a href="view.asp?ReferralLevel=Referral5" target="_blank">查看下线</a></div></th>
        <th><div align="center"><% = FormatNumber (Dollars5, 4, -1) %>元</div></th>
        <th><div align="center"><% = FormatNumber (Points5, 4, -1) %>点</div></th>
      </tr>
    <tr>
      <th><div align="center">六级下线<% = TotalDownline6 %>个</div></th>
        <th><div align="center"><a href="view.asp?ReferralLevel=Referral6" target="_blank">查看下线</a></div></th>
        <th><div align="center"><% = FormatNumber (Dollars6, 4, -1) %>元</div></th>
        <th><div align="center"><% = FormatNumber (Points6, 4, -1) %>点</div></th>
      </tr>
    <tr>
      <th colspan="4"><div align="center">下线总计：<% = TotalDownline %>个；星级会员赠送及随机下线:( <% = BlindReferral %>)个</div>       
        <div align="center"></div>
        <div align="center"></div>
        <div align="center"></div>      </tr>
  </table>
</div>
<p>
  您的账户总额为：
  <% = FormatNumber (AllDollars, 4, -1) %>
  元&nbsp;&nbsp;&nbsp;&nbsp;
  <% = FormatNumber (AllPoints, 4, -1) %>
  点<br />
  <br />
  已成功支付：
  <% = FormatNumber (DollarsDebits, 2, -1) %>
  元<br />
  <br /> <%    
                          rs.Open "Select * From debits Where UserName = '" & UserName & "' order by DebitsType, DebitsDate DESC",Conn    
                          While not rs.eof    
                          DebitsType = rs ("DebitsType")    
                          DebitsAmount = rs ("DebitsAmount")    
                          DebitsDate = rs ("DebitsDate")    
                          DebitsMemo = rs ("DebitsMemo")    
                          FinishDate = rs ("FinishDate")    
                          DebitsStatus = rs ("DebitsStatus")   
                          If DebitsStatus = True Then    
                             DebitsStatus = "(已完成)"    
                          Else    
                             DebitsStatus = "(处理中)"    
                          End If        
                          If DebitsType = "Dollars" Then 
                             DebitsType_C = "元"    
                          Else     
                             DebitsType_C = "点"    
                          End If    
                        %>
  <% = DebitsDate %>&nbsp; <% = DebitsDate %>&nbsp; <% = DebitsStatus %>&nbsp; <% = FormatNumber (DebitsAmount, 2 ,-1) %>&nbsp; <% = DebitsType_C %> <br /><br /> <%    
                          rs.MoveNext    
                          Wend    
                          rs.Close    
                          Set rs = nothing
                          Conn.Close    
                          Set Conn = nothing       
                        %>
</p>
</center>
<hr />
</div>
</div>
</div>
<!--#include file="log2.asp"-->
</div>


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

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