user_list.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="user_popedom.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
set olrs=conn.execute("select * from ms_online")
dim olstate
do while not olrs.eof
	olstate=olstate&olrs("userName")&","
olrs.movenext
loop
%>
<br/>
<table width="100%" border="0" cellpadding="1" cellspacing="1" style="margin-top:10px;" class="tableBC">
  <tr> 
    <td height="22" colspan="10" valign="middle" class="tdT">会员列表</td>
  </tr>
  <tr align="center" class="intdT">  
    <td width="*" height="22" valign="middle">用户名</td>
    <td width="60" valign="middle">类型</td>
    <td width="40" valign="middle">性别</td>
    <td width="40" valign="middle">邮箱</td>
    <td width="40" valign="middle">QQ</td>
    <td width="40" valign="middle">主页</td>
    <td width="40" valign="middle">发短信</td>
    <td width="40" valign="middle">状态</td>
	<td width="40" valign="middle">登录</td>
    <td width="120" valign="middle">注册时间</td>
  </tr>
<%
temp_str=""
dim userlist(10)
set ulrs=server.createobject("adodb.recordset")
ulrs.open "select * from ms_user",connstr,1,1
n=20'每页显示记录数
url="user_center.asp?action=userlist&"
nextpage=pagetitle(ulrs,n,url,"位会员")
lineNo=1
do while not ulrs.eof and lineNo<=ulrs.pagesize
  userlist(0)=ulrs("user_name")
  if cint(ulrs("user_type"))=1 then
  	userlist(1)="注册会员"
  elseif cint(ulrs("user_type"))=2 then
  	userlist(1)="VIP会员"
  elseif cint(ulrs("user_type"))=3 then
  	userlist(1)="管理员"
  else
  	userlist(1)="游客"
  end if
  userlist(2)=ulrs("sex")
  if ulrs("email")="" then
  	userlist(3)="没有"
  else
  	userlist(3)="<a href=""mailto:"&ulrs("email")&""" target=""_blank""><img src=""images/email.gif"" border=""0"" align=""absmiddle"" title=""给 "&userlist(0)&" 发封邮件""></a>"
  end if
  if ulrs("qq")="" then
  	userlist(4)="没有"
  else
  	userlist(4)="<img src=""images/user/qq.gif"" title="""&userlist(0)&"的QQ："&ulrs("qq")&""" align=""absmiddle"">"
  end if
  if ulrs("homepage")="" then
  	userlist(5)="没有"
  else
  	userlist(5)="<a href="""&ulrs("homepage")&"""><img src=""images/user/url.gif"" title=""去 "&userlist(0)&" 的主页看看"" border=""0"" align=""absmiddle""></a>"
  end if
  if ulrs("islock")=0 then
	userList(6)="正常"
  elseif rs("islock")=1 then
  	userList(6)="锁定"
  end if
  userlist(7)=ulrs("logon_num")
  userlist(8)=ulrs("reg_date")
  userlist(9)="<a href=user_center.asp?action=user_view&userName="&ulrs("user_name")&" title=""查看 "&ulrs("user_name")&" 详细信息"">"&ulrs("user_name")&"</a>"
  temp_str=temp_str&"<tr class=""tdBC"" align=""center""><td height=""22"" valign=""middle"">"&userlist(9)&"</td><td valign=""middle"">"&userlist(1)&"</td><td valign=""middle"">"&userlist(2)&"</td><td valign=""middle"">"&userlist(3)&"</td><td valign=""middle"">"&userlist(4)&"</td><td valign=""middle"">"&userlist(5)&"</td><td valign=""middle""><a href=""user_center.asp?action=sms&operation=sendmessage&friendname="&userlist(0)&""" title=""给 "&userlist(0)&" 发短信""><img src=""images/sms/msg.gif"" border=""0"" align=""absmiddle""></a></td><td valign=""middle"">"&userlist(6)&"</td><td valign=""middle"">"&userlist(7)&"</td><td valign=""middle"">"&userlist(8)&"</td></tr>"
ulrs.movenext
lineNo=lineNo+1
loop
response.write(temp_str)
if ulrs.RecordCount>n then
%>
  <tr> 
    <td height="22" colspan="10" valign="middle" class="tdBC"><%=nextpage%></td>
  </tr>
<%end if%>
</table>
<%
ulrs.close
set ulrs=nothing
%>