log2.asp

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

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