<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true %> <% const ChannelID=0 const SkinID=0 const MaxPerPage=20 dim OrderType OrderType=trim(request("OrderType")) if OrderType="" then OrderType=1 else OrderType=Clng(OrderType) end if PageTitle="用户列表" strFileName="UserList.asp?OrderType=" & OrderType %> <%=strPageTitle & " >> " & PageTitle%> <% =GetSkin_CSS() %>
   用户列表
<%=ShowAllUser() %>
<%=showpage(strFileName,totalPut,MaxPerPage,true,true,"个用户")%>
<% call CloseConn() call CloseConn_User() '================================================== '过程名:ShowAllUser '作 用:分页显示所有用户 '参 数:无 '================================================== function ShowAllUser() dim sqlUser,rsUser,strUser,i select case OrderType case 1 sqlUser="select * from " & db_User_Table & " order by " & db_User_ArticleChecked & " desc" case 2 sqlUser="select * from " & db_User_Table & " order by " & db_User_RegDate & " desc" case 3 sqlUser="select * from " & db_User_Table & " order by " & db_User_ID & " desc" end select set rsUser=server.createobject("adodb.recordset") rsUser.open sqlUser,Conn_User,1,1 if rsUser.bof and rsUser.eof then totalput=0 response.write "
  • 没有任何用户
  • " else totalput=rsUser.recordcount if currentPage>1 then if (currentPage-1)*MaxPerPage
    按发表文章数排序    按注册日期排序    按用户ID排序
    " response.write "" do while not rsUser.eof '增加对动网7.0用户资料(IM)处理 dim UserIM,homepage,QQ,icq,msn If UserTableType="Dvbbs7.0" then UserIM=split(rsUser("UserIM"),"|||") homepage=UserIM(0) QQ=UserIM(1) icq=UserIM(2) msn=UserIM(3) Else homepage=rsUser(db_User_homepage) QQ=rsUser(db_User_QQ) icq=rsUser(db_User_icq) msn=rsUser(db_User_msn) End if if homepage="" then homepage="未填" if QQ="" then QQ="未填" if icq="" then icq="未填" if msn="" then msn="未填" response.write "" response.write "" rsUser.movenext i=i+1 if i>=MaxPerPage then exit do loop response.write "
    用户名性别EmailQQ号码MSN主页注册日期文章数
    " & rsUser(db_User_Name) & "" if rsUser(db_User_Sex)=1 then response.write "男" else response.write "女" end if response.write "" & rsUser(db_User_Email) & "" response.write QQ response.write "" Response.write msn response.write "" Response.write homepage response.write "" & FormatDateTime(rsUser(db_User_RegDate),2) & "" & rsUser(db_User_ArticleChecked) & "
    " '完毕 end if rsUser.close set rsUser=nothing end function %>