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> <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> "&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>