<%=bbsinfo("bbsname")%>

<%=bbsinfo("bbsname")%>→用户 |

用户名 | 注册时间 | 最后登陆时间 | 发贴数量 | 用户职位 | 用户级别
<% Set rs1 = Server.CreateObject("ADODB.Recordset") username=trim(request("username")) if username<>"" then sql = "SELECT * FROM member where username like '%"& username &"%'order by reg_time desc " else sql = "SELECT * FROM member order by reg_time desc" end if rs1.open sql, conn, 1, 3 shownum=20 totalrecord=rs1.recordcount rs1.pagesize=shownum maxpage=rs1.pagecount requestpage=clng(request.querystring("page")) if requestpage="" or requestpage=0 then requestpage=1 end if if resquestpage>maxpage then resquestpage=maxpage end if if not requestpage=1 then rs1.move (requestpage-1)*rs1.pagesize end if for i=1 to rs1.pagesize and not rs1.bof%>
><%=rs1("username")%> | <%=rs1("reg_time")%> | <%=rs1("zjdlsj")%> | <% Set wz= Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM book where username='"&rs1("username")&"'" wz.open sql, conn, 1,1 totalrecord=wz.recordcount %><%=totalrecord%> | <% if rs1("manbid")=20000 then%>管理员<%elseif rs1("manbid")=8888 then%>超级斑竹<%elseif rs1("manbid")<>0 and rs1("manbid")<7777 then%>斑竹<%elseif rs1("manbid")=9999 then%> 贵宾<%else%>普通用户<%end if%> | <%=dd%>
<% rs1.movenext if rs1.eof then exit for next %>

查找：

<% if requestpage-1 mod 10=0 then p=(requestpage-1) \ 10 else p=(requestpage-1) \ 10 end if if requestpage=1 then response.write "9" else response.write "9" end if if p*10>0 then response.write "7" response.write "" for ii=p*10+1 to P*10+10 if ii=requestpage then response.write ""&ii&" " else response.write ""&ii&" " end if if ii=maxpage then exit for next response.write "" if ii 8" if requestpage=maxpage then response.write ": " else response.write ":" end if response.write" 总共有"&maxpage&"页 " rs1.Close set rs1=nothing %>