userlist.asp

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

<%
'##################################################################
'# 6KSU1.1[痞子.NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="up.asp"--><!--#include file="fun.asp"-->
<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<%
set rs = server.createobject("adodb.recordset")
dispmm=request.querystring("pai")
select case dispmm
case"qian"
redq1="#FF0000"
st="富  翁  排  行  榜"
sql = "select * from user order by int(qian) desc"
case"meili"
redm1="#FF0000"
st="魅  力  排  行  榜"
sql = "select * from user order by int(meili) desc"
case"jingyan"
redj1="#FF0000"
st="经  验  排  行  榜"
sql = "select * from user order by int(jingyan) desc"
case"bbsnum"
redt1="#FF0000"
st="发  帖  排  行  榜"
sql = "select * from user order by int(bbsnum) desc"
case else
st="会  员  列  表"
sql = "select * from user order by userid desc"
end select
%>
<script language='javascript'>
function Check(){var Name=document.form.topage.value;document.location='?pai=<%=dispmm%>&topage='+Name+'';}
</script>
<br><br>
<div align=center><center>
  <table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=<%=c1%> width="98%" ><tr>
<td width="100%" background=pic/<%=sp%>3.gif bgcolor="<%=c1%>" height="23"><font color=#FFFFFF><b>&nbsp;<img border="0" src="pic/fl.gif"> <%=st%></b></font></td></tr></table></center></div>
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px" bordercolor="<%=c1%>" width="98%">
    <tr>
      <td width="16%" align="center" height="25" bgcolor="<%=c2%>"><b>用户名</b></td>
      <td width="6%" align="center"><b>性别</b></td>
      <td width="11%" align="center" bgcolor="<%=c2%>"><b>QQ号码</b></td>
      <td width="9%" align="center"><b>魅力</b></td>
      <td width="9%" align="center"><b>经验</b></td>
      <td width="9%" align="center" bgcolor="<%=c2%>"><b>金钱</b></td>
      <td width="9%" align="center"><b>发帖数</b></td>
      <td width="35%" align="center" bgcolor="<%=c2%>"><b>等级</b></td>
    </tr>
  </table>
  </center>
</div>
<%
count=myconn.execute("select count(name)from user")(0)
on error resume next
pagesetup=40
rs.Open sql,myConn,1
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=1
do while not rs.eof
response.write"<div align=center><center><table border=1 cellpadding=0 cellspacing=0 bordercolor="&c1&" width=98% ><tr><td width='16%' align=center height=25 bgcolor="&c2&">"
myname=kbbs(rs("name"))
response.write"<a href='userinfo.asp?name="&myname&"' target='_blank'>"&myname&"</a></td><td width=6% align=center>"
if rs("sex")=1 then
sex1="男"
else
sex1="女"
end if
response.write""&sex1&"　</td><td width='11%' align=center bgcolor="&c2&">"&rs("qq")&"　</td>"
response.write"<td width='9%' align='center'><font color="&redm1&">"&rs("meili")&"</font></td><td width='9%' align='center'><font color="&redj1&">"&rs("jingyan")&"</font></td><td width='9%' align='center' bgcolor="&c2&"><font color="&redq1&">"&rs("qian")&"</font></td><td width=9% align=center><font color="&redt1&">"&rs("bbsnum")&"</font></td><td width='35%' align=center bgcolor="&c2&">"
q1=rs("qian")%><%m1=rs("meili")%><%j1=rs("jingyan")%><%ties=rs("bbsnum")%><%sqltype="my"%><!--#include file="upji.asp"-->
<%
response.write"<b>"&dj&"</b>『 "&dd&" 』"&djpic&"</td></tr></table></center></div>"
%>

<%i=i+1
if i>pagesetup then exit do
rs.movenext
loop
rs.Close
%>
  <div align="center">
    <center>
<TABLE borderColor=<%=c1%> cellSpacing=0 cellPadding=0 width="98%" border=1 style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px">
<TBODY>
<TR height=23>
<TD height=2>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0 background="pic/<%=sp%>3.gif" style="border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0" bgcolor="<%=c1%>">
<TBODY>
<TR>
<TD><b><font color="#FFFFFF"><img border="0" src="pic/fl.gif"> 注册用户共有</font><font color="#00FFFF"> <%=TotalPage%> </font><font color="#FFFFFF">页,<font color="#00FFFF"> <%=count%> </font>位，每页有<font color="#00FFFF"> <%=pagesetup%> </font> 位用户 >> [
<%
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1&pai="&dispmm&"><font color=yellow>1</font></a> ... "
end if

for i=ii to iii
If i<>PageCount then
Response.Write "<a href=?topage="& i &"&pai="&dispmm&"><font color=yellow>" & i & "</font></a> "
else
Response.Write " <font color=red><b>"&i&"</b></font> "
end if
next

if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&"&pai="&dispmm&"><font color=yellow>"&TotalPage&"</font></a>"
end if
%> ]</font></b></TD>
<form name=form method="POST" action=javascript:Check()>
<TD height=2 align="right"><font color="#FFFFFF">页码：<input style=FONT-SIZE:9pt maxLength="6" size="6" name="topage" value="<%=PageCount%>">
<input style=FONT-SIZE:9pt value="GO!" type="submit"></font></TD></form>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</center>
  </div><br><!--#include file="down.asp"-->