paihang.asp

商业网站页面管理系统

<!--#include file="up.asp"-->
<SCRIPT>
function showtb(tbnum)
{
whichEl = eval("tbtype" + tbnum);
if (whichEl.style.display == "none")
{
eval("tbtype" + tbnum + ".style.display=\"\";");
}
else
{
eval("tbtype" + tbnum + ".style.display=\"none\";");
}
}
</SCRIPT>
<%
'十大富翁
set fw=myconn.execute("select top 10 qian,name from user order by qian desc")
response.write"<br><div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<a onclick=showtb(1)><SPAN style='CURSOR: hand' ><img border=0 src=pic/fle.gif></span></a> <font color='#FFFFFF'>论坛十大富翁</font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table id=tbtype1 onclick=showtb(1) border=1 cellpadding=0 cellspacing=0 style='display:none;border-collapse: collapse' bordercolor="&c1&" width=94% ><tr><td width=4% align=center height=24 background=pic/1.gif >序号</td><td width=11% align=center background=pic/1.gif >用户名</td><td width=85% align=center background=pic/1.gif >金钱点数以及比例</td></tr>"
if fw.eof then
else
do while not fw.eof
qianall=qianall+fw("qian")*1
fw.movenext
loop
end if
i=1
fw.movefirst
do while not fw.eof
width=fw("qian")/qianall*90
response.write"<tr><td width=4% ><p style='margin: 4'>"&i&"、</td><td width=11% ><p style='margin: 4'><a href='userinfo.asp?name="&kbbs(fw("name"))&"'>"&kbbs(fw("name"))&"</a></td><td width=85% ><p style='margin: 4'><img border=0 src=pic/line.gif width="&width&"% height=8> "&fw("qian")&"</td></tr>"
i=i+1
if i=11 then exit do
fw.movenext
loop
fw.close
set fw=nothing
response.write"</table></center></div>"
%>
<%'十大魅力人士
set ml=myconn.execute("select top 10 meili,name from user order by meili desc")
response.write"<br><div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<a onclick=showtb(2)><SPAN style='CURSOR: hand' ><img border=0 src=pic/fle.gif></span></a> <font color='#FFFFFF'>论坛十大魅力人士</font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table id=tbtype2 onclick=showtb(2) border=1 cellpadding=0 cellspacing=0 style='display:none;border-collapse: collapse' bordercolor="&c1&" width=94% ><tr><td width=4% align=center height=24 background=pic/1.gif >序号</td><td width=11% align=center background=pic/1.gif >用户名</td><td width=85% align=center background=pic/1.gif >魅力点数以及比例</td></tr>"
if ml.eof then
else
do while not ml.eof
meiliall=meiliall+ml("meili")*1
ml.movenext
loop
end if
i=1
ml.movefirst
do while not ml.eof
width=ml("meili")/meiliall*90
response.write"<tr><td width=4% ><p style='margin: 4'>"&i&"、</td><td width=11% ><p style='margin: 4'><a href='userinfo.asp?name="&kbbs(ml("name"))&"'>"&kbbs(ml("name"))&"</a></td><td width=85% ><p style='margin: 4'><img border=0 src=pic/line.gif width="&width&"% height=8> "&ml("meili")&"</td></tr>"
i=i+1
if i=11 then exit do
ml.movenext
loop
ml.close
set ml=nothing
response.write"</table></center></div>"
%>
<%'十大最有经验人士
set ml=myconn.execute("select top 10 jingyan,name from user order by jingyan desc")
response.write"<br><div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<a onclick=showtb(3)><SPAN style='CURSOR: hand' ><img border=0 src=pic/fle.gif></span></a> <font color='#FFFFFF'>论坛十大经验人士</font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table id=tbtype3 onclick=showtb(3) border=1 cellpadding=0 cellspacing=0 style='display:none;border-collapse: collapse' bordercolor="&c1&" width=94% ><tr><td width=4% align=center height=24 background=pic/1.gif >序号</td><td width=11% align=center background=pic/1.gif >用户名</td><td width=85% align=center background=pic/1.gif >经验点数以及比例</td></tr>"
if ml.eof then
else
do while not ml.eof
jingyanall=jingyanall+ml("jingyan")*1
ml.movenext
loop
end if
i=1
ml.movefirst
do while not ml.eof
width=ml("jingyan")/jingyanall*90
response.write"<tr><td width=4% ><p style='margin: 4'>"&i&"、</td><td width=11% ><p style='margin: 4'><a href='userinfo.asp?name="&kbbs(ml("name"))&"'>"&kbbs(ml("name"))&"</a></td><td width=85% ><p style='margin: 4'><img border=0 src=pic/line.gif width="&width&"% height=8> "&ml("jingyan")&"</td></tr>"
i=i+1
if i=11 then exit do
ml.movenext
loop
ml.close
set ml=nothing
response.write"</table></center></div>"
%>
<%'十大人气最旺帖子
set ml=myconn.execute("select top 10 hits,zhuti,bd,id,name from min order by hits desc")
response.write"<br><div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<a onclick=showtb(4)><SPAN style='CURSOR: hand' ><img border=0 src=pic/fle.gif></span></a> <font color='#FFFFFF'>论坛十大人气最旺帖子</font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table id=tbtype4 onclick=showtb(4) border=1 cellpadding=0 cellspacing=0 style='display:none;border-collapse: collapse' bordercolor="&c1&" width=94% ><tr><td width=4% align=center height=24 background=pic/1.gif >序号</td><td width=11% align=center background=pic/1.gif >帖子作者</td><td width=85% align=center background=pic/1.gif >帖子主题以及人气指数</td></tr>"
if ml.eof then
else
do while not ml.eof
hitsall=hitsall+ml("hits")*1
ml.movenext
loop
end if
i=1
ml.movefirst
do while not ml.eof
width=ml("hits")/hitsall*90
response.write"<tr><td width=4% ><p style='margin: 4'>"&i&"、</td><td width=11% ><p style='margin: 4'><a href='userinfo.asp?name="&kbbs(ml("name"))&"'>"&kbbs(ml("name"))&"</a></td><td width=85% ><p style='margin: 4'><img border=0 src=pic/fl.gif> <a href='show.asp?id="&ml("id")&"&bd="&ml("bd")&"'>"&kbbs(ml("zhuti"))&"</a><br><img border=0 src=pic/line.gif width="&width&"% height=8> "&ml("hits")&"</td></tr>"
i=i+1
if i=11 then exit do
ml.movenext
loop
ml.close
set ml=nothing
response.write"</table></center></div>"
%>
<br><br><!--#include file="down.asp"-->