hover_user.asp

后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理

<!--#include file="toptable.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
'=================================
'   良精科技企业管理系统
'   QQ在线客服:65961930 82993936
'   咨询定购Tel:010-81991660
'      [e-mail] 
'        www.liangjing.net
'  copyright(c)2001-2008 HoverCms 2007特别版
'=================================
%>
<%
dim strFileName
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages
dim rs, sql
strFileName="Hover_User.asp"

if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from [Hover_Users] order by UserID desc"
rs.Open sql,conn,1,1
%>
<script language=javascript>
function ConfirmDel()
{
   if(confirm("确定要删除此用户吗？"))
     return true;
   else
     return false;
}
</script>
<!-- #include file="Inc/Head.asp" -->
<BR>
<%
  	if rs.eof and rs.bof then
		response.write "目前共有 0 个注册用户"
	else
    	totalPut=rs.recordcount
		if currentpage<1 then
       		currentpage=1
    	end if
    	if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     		currentpage= totalPut \ MaxPerPage
		  	else
		      	currentpage= totalPut \ MaxPerPage + 1
	   		end if

    	end if
	    if currentPage=1 then
        	showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
        	showContent
        	showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
   	 	else
   	     	if (currentPage-1)*MaxPerPage<totalPut then
         	   	rs.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rs.bookmark
        		showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
            	showContent
            	showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
        	else
	        	currentPage=1
        		showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
           		showContent
           		showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
	    	end if
		end if
	end if

sub showContent
   	dim i
    i=0
%>
      <table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
	<tr>
		<td class="title" height="25" align="center" colspan="7"><strong>注册会员管理</strong></td>
	</tr>
	<tr>
		<td class="title2" height="25" colspan="7">选择您需要更改的会员注册信息</td>
	</tr><tr bgcolor="#C0C0C0" class="title"> 
          <td width="48" height="25" align="center" class="items"><strong> 序 号</strong></td>
          <td width="91" height="25" align="center" class="items"><strong> 用户名</strong></td>
          <td width="46" height="25" align="center" class="items"><strong> 性 别</strong></td>
          <td width="133" height="25" align="center" class="items"><strong>Email</strong></td>
          <td width="280" height="25" align="center" class="items"><strong>公司名称</strong></td>
          <td width="76" height="25" align="center" class="items"><strong> 状态</strong></td>
          <td width="261" height="25" align="center" bgcolor="#C0C0C0" class="items"><strong>操作</strong></td>
        </tr>
        <%do while not rs.EOF %>
        <tr bgcolor="#E3E3E3" class="tdbg"> 
          <td height="22" align="center" class="table"><%=rs("UserID")%></td>
          <td align="center" class="table"><%=rs("username")%></td>
          <td align="center" class="table"> 
            <%if rs("Sex")=1 then
	    response.write "男"
	  else
	    response.write "女"
	  end if%>
          </td>
          <td class="table"><a href="Hover_Mail_Send.asp?email=<%=rs("email")%>"><%=rs("email")%></a></td>
          <td class="table"> <%=rs("Comane")%> </td>
          <td align="center" class="table"> 
            <%
	  if rs("LockUser")=true then
	  	response.write "已锁定"
	  else
	  	response.write "正常"
	  end if
	  %>
          </td>
          <td align="center" class="table"><a href="Hover_User_edit.asp?UserID=<%=rs("UserID")%>">修改</a>&nbsp; 
            <%if rs("LockUser")=False then %>
            <a href="Hover_User_Lock.asp?Action=Lock&amp;UserID=<%=rs("UserID")%>">锁定</a> 
            <%else%>
            <a href="Hover_User_Lock.asp?Action=CancelLock&amp;UserID=<%=rs("UserID")%>">解锁</a> 
            <%end if%>
          &nbsp;<a href="Hover_User_Del.asp?UserID=<%=rs("UserID")%>" onClick="return ConfirmDel();">删除</a></td>
        </tr>
        <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
</table>  
<%
end sub 
%>
<BR>
<%htmlend%>
<%
rs.Close
set rs=Nothing
call CloseConn()  
%>