usermanage.asp

在线经销商回单管理系统在线经销商回单管理系统

<%@language=vbscript codepage=936 %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="Inc/Function.asp"-->
<script language=javascript>
function ConfirmDel()
{
   if(confirm("确定要删除此用户吗？"))
     return true;
   else
     return false;
}
</script>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="862" align="center" valign="top"><br>
      <br>
      <table width="660" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9E2F1">
        <tr>
          <td height="20" colspan="6" align="center" bgcolor="#D9E2F1">经销商管理</td>
        </tr>
        <tr>
          <td height="22" align="left" bgcolor="#FFFFFF">&nbsp;序号</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;用户名</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;E-MAIL</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;经销商名称</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;状态</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;&nbsp;操作</td>
        </tr>
 <tr>
          <td height="22" colspan="6" align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;<font color="#FF0000">*红色标记为已锁定用户</font></td>
        </tr>         <% 
On Error Resume Next
iPage = trim(Request.QueryString("page"))
if iPage="" then
iPage=1
end if
  dim Rs
  SET RS=SERVER.CreateObject("ADODB.RECORDSET")
  SQL="SELECT * FROM USER ORDER BY USERID DESC"
  RS.OPEN SQL,CONN,1,1
  'Set Rs=conn.execute ("select * from INFO_CARD order by id desc")
  if Rs.eof then
  response.Write "还没有添加卡片信息"
  response.end
  else
Rs.PageSize = 10
iPageCount = Rs.PageCount
Rs.AbsolutePage = iPage
Dim i
For i = 1 To Rs.PageSize
	If Rs.Eof Then Exit For
   %>
       
        <tr>
          <td height="22" align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("UserID") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("UserName") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;<%= Rs("email") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("comane") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("ID") %></td>
          <td align="left" bgcolor="#FFFFFF"><a href="UserModify.asp?UserId=<%=Rs("UserId")%>">修改</a> <a href="UserLock.asp?UserId=<%=Rs("UserId")%>&action=<%=Rs("LockUser")%>">
		  <% 
		  if Rs("LockUser")=true then response.Write "<font color='#ff0000'>解锁</font>" end if
		  if Rs("LockUser")=false then response.Write "锁定" end if
		   %>
          </a> <a href="UserDel.asp?UserId=<%=Rs("UserId")%>">删除</a>&nbsp;&nbsp;<a href="UserAccountManage.asp?UserId=<%=Rs("UserId")%>">[查看台帐] </a>[<a href="UserDetail.asp?UserId=<%=Rs("UserId")%>">查看详细</a>]</td>
        </tr>
       <%      
	Rs.MoveNext
Next
End If
%>
  <tr>
    <td id="bottom" height="25" align="center" bgcolor="#FFFFFF" colspan="6">共<font color=red> <%=iPage%>/<%=Rs.RecordCount%></font>条记录 分<font color=red><%=iPageCount%></font>页 每页<font color=red><%=Rs.PageSize%></font>条
        <%
			If iPage = 1 Then
				Response.Write("[第一页]&nbsp;")
				Response.Write("[上一页]&nbsp;")
			Else
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page=1><font color=red>[第一页]</font></a>&nbsp;")
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& (iPage - 1) &"><font color=red>[上一页]</font></a>&nbsp;")
			End If
			If iPageCount = iPage Then
				Response.Write("[下一页]&nbsp;")
				Response.Write("[最后一页]")
			Else
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& (iPage + 1) &"><font color=red>[下一页]</font></a>&nbsp;")
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& iPageCount &"><font color=red>[最后一页]</font></a>")
			End If
			%>    </td>
  </tr>
      </table></td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.Close
set rs=Nothing
call CloseConn()  
%>