staff.asp

员工身份查询系统 员工身份查询系统

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="top.asp"-->
<%
If Cint(AdminGroup(4))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr class="banner"> 
    <td width="92%" height="25" align="center" >员工管理</td>
    <td width="73" align="center" ><a href="addstaff.asp">添加员工</a></td>
  </tr>
</table>
<table  border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <form name="form2" method="post" action="?">
    <tr class="tablebody">
      <td height="25" align="center">员工搜索:&nbsp; 关键字:&nbsp;
          <input name="key" type="text" id="key" maxlength="20">
&nbsp;
        <select name="search" size="1">
          <option value="" selected>请选择搜索分类</option>
          <option value="realname">按真实姓名</option>
          <option value="sn">按员工编号</option>
          <option value="tel">按电话号码</option>
        </select>
        <input type="submit" name="Submit2" value="提交"></td>
    </tr>
  </form>
</table>
<% 
select case request("action")
case "edit"
call edit()
case else
call normal()
end select
sub normal()
dim strFileName
strFileName="staff.asp"
pageno=15
dim sql,rs
dim search,realname
sql="select * from staff"
if request.Form("key")<>"" then
if request("search")="realname" then
sql=sql&" where realname like '%"&trim(request.Form("key"))&"%'"
elseif request("search")="sn" then
sql=sql&" where sn like '%"&trim(request.Form("key"))&"%'"
elseif request("search")="tel" then
sql=sql&" where tel like '%"&trim(request.Form("key"))&"%'"
elseif request("search")="" then
sql=sql&" where realname like '%"&trim(request.Form("key"))&"%' or sn like '%"&trim(request.Form("key"))&"%' or business like '%"&trim(request.Form("key"))&"%' or branch like '%"&trim(request.Form("key"))&"%' or tel like '%"&trim(request.Form("key"))&"%' or mail like '%"&trim(request.Form("key"))&"%'"
end if
end if
sql=sql&" order by SortNum asc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rscount=rs.recordcount
%>
<%if  rscount<1 then%>
<table border="0" align="center" cellpadding="0" cellspacing="1"  class="tablecolor">
  <tr> 
    <td height="25" colspan="8" align="center" class="tablebody"><%If request.Form("key")<>"" then%>
没有您所要的内容!
  <%
	else
	%>
没有员工数据！
<%End If%></td>
  </tr>
</table>
<%else%>
<table border="0" align="center" cellpadding="0" cellspacing="1"  class="tablecolor">
  <tr > 
    <td height="25" align="center" class="tablebody">真实姓名</td>
    <td align="center" class="tablebody">员工编号</td>
    <td align="center" class="tablebody">职务</td>
    <td align="center" class="tablebody">部门</td>
    <td align="center" class="tablebody">电话号码</td>
    <td align="center" class="tablebody">E-mail</td>
    <td align="center" class="tablebody">上岗日期</td>
	<td align="center" class="tablebody">管理</td>
	<td width="5%" align="center" class="tablebody">审核</td>
	<td width="5%" align="center" class="tablebody">操作</td>
  </tr><form name="form2" method="post" action="?action=edit" onSubmit="return checkf(form2)">
  <%
call showsql(pageno)
rs.move(rsno)
for i=1 to loopno
%>
  <tr > 
    <td height="25" align="center" class="tablebody"><a href="showstaff.asp?uid=<%=rs("Id")%>"><%=rs("realname")%></a></td>
    <td align="center" class="tablebody"><%=rs("sn")%></td>
    <td align="center" class="tablebody"><%=rs("business")%></td>
    <td align="center" class="tablebody"><%=rs("branch")%></td>
    <td align="center" class="tablebody"><%=rs("Tel")%></td>
    <td align="center" class="tablebody"><%=rs("Mail")%></td>
    <td align="center" class="tablebody"><%=rs("duty")%></td>
	<td align="center" class="tablebody"><a href="addstaff.asp?id=<%=rs("id")%>">修改</a></td>
	<td align="center" class="tablebody"><%if rs("isagree")=1 then response.Write("<font color=red>√</a>") else response.Write("×") end if%></td>
	<td align="center" class="tablebody"><input name="id" type="checkbox" id="id" value="<%=rs("id")%>"></td>
    </tr>
  <%
rs.movenext
next
%>
<tr>
    <td height="25" colspan="10" align="right"  class="tablebody"><INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>
      &nbsp;全选
        
		<input type="submit" name="Submit" value="批准">
        <input name="Submit" type="submit" id="Submit" value="取消批准">
        <input name="Submit" type="submit" id="Submit" value="删除" onclick="SetSubmitImgId('realdel');">
        &nbsp;</td>
  </tr></form>
  <tr> 
      <td colspan="10" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,true,true,"位员工")%></td>
  </tr>
</table>
<%end if%>
<%end sub
sub edit()
dim id,sql
if request.form("id")="" then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
select case request("submit")
case "批准"
sql="update staff set isagree=1 where id="
case "取消批准"
sql="update staff set isagree=0 where id="
case "删除"
sql="delete from staff where id="
case else
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end select
for each id in request("id")
conn.execute(sql&id)
next
dim ip
ip=Request.ServerVariables("HTTP_REFERER")
response.Write("<script>alert('操作成功！');location='"&ip&"'</script>")
response.End()
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->