⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_cadre_info.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
Dim pagesize
Dim page
Dim ipage
Dim taxis
Dim myself
if request("pagesize")="" then
  pagesize=20
else
  pagesize=request("pagesize")
end if
if request("page")="" then
  page=1
else
  page=request("page")
end if
if request("taxis")="" then
  taxis="userid"
else
  taxis=request("taxis")
end if
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<link rel="stylesheet" type="text/css" href="../default.css">
<script language="JavaScript">
function checkall(form)
{
for (var i=0;i<form.elements.length;i++)
  {
  var e = form.elements[i];
  if (e.name != 'chkall')
     e.checked = form.chkall.checked;
  }
}
function submitit(str)
{
	if (str=="搜索")
	{
		admin_cadre_info.action="admin_cadre_info.asp";
		return true;
	}
	else
	{
		if (confirm("是否删除用户?"))
		{
			admin_cadre_info.action="admin_cadre_info_delete.asp";
			return true;
		}
		else
		{
			return false;
		}
	}
}
</script>
<script language="JavaScript1.2" src="../js/lock.js"></script>
</head>

<body bgcolor="#FFFFFF">

<%
sql="select * from cadre_info where userid like '%"&request("users")&"%' order by "& taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1" cellpadding="0">
  <tr>
    <td width="100%">当前位置:系统管理 &gt; <font color="#FF0000">用户管理</font></td>
  </tr>
</table>
<form method="POST" name="admin_cader_info">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="30">
  <tr>
    <td width="100%" valign="top">
  <table width="100%" style="border-collapse: collapse" bordercolor="#007CD0" cellpadding="6" cellspacing="0" border="1" class="withborder" bgcolor="#F1F1F1">
<tr><td>
    证号:<input type="text" name="users" size="20" class="s01" value="<%=request("users")%>">
    <input type="submit" value="搜索" name="搜索" class="s02" onclick="return submitit(this.value);"><br>
    <br>
              (输入证件号码,则可以查询满足条件的人员) </td>
          </tr>
    </table></td>
  </tr>
  <tr>
    <td width="100%" style="height: 30">
    <input type="button" value="添加新记录" name="B4" class="s02" onclick="window.location='admin_cadre_info_add.asp'"></td>
  </tr>
</table>
<table border="1" bordercolor="#FFFFFF" width="100%" id="AutoNumber3" bgcolor="#F1F1F1" style="border-collapse: collapse; border-style: solid; border-color: #007CD0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="30" colspan="10" bordercolor="#007CD0" style="height: 30">
      <p align="right">
      <input type="checkbox" name="chkall" value="ON" onclick="checkall(this.form);">全部选择/取消选择&nbsp; 
      <input type="submit" value="删除所选项" name="button" class="s02" onclick="return submitit(this.value);">&nbsp; </td>
    </tr>
    <tr>
      <td height="20" bordercolor="#007CD0" class="border" align="center" width="20"> </td>
      <td height="20" bordercolor="#007CD0" class="border" align="center">
      <a href="admin_cadre_info.asp?taxis=reject&page=<%=page%>&pagesize=<%=pagesize%>">
      状态</a></td>
      <td align="center" bordercolor="#007CD0" class="border">
      <a href="admin_cadre_info.asp?taxis=userid&page=<%=page%>&pagesize=<%=pagesize%>">
      编号</a></td>
      <td align="center" bordercolor="#007CD0" class="border">
      <a href="admin_cadre_info.asp?taxis=username&page=<%=page%>&pagesize=<%=pagesize%>">
      姓名</a></td>
      <td align="center" bordercolor="#007CD0" class="border">
      <a href="admin_cadre_info.asp?taxis=department&page=<%=page%>&pagesize=<%=pagesize%>">
      部门</a></td>
      <td align="center" bordercolor="#007CD0" class="border">
      <a href="admin_cadre_info.asp?taxis=office&page=<%=page%>&pagesize=<%=pagesize%>">
      单位</a></td>
      <td align="center" bordercolor="#007CD0" class="border">
      <a href="admin_cadre_info.asp?taxis=duties&page=<%=page%>&pagesize=<%=pagesize%>">
      职务</a></td>
      <td align="center" bordercolor="#007CD0" class="border">
      <a href="admin_cadre_info.asp?taxis=sex&page=<%=page%>&pagesize=<%=pagesize%>">
      性别</a></td>
      <td align="center" bordercolor="#007CD0" class="border">
      <a href="admin_cadre_info.asp?taxis=birthday&page=<%=page%>&pagesize=<%=pagesize%>">
      出生年月</a></td>
      <td align="center" bordercolor="#007CD0" class="border" width="40">编辑</td>
    </tr>
    <% if rs.eof then %>
    <tr>
      <td colspan="10" height="20" bordercolor="#007CD0">
      <p align="center">没有记录!</td>
    </tr>
    <% else
    on error resume next
    rs.PageSize =pagesize
    Page = CLng(Request("Page"))
    If Page < 1 Then Page = 1
    If Page > rs.PageCount Then Page = rs.PageCount
    rs.AbsolutePage = Page
    For iPage = 1 To rs.PageSize
    %>
    <tr onmouseover="this.className='trover'" onmouseout="this.className=''">
      <td bordercolor="#007CD0" align="center" bgcolor="#C0C0C0">
      <input type="checkbox" name="userid" value="<%=rs("userid")%>"></td>
      <td bordercolor="#007CD0" align="center"><% if rs("reject")=0 then %>
      <a title="禁止用户登陆" href="admincadreinfo.asp?userid=<%=rs("userid")%>">
      <img border="0" src="../images/adminunlock.gif"></a> <% else %><a title="解除禁止状态" href="admincadreinfo.asp?userid=<%=rs("userid")%>"><img border="0" src="../images/adminlock.gif"></a>
      <% end if %></td>
      <td align="center" bordercolor="#007CD0"><%=rs("userid")%> </td>
      <td align="center" bordercolor="#007CD0"><%=rs("username")%> </td>
      <td align="center" bordercolor="#007CD0"><%=rs("department")%> </td>
      <td align="center" bordercolor="#007CD0"><%=rs("office")%> </td>
      <td align="center" bordercolor="#007CD0"><%=rs("duties")%> </td>
      <td align="center" bordercolor="#007CD0"><%=rs("sex")%> </td>
      <td align="center" bordercolor="#007CD0"><%=year(rs("birthday"))%>年<%=month(rs("birthday"))%>月 </td>
      <td align="center" bordercolor="#007CD0" width="40">
      <a title="编辑用户" href="admin_cadre_info_edit.asp?userid=<%=rs("userid")%>">
      <img border="0" src="../images/edit.gif"></a></td>
    </tr>
    <% rs.MoveNext
    If rs.EOF Then Exit For
    Next
    end if
    %>
    <tr>
      <td height="30" colspan="10" bordercolor="#007CD0">
      <p align="right">
      <select size="1" name="pagesize" onchange="javascript:window.location='admin_cadre_info.asp?pagesize='+this.options[this.selectedIndex].value;">
      <option selected>每页显示<%=pagesize%>条记录</option>
      <option value="10">每页显示10条记录</option>
      <option value="20">每页显示20条记录</option>
      <option value="50">每页显示50条记录</option>
      <option value="100">每页显示100条记录</option>
      <option value="10000">显示全部记录</option>
      </select>&nbsp; </td>
    </tr>
  </tr>
</table>
</form>
<form ACTION="<%=Myself%>?&taxis=<%=taxis%>&pagesize=<%=pagesize%>" METHOD="GET">
  <table width="100%" style="border-collapse: collapse" bordercolor="#007CD0" cellpadding="0" cellspacing="0" border="1" class="withborder" bgcolor="#F1F1F1">
    <tr>
      <td>
      <p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
      <a href="<%=Myself%>?Page=1&taxis=<%=taxis%>&pagesize=<%=pagesize%>">第一页</a>
      <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&taxis=<%=taxis%>&pagesize=<%=pagesize%>">
      上一页</a> <% End If
      If Page <> rs.PageCount Then ' 如果不是位于最后一页
      %>
      <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&taxis=<%=taxis%>&pagesize=<%=pagesize%>">
      下一页</a>
      <a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&taxis=<%=taxis%>&pagesize=<%=pagesize%>">
      最后一页</a> <% End If %> 输入页次:<input NAME="Page" SIZE="3" CLASS="s01"> 页次:<font COLOR="Red"><%=Page%>/<%=rs.PageCount%></font>&nbsp;&nbsp;</td>
    </tr>
  </table>
</form>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -