userlist.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="up.asp"--><!--#include file="inc/grade.asp"-->
<%
if isnull(lguserid) or lguserid="" then response.redirect"login.asp"
dim dispmm,sql
dispmm=request.querystring("dispmm")
sql="select * from [user] where not del order by "
select case dispmm
case"mark"
sql =sql&"mark desc"
case"tienum"
sql =sql&"alltopicnum desc"
case"letter"
sql =sql&"name"
case"logtime"
sql =sql&"lasttime desc"
case else
sql =sql&"userid desc"
end select
%>
<script language='javascript'>function Check(){var Name=document.form.topage.value;document.location='?dispmm=<%=dispmm%>&topage='+Name+'';}</script>
<%=ttop%>
<table align="center" border="1" bordercolor="<%=c1%>"  cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
<form name=username method="GET" action=userinfo.asp?>
<tr> <td class=td1 bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="2">&nbsp;<img src="pic/gl.gif" border="0"> <font color="<%=c3%>">用 户 列 表</font></td><td align="right" class=td1 bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="2">&nbsp;用户名：&nbsp;<input style=FONT-SIZE:9pt maxLength="16" size="16" name="username">&nbsp;<input style=FONT-SIZE:9pt value="直接查看" type="submit">&nbsp;</td> 
</tr></form></table>
<div align="center">
  <center>
  <table border="1" bordercolor="<%=c1%>" cellpadding="0" cellspacing="0" width="<%=tbw%>" bgcolor=#cccccc style="border-collapse: collapse">
<tr bgcolor=#eeeeee>
<td width="18%" align="center" height="25"><b><a href=?dispmm=letter>用户名</a></b></td>
<td width="10%" align="center"><b>性别</b></td>
<td width="10%" align="center"><a href=?dispmm=tienum><b>发帖数</b></a></td>
<td width="10%" align="center"><a href=?dispmm=mark><b>积分</b></a></td>
<td width="18%" align="center"><b><a href=?dispmm=logtime>登陆时间</a></b></td>
<td width="15%" align="center"><b>等级</b></td></tr>
</table>
<%
dim pagesetup,count,totalpage,sex1,pagecount
set rs = server.createobject("adodb.recordset")
pagesetup=25
rs.Open sql,conn,1
count=rs.recordcount
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
response.write"<table border=1 bordercolor="&c1&"  cellpadding=0  cellspacing=0  width="&tbw&" bgcolor=#cccccc style='border-collapse: collapse'>"
pagecount= 0
rs.movefirst
if Request.QueryString("ToPage")<>"" and isnumeric(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
sex1="帅哥"
if split(rs("userinfo"),"|")(4)<>"1" then sex1="美女"
response.write"<tr bgcolor=#eeeeee><td width='18%' align=center height=25><a href='userinfo.asp?userid="&rs("userid")&"'>"&kbbs(rs("name"))&"</a></td><td width=10% align=center>"&sex1&"</td><td width='10%' align=center><font color=red>"&rs("alltopicnum")&"</font></td><td width=10% align=center>"&rs("mark")&"　</td><td width=18% align=center><font color=red>"&formatdatetime(rs("lasttime"),1)&"</font></td><td width='15%' align=center></b>『 "

gradename(rs("grade"))
response.write" 』</td></tr>"
i=i+1
if i>pagesetup then exit do
rs.movenext
loop
rs.Close
response.write"</table></center></div>"
%>
<div align="center"><center>
<TABLE cellSpacing=1 cellPadding=0 width=<%=tbw%> border=1 bordercolor="<%=c1%>" style="border-collapse: collapse">
<TBODY>
<TR height=25>
<TD height=2>
<TABLE cellSpacing=0 cellPadding=3 width="100%"  border=0 bordercolor="<%=c1%>">
<TBODY>
<TR>
<TD>
<%
call page_list(count,pagesetup, PageCount,"&dispmm="&dispmm&"")
%></TD>
<form name=form method='POST' action=javascript:Check()>
<TD height=2 align='right'><font color='#000000'>页码：<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>
<%call down
closedb%><%
sub page_list(byval totalrec,page_size,page,key)
dim currentpage,p,n
if page="" then
   page=1
end if
currentpage=cint(page)
if totalrec mod page_size=0  and totalrec<>0 then
    n= totalrec \ page_size                             '计算出应该分多少页
else
    n= totalrec \ page_size+1                           '计算出应该分多少页
end if
if currentpage-1 mod 10=0 then
 p=(currentpage-1) \ 10
else
 p=(currentpage-1) \ 10
end if
dim pagelist,pagelistbit,ii
response.write "<td>&nbsp;&nbsp;共<b>"&totalrec&"</b>条记录 <b>"&page_size&"</b>条/页 共<b>"&n&"</b>页 "
if currentPage>1 then 
    response.write "<a href=?topage="&Page-1&key&" title="&"转到上一页>上页</a> "
else
	response.write "<font color=#999999>上页</font> "
end if
if cstr(currentPage)<>cstr(n) then
    response.write "<a href=?topage="&Page+1&key&" title="&"转到下一页>下页</a>"
else
	response.write "<font color=#999999>下页</font>"
end if
response.write "</td><td align=right>分页："
if currentPage=1 then
 response.write "<font face=webdings color=#999999>9</font> "
else
 response.write "<a href='?topage=1"&key&"' title=首页><font face=webdings>9</font></a> "
end if
if p*10>0 then response.write "<a href='?topage="&Cstr(p*10)&key&"' title=上十页><font face=webdings>7</font></a> "
response.write "<b>"
for ii=p*10+1 to P*10+10
   if Cstr(ii)=Cstr(currentPage) then
  response.write "<font color=#ff0000>"+Cstr(ii)+"</font> "
 else
  response.write "<a href='?topage="&Cstr(ii)&key&"' title='转到第"&ii&"页'>"+Cstr(ii)+"</a> "
 end if
 if ii=n then exit for
 'p=p+1
next
response.write "</b>"
if ii<n then response.write "<a href='?topage="&Cstr(ii)&key&"' title=下十页><font face=webdings>8</font></a> "
if Cstr(currentPage)=Cstr(n) then
 response.write "<font face=webdings color=#999999>:</font>"
else
 response.write "<a href='?topage="&Cstr(n)&key&"' title=尾页><font face=webdings>:</font></a>"
end if
response.write "</td>"
end sub
%>