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

📄 renyuanxinxi.asp

📁 基于asp的遗传算法组卷系统
💻 ASP
字号:
<!--#include file="conn.inc"-->
<html>
<head>
<script language="javascript">
function editit(id)
{ 
  page="renyuanedit.asp?id="+id
  window.open (page,'查看编辑人员','width=560,height=360')
}//编辑题目弹出固定大小的窗口
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 viewit(myform)
{
if (document.viewaddform.department.value!="")
  department=document.viewaddform.department.value;
else
  department="所有";
result="浏览<"+department+">专业中的人员?"
if (confirm(result))
  {
    myform.action="renyuanxinxi.asp";
    myform.submit();
  }
}
function searchit(myform)
{
if (document.viewaddform.department.value!="")
  department=document.viewaddform.department.value;
else
  department="所有";
if (document.viewaddform.mykey.value!="--关键字--")
  mykey=document.viewaddform.mykey.value;
else
  mykey="";
result="在<"+department+">部门中搜索关键字<"+mykey+">?"
if (confirm(result))
  {
    myform.action="renyuanxinxi.asp";
    myform.submit();
  }
}//按照关键字查找
function addit(myform)
{
if (document.viewaddform.department.value!="" ){
  result="添加人员到"+document.viewaddform.department.value+"专业?"//+"题目到"+document.viewaddform.subjectview.value+"题库?"
  if (confirm(result))
  {
    myform.action="renyuanadd.asp";
    myform.submit();
  }
}
else
alert("请首先选择专业!")
}//添加题目
function delit(myform)
{
  result="是否删除所选项?"
  if (confirm(result))
  {
    myform.action="renyuandel.asp";
    myform.submit();
  }
}//删除题目
</script>
<link rel="stylesheet" type="text/css" href="css.css">
<style type="text/css">
<!--
.style4 {font-size: 9pt}
.style14 {font-size: 9pt; color: #003399; }
.style15 {color: #006699}
-->
</style>


</head>

<body> 

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
  <tr>
    <td width="100%" valign="top"><span class="style4">当前位置:<a href="news.asp" class="style4 style15">系统管理</a> &gt; <span class="style14 style15"><a href="renyuanguanli.asp">人员管理</a></span> &gt;人员信息<img src="images/cjcx.GIF" width="20" height="18"> <img src="images/stu.gif" width="150" height="113" align="top"></span></td>
  </tr>
</table>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%">
  <form name="viewaddform" method="POST" action="renyuanxinxi.asp">
    <tr>
      <td>
        <select name="department" size="1">
          <option selected>--选择专业--</option>
          <% sql="select * from department"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      do while not rs.eof %>
          <option value="<%=rs("department")%>"><%=rs("department")%></option>
          <% rs.movenext
      loop
      rs.close %>
        </select>        
        <input type="submit" value="浏览" name="I3" onclick="viewit(this.form)" class="s02">        
        <input type="submit" value="添加人员" name="I6" onClick="addit(viewaddform)" class="s02">
        <input type="text" name="mykey" size="10" value="--关键字--" onFocus="this.select()" class="s01">      
        <input type="submit" value="查 询" name="I7" onClick="searchit(this.form)" class="s02">
        <img src="images/find1.gif" width="95" height="20" align="right"></td>
    </tr>
  </form>
</table>
<form name="viewdatabase" method="post">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="30">
  <tr>
    <td>    <p align="right">
    <input type="checkbox" name="chkall" value="on" onclick="CheckAll(this.form)" style="font-size: 9pt; color: #000000">
    全部选择/取消<input type="submit" value="删除所选项" name="I32" onClick="delit(this.form)" class="s02">    
    </td>
  </tr>
</table>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
  <tr>
    <td width="29" align="center" bgcolor="#E1E1E1" height="20"> </td>
    <td width="29" align="center" bgcolor="#E1E1E1">序号</span></td>
    <td align="left" bgcolor="#E1E1E1" width="135">
    <p align="center" class="style4">&nbsp;姓名</td>
    <td width="277" align="center" bgcolor="#E1E1E1">专业</td>
    <td align="left" bgcolor="#E1E1E1" width="223">
    <p align="center" class="style4">职务</td>
    <td align="center" bgcolor="#E1E1E1" width="35"><b><span class="style4">操作</span></b></td>
  </tr>
  <% 
department=request.form("department")
mykey=request("mykey")
if department="--选择专业--" or department=""  then 
  department="%"
end if
if mykey= "--关键字--" or mykey="" then
  mykey="%"
end if
PageCount=0
sql="select * from cadre_info where department like '"& department &"' and username like '" & mykey &"%' "
set rs=conn.execute(sql)
while not rs.eof
	PageCount=PageCount+1
	rs.movenext
wend
sql="select * from cadre_info where department like  '"& department &"' and username like '" & mykey &"%'"
set rs=server.createobject("adodb.recordset")
rs.CursorLocation = 3 
rs.open sql,conn,3,2
on error resume next
PageSize = 10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
'分页显示
If not Page >1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize
%>
  <tr>
    <td align="center" bgcolor="#E1E1E1">    <input type="checkbox" name="id" value="<%=rs("userid")%>"></td>
    <td align="center"><%=i%></td>
    <td align="left"><%=rs("username")%></td>
    <td align="left"><%=rs("department")%></td>
	<td align="left"><%=rs("duties")%></td>
    <td align="left">
   <p align="center"><a href="javascript:editit(<%=rs("userid")%>)">
    <img border="0" src="images/edit.gif" alt="查看/编辑"></a></td>
  </tr>
  <% 
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</form>
</table>
<div ALIGN="right">
  <table>
    <form ACTION="<%=Myself%>?department=<%=department%>&mykey=<%=mykey%>%&gt;" METHOD="GET">
      <tr>
        <td>        
		<p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
            <a href="<%=Myself%>?Page=1&department=<%=department%>&mykey=<%=mykey%>">
			 第一页</a>
            <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&department=<%=department%>&mykey=<%=mykey%>"> 
			上一页</a>
        <%                                      
End If                                         
If Page <> PageCount Then ' 如果不是位于最后一页                                         
%> 
        <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&department=<%=department%>&mykey=<%=mykey%>"> 
		下一页</a>
        <a HREF="<%=Myself%>?Page=<%=PageCount%>&department=<%=department%>&mykey=<%=mykey%>"> 
		最后一页</a>        
		<% End If %> <font SIZE="2">输入页次:</font>
        <input name="Page" size="3" class="s01">        
        <font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=PageCount%></font></p>
        <p></td>
      </tr>
    </form>
  </table>
  <p>&nbsp;</p>
</div>

</td>
</tr>
</body>

</html>

⌨️ 快捷键说明

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