www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Index_Pre.asp

    <%
'乘风网站推广系统 Access版
'作者QQ:178575
'作者EMail:yliangcf@163.com
'作者网站:http://www.qqcf.com
'详细简介:http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示,安装演示,使用疑难解答,最新版本下载等内容
'因为这些内容可能时常更新,就没有放在程序里,请自己上网站查看
%>
<%If Rsset("QQShow")=-1 Then%>
<div class="co_d_1">
 <div class="d_1_1">
  在线客服
 </div>

<div class="d_1_2">
<ul>
<%
I=0
MyArray=Split(RsSet("QQCode"),"|")
For I=0 To Ubound(MyArray)
 MyArray_2=Split(MyArray(I),",")
 Response.write "<li>&nbsp;&nbsp;&nbsp;&nbsp;<a href='tencent://message/?uin="&MyArray_2(0)&"&Site=联盟&Menu=yes' title='联盟客服' target=blank ><img src=http://wpa.qq.com/pa?p=1:"&MyArray_2(0)&":4 border=0 align=middle>&nbsp;"&MyArray_2(1)&"</a></li>"
Next
%>
</ul>
</div>
</div>
<%End If%>

<div class="co_d_1">
 <div class="d_1_1">
  联系我们
 </div>

<div class="d_1_2">
<%=GetMySet("CFWztgAdminSet","AdminSet","index_lxwm")%>
</div>
</div>


<%If RsSet("IncomeTop")=-1 Then%>

<div class="co_d_1">
 <div class="d_1_1">
  用户推广排行
 </div>

<div class="d_1_2">
<ul>
<li class="l_2">用户名</li>
<li class="l_2">总收入</li>

<%
Sql="Select Top 10 * From CFWztg_User Order By Total_Cent Desc,ID Desc"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof%>
<li class="l_2"><%=Rs("UserName")%></li>
<li class="l_2"><%=Rs("Total_Cent")%>元</li>
<%
Rs.MoveNext
Wend
%>
</ul>
</div>
</div>
<%End If%>


<%If RsSet("SpendTop")=-1 Then%>

<div class="co_d_1">
 <div class="d_1_1">
  最新结算记录
 </div>

<div class="d_1_2">
<ul>
<li class="l_2">用户名</li>
<li class="l_2">结算金额</li>

<%
Sql="Select Top 10 * From CFWztg_Spend Order By SpendTime Desc,ID Desc"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
%>
<li class="l_2"><%=Rs("UserName")%></li>
<li class="l_2"><%=Rs("Spend_Cent")%>元</li>
<%
Rs.MoveNext
Wend
%>
</ul>
</div>
</div>

<%End If%>


<div class="co_d_1">
 <div class="d_1_1">
  最新网友或网站主
 </div>

<div class="d_1_2">
<ul>
<li class="l_2">用户名</li>
<li class="l_2">注册日期</li>

<%
Sql="Select Top 10 * From CFWztg_User Order By AddTime Desc,ID Desc"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
%>
<li class="l_2"><%=Rs("UserName")%></li>
<li class="l_2"><%=year(Rs("AddTime"))&"-"&month(Rs("AddTime"))&"-"&day(Rs("AddTime"))%></li>
<%
Rs.MoveNext
Wend
%>
</ul>
</div>
</div>


<div class="co_d_1">
 <div class="d_1_1">
  最新注册广告主
 </div>

<div class="d_1_2">
<ul>
<li class="l_2">用户名</li>
<li class="l_2">注册日期</li>

<%
Sql="Select Top 10 * From CFWztg_AdUser Order By AddTime Desc,ID Desc"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
%>
<li class="l_2"><%=Rs("AdUserName")%></li>
<li class="l_2"><%=year(Rs("AddTime"))&"-"&month(Rs("AddTime"))&"-"&day(Rs("AddTime"))%></li>
<%
Rs.MoveNext
Wend
%>
</ul>
</div>
</div>