cham.asp

asp构建网站bbs.采用B/S架构

<%
'##################################################################
'# 论坛明星 插件 for 6kSU1.1
'# 调用方法：<!--#include file="cham.asp"-->
'##################################################################
%>
<div align=center><center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=98% > <td bgcolor=<%=c1%> width=100% background=pic/<%=sp%>3.gif height=23 colspan=2> &nbsp;<img border=0 src=pic/fl.gif> <FONT color=#ffffff><B>论 坛 明 星</B></FONT>
 </TD></TBODY> <div align="center"> <center> </table> </center></div><div align="center"> <center> <TABLE border=1 borderColor=<%=c1%> cellPadding=2 cellSpacing=0 width="98%" style="border-collapse: collapse">
 <TBODY> <TR> <TD align=middle width=8%><IMG align=absMiddle width=19 height=19 src="face/face12.gif"></TD> <TD align=middle vAlign=middle width=42% > <TABLE border=0 width="90%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0"> <TBODY> <TR>
 <%set rsm=server.createobject("adodb.recordset")
set rsn=server.createobject("adodb.recordset")
set rsm=myconn.execute("select top 1 name,count(riqi) from bbs"&totable&" where datevalue(riqi)=datevalue(now) group by name order by count(name) desc")
if not rsm.eof then
sql="select toupic,qian,meili,jingyan,ch,ku,bbsnum from user where name='"&rsm(0)&"'"
rsn.open sql,myconn
q1=rsn(1)
m1=rsn(2)
j1=rsn(3)
sqltype="my"
myname=rsm(0)
ties=rsn(6)
%><!--#include file="upji.asp"-->
 <TD vAlign=middle width=* ><b>今日灌水冠军</b> 照片-=&gt;
 <P align=left style="margin-top: 5">姓&nbsp;&nbsp;&nbsp;&nbsp;名：<FONT color=blue><%=myname%></FONT><br>社区等级：<font color=#CC3300><%=dj%> [<%=dd%>]</font><BR>今日发帖：<font color=#CC3300><%=rsm(1)%></font> 篇<BR>金&nbsp;&nbsp;&nbsp;&nbsp;钱：<font color=#CC3300><%=q1%></font> 两<br>魅&nbsp;&nbsp;&nbsp;&nbsp;力：<font color=#CC3300><%=rsn(2)%></font> 点<br>经&nbsp;&nbsp;&nbsp;&nbsp;验：<font color=#CC3300><%=rsn(3)%></font> 点 
 </P> </TD> <TD> <a href='userinfo.asp?name=<%=myname%>'> <IMG border=0 src="<%=rsn(0)%>" width="<%=rsn(5)%>" height="<%=rsn(4)%>" title="有本事把我赶走~~呵呵<br>查看 <%=myname%> 的资料"> </A> </TD><%else%> 
 <TD vAlign=middle width=*><b>今日灌水冠军</b> 照片-=&gt;
 <P align=left style="margin-top: 5">姓&nbsp;&nbsp;&nbsp;&nbsp;名：<FONT color=blue>就等你呢</FONT><br>社区等级：<font color=#CC3300>未知</font><BR>今日发帖：<font color=#CC3300>未知</font> 篇<BR>金&nbsp;&nbsp;&nbsp;&nbsp;钱：<font color=#CC3300>未知</font> 两 <BR>魅&nbsp;&nbsp;&nbsp;&nbsp;力：<font color=#CC3300>未知</font> 点<br>经&nbsp;&nbsp;&nbsp;&nbsp;验：<font color=#CC3300>未知</font> 点 
</P> </TD> <TD> <IMG border=0 src="pic/noname.gif" title="就等你呢" width="64" height="64"></TD>
 <%end if%>
 </TR> <TR> <TD align=middle colSpan=2 height="1"></TD> </TBODY> </TABLE>
 <%set rsm=nothing
 set rsn=nothing%>
 </TD> <TD align=middle width=8%><IMG align=absMiddle width=19 height=19 src="face/face5.gif"></TD> <TD align=middle vAlign=middle width=42%> <TABLE border=0 width="90%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0"><TBODY><TR>
<%set rsm=myconn.execute("select top 1 name,count(riqi) from bbs"&totable&" where riqi>now()-7 group by name order by count(name) desc")
if not rsm.eof then
set rsn=myconn.execute("select toupic,qian,meili,jingyan,ch,ku,bbsnum from user where name='"&rsm(0)&"'")
q1=rsn(1)
m1=rsn(2)
j1=rsn(3)
sqltype="my"
myname=rsm(0)
ties=rsn(6)
%><!--#include file="upji.asp"-->
 <TD vAlign=middle width=*><b>本周灌水冠军</b> 照片-=&gt;
 <P align=left style="margin-top: 5">姓&nbsp;&nbsp;&nbsp;&nbsp;名：<FONT color=blue><%=myname%></FONT><BR>社区等级：<font color=#CC3300><%=dj%> [<%=dd%>]</font>
 <BR>本周发帖：<font color=#CC3300><%=rsm(1)%></font> 篇<br>金&nbsp;&nbsp;&nbsp;&nbsp;钱：<font color=#CC3300><%=q1%></font> 两<br>魅&nbsp;&nbsp;&nbsp;&nbsp;力：<font color=#CC3300><%=rsn(2)%></font> 点<br>经&nbsp;&nbsp;&nbsp;&nbsp;验：<font color=#CC3300><%=rsn(3)%></font> 点</P></TD>
<TD><a href='userinfo.asp?name=<%=myname%>'><IMG border=0 src="<%=rsn(0)%>" width="<%=rsn(5)%>" height="<%=rsn(4)%>" title="有本事把我赶走~~呵呵<br>查看 <%=myname%> 的资料"></A></TD>
<%else%>
 <TD vAlign=middle width=*><b>本周灌水冠军</b> 照片-=&gt;
 <P align=left style="margin-top: 5">姓&nbsp;&nbsp;&nbsp;&nbsp;名：<FONT color=blue>就等你呢</FONT><br>社区等级：<font color=#CC3300>未知</font><BR>本周发帖：<font color=#CC3300>未知</font> 篇<BR>金&nbsp;&nbsp;&nbsp;&nbsp;钱：<font color=#CC3300>未知</font> 两 <BR>魅&nbsp;&nbsp;&nbsp;&nbsp;力：<font color=#CC3300>未知</font> 点<br>经&nbsp;&nbsp;&nbsp;&nbsp;验：<font color=#CC3300>未知</font> 点 
</P> </TD> <TD> <IMG border=0 src="pic/noname.gif" title="就等你呢" width="64" height="64"></TD>
 <%end if%>
</TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE> </center></div> </center></div>
<%set rsm=nothing
set rsn=nothing%>