listalluser.asp

obbs完全基于Dreamweaver 和EmEditor 下面完成.采用最好的可视结构,非常用利于修改,结构很明确.代码效少.管理非常简单

<!--#include file="CONN.ASP" -->
<!--#include file="mymem.asp" -->
<br>
<table width="776" align="center" cellspacing="0" cellpadding="0">
  <tr>
    <td width="772"> 
      <form name="form1" method="get" action="">
  用户名: 
  <input type="text" name="suser" size="10">
  <select name="sel">
    <option>排序</option>
    <option value="jibie">按级别</option>
    <option value="time">注册时间</option>
    <option value="userjf">积分</option>
    <option value="atime">在线时长</option>
    <option value="ftz">发帖数</option>
   <option value="kill">ID封否</option>
  </select>
  <input type="submit" name="Submit" value="搜索/排序">
</form>
</td>
  </tr>
</table>
<br>

<%
call tabletop(true,"top")
dim suser,sel,rs,sqltext,i
suser=request.querystring("suser")
sel=request.querystring("sel")
set rs=server.createobject("adodb.recordset")
if  suser<>""  then 
sqltext="select * from userinfo where  user = '"&suser&" ' "
elseif  sel<>"" then
select case sel
case"jibie"
sqltext="select * from userinfo order by jibie desc "
case"time"
sqltext="select * from userinfo order by time desc "
case"userjf"
sqltext="select * from userinfo order by userjf desc "
case"atime"
sqltext="select * from userinfo order by atime desc "
case"ftz"
sqltext="select * from userinfo order by ftz desc "
case"kill"
sqltext="select * from userinfo order by kill desc ,id desc"
end select
else
sqltext="select * from userinfo"
end if
rs.open sqltext,conn,1,1

dim MaxPerPage
MaxPerPage=50

dim text,checkpage,CurrentPage
text="0123456789"
 Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
   checkpage=instr(1,text,mid(request("page"),i,1))
   if checkpage=0 then
      exit for 
   end if
next

If checkpage<>0 then
      If NOT IsEmpty(request("page")) Then
        CurrentPage=Cint(request("page"))
        If CurrentPage < 1 Then CurrentPage = 1
        If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
      Else
        CurrentPage= 1
      End If
      If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
   CurrentPage=1
End if

if (not rs.eof) or not (rs.bof) then
call list()
call showpages("&suser="&suser&"&sel="&sel)
else
call list()
end if
'显示帖子的子程序
Sub list()%>
<table width="770" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#92b9fb">
  <tr> 
    <td height="27" colspan="2" align="center" background="backimg/bg1.gif"> 用户名</td>
    <td height="27" align="center" background="backimg/bg1.gif">级别</td>
    <td height="27" align="center" background="backimg/bg1.gif">性别</td>
    <td height="27" align="center" background="backimg/bg1.gif">email</td>
    <td height="27" align="center" background="backimg/bg1.gif"> 积分</td>
    <td height="27" align="center" background="backimg/bg1.gif"> 在线时长</td>
    <td height="27" align="center" background="backimg/bg1.gif">发帖数</td>
    <td height="27" align="center" background="backimg/bg1.gif">精华帖子</td>
    <td height="27" align="center" background="backimg/bg1.gif">注册时间</td>
    <td height="27" align="center"  background="backimg/bg1.gif" title="封闭用户ID或解除对用户ID封闭(管员专用)">封ID</td>
  </tr>
  <%
if not rs.eof then
i=1
  do while not rs.eof 
%>
  <tr bgcolor="#FFFFFF"> 
    <td> <a href="usertype.asp?user=<%=rs("user")%>" title=点击看用户更多信息 ><%=rs("user")%></a></td>
    <td align="center"><a href="#"><img src="pic/m_news.gif" width="21" height="14" border="0" onClick="MM_openBrWindow('sendmess.asp?user=<%=rs("user")%>','','scrollbars=yes,resizable=yes,width=400,height=350')" alt="给 <%=rs("user")%> 发个短信息"></a></td>
    <td align="center"><%=rs("jibie")%> </td>
    <td align="center"> <%=rs("xb")%> </td>
    <td> 
      <%if rs("setuser1")=1 then response.write rs("email") else response.write"保密" end if%>
    </td>
    <td align="center"> <%=rs("userjf")%> </td>
    <td align="center"> <%=rs("atime")%> 秒</td>
    <td align="center"> <%=rs("ftz")%> </td>
    <td align="center"> <%=rs("jhtz")%> </td>
    <td align="center"> <%=rs("time")%> </td>
    <td align="center"> 
     <input name="kill" type="checkbox" onClick=location.href='caozuo.asp?czlb=封ID&id=<%=rs("id")%>'  <% if rs("kill")=1 then response.write"checked title=此用户ID已被管理员封闭" end if%> > 
	 <%
	  if master then 
	 response.Write("<a href=adm/admin_cz.asp?czlb=deluser&id="&rs("id")&" onclick=""{if(confirm('删除此用户，确定删除吗?')){return true;}return false;}"">删</a>") 
	 end if 
	 %></td>
  </tr>
  <%
   if i >= MaxPerpage then exit do
   rs.movenext
   i=i+1
   loop
else
response.Write("<tr><td bgcolor=#FFFFFF colspan=11>目前没有任何注册用户</td></tr>")
end if
%>
</table>
<%
End sub
%>
<%
'标准分页子程序URLparameter为URL所带数
sub showpages(URLparameter)
dim pages,soonhost,pagename,nx,x,ISselect,tenpages
pages=cint(request.QueryString("page"))
if pages=0 then
pages=1
end if
if pages>rs.pagecount then
pages=rs.pagecount
end if
pagename=request.ServerVariables("SCRIPT_NAME")

response.Write("<table width=770 border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#92b9fb>")
response.Write(" <tr bgcolor=#FFFFFF>")
response.Write("  <td width=734 class=main1>")

tenpages=cint(pages/10-0.5001)
nx=tenpages*10
response.Write("页次:<b>"&pages&"/"&rs.pagecount&"</b>&nbsp;每页<b>"&MaxPerPage&"</b>&nbsp;主题数<b>"&rs.recordcount&"</b>&nbsp;")
if request("page")>1 then
response.write "&nbsp;<a href='"&pagename&"?page=1"&URLparameter&"' title=首页><font face=webdings>9</font></a>"
else
response.write "&nbsp;<font face=webdings>9</font>"
end if

if nx>=10 then
response.write "&nbsp;<a href='"&pagename&"?page="&(nx-10)&URLparameter&"' title=上十页><font face=webdings>7</font></a>"
else
response.write "&nbsp;<font face=webdings>7</font>"
end if

for x=1 to 10
nx=nx+1
if pages=nx then
response.write ("<b>&nbsp;<font color=red>"&nx&"</font></b>")
else
Response.write "<b>&nbsp;<a href='"&pagename&"?page="&nx&URLparameter&"'>"&nx&"</a></b>"
end if
if nx>=rs.pagecount then exit for
next

if rs.pagecount>=10 and nx<rs.pagecount then
response.write "&nbsp;<a href='"&pagename&"?page="&(nx+1)&URLparameter&"' title=下十页><font face=webdings>8</font></a>"
else
response.write "&nbsp;<font face=webdings>8</font>"
end if
if pages<rs.pagecount then
response.write "&nbsp;<a href='"&pagename&"?page="&rs.pagecount&URLparameter&"' title=尾页><font face=webdings>:</font></a>"
else
response.write "&nbsp;<font face=webdings>:</font>"
end if

response.Write("</td><td width=""25"" class=main1 >")

response.Write("<select name=pagd onChange=setTimeout(location.href=this.value,3000)>")
soonhost=1
do while not soonhost = (rs.PageCount+1) 
if (soonhost)=pages then
ISselect=" selected"
else
ISselect=""
end if
response.Write("<option value="&pagename&"?Page="&soonhost&URLparameter&ISselect&">"&soonhost&"</option>")
soonhost=soonhost+1
loop

response.Write("</select> </td></tr></table>")
end sub
call tabletop(true,"down")
%>
<%
response.Write(loadcopyc("copyc"))
response.write "Powered By ：obbs Version 1.0.1<br>Copyright &copy;2002 - 2003 <a href=http://www.mtvok.com target=""_blank""><b>mtvok.com</b></a>，页面执行时间： "& cint((timer()-startime)*1000)&" 毫秒</div>"
%>
</body>
</html>