<%@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 %> <% =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 "

用户名	性别	Email	QQ号码	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 %>