employee_manage.asp

来自「适用于网络/信息企业」· ASP 代码 · 共 124 行

ASP
124 行
字号 
<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<%
Dim Makking

Makking = Trim(Request.QueryString("Makking"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿博尔</title>
</head>
<link href="Images/Admin.css" rel="stylesheet" type="text/css">
<body>
<table width="98%" height="40"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="100%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D8D8D8">
        <tr>
          <td height="30" align="left" bgcolor="ffffff"><table width="100%" height="100%"  border="0" cellpadding="3" cellspacing="0">
              <tr bgcolor="eeeeee">
                <td width="5%" align="center"><img src="Images/1.gif" width="13" height="12"></td>
                <td width="78%"><span class="style2">管理中心 &gt;&gt;&gt; 用户列表</span></td>
                <td width="17%" align="right">				
				</td>
              </tr>
          </table></td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="98%" height="90%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D8D8D8">
  <tr>
    <td valign="top" bgcolor="ffffff"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center" bgcolor="ffffff"> 
            <table width=100% border=0 align='center' cellpadding=3 cellspacing=1 bordercolordark=#ffffff bgcolor="eaeaea">
              <tr align="left" bgcolor="ffffff"> 
                <td height="20" background="Images/box_bg.gif">编号</td>
                <td width="15%" height="20" background="Images/box_bg.gif">姓名</td>
                <td width="15%" height="20" background="Images/box_bg.gif" bgcolor="ffffff">职务 
                <td width="15%" height="20" background="Images/box_bg.gif" bgcolor="ffffff">性别 
                </td>
                <td width="15%" background="Images/box_bg.gif" bgcolor="ffffff">手机</td>
                <td width="15%" background="Images/box_bg.gif" bgcolor="ffffff">入职时间</td>
                <td width="15%" background="Images/box_bg.gif" bgcolor="ffffff">状态</td>
              </tr>
              <%
	SQL = "select * from Employee"
	Set rs=server.CreateObject("adodb.recordset")
	rs.open SQL,Conn,1,1
		IF not (rs.BOF and rs.eof) then
		rs.PageSize = 18
%>
              <!--#include file="../inc/page.asp"-->
              <tr align="left" bgcolor="ffffff" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F5F5F5'"> 
                <td height="22"><%=Rs("Employee_ID")%></td>
                <td height="22"><a href="javascript:Employee_See('<%=Rs("Employee_ID")%>');"><%=Rs("Compellation")%></a></td>
                <td width="17%" height="22"> 
                  <%
					Set Rs_F = Conn.Execute("Select * From Flag Where Flag = '"& Rs("Employee_Flag") &"'")
					
					If Not(Rs_F.eof and Rs_F.BOF) Then
					
					Response.Write(Rs_F("Title"))
					
					End IF
					
					Rs_F.Close
					
					Set Rs_F = Nothing
				%>
                </TD>
                <td height="22"><%IF Rs("Sex") = 1 Then%>男<%Else%>女<%End IF%></td>
                <td height="22"> <%=Rs("Mobile_Telephone")%> </td>
                <td height="22"><%=Rs("Job_Time")%></td>
                <td height="22"><%=Rs("Employee_State")%></td>
              </tr>
              <%
	rs.movenext
	next
	end if
%>
            </table></td>
        </tr>
    </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="24" colspan="3" align="left" valign="middle" background="Images/box_bg_1.gif"> 
            <%Call Page_See()%>
          </td>
          <td width="51%" height="24" align="right" valign="middle" background="Images/box_bg_1.gif"> 
		    <%Page_links="key="& Search_key &"&Search_Body="& Search_Body &"&City="& Search_City &"&"
			call PageControl(iCount,maxpage,page)
			rs.close
			set rs=nothing
Conn.Close
Set Conn = Nothing
			%></td>
        </tr>
        </table>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="1" bgcolor="#E2E1E1"></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="6"></td>
  </tr>
</table>
</body>
</html>
<script language="javascript">
<!--
    function Employee_See(id){
        window.open("Employee_See.asp?id="+id+"","","width=500,height=310,scrollbars=yes");
    }
//-->
</script>

employee_manage.asp - 源码说明

本页面展示了「适用于网络/信息企业」中的 employee_manage.asp 源码文件，采用 ASP 编程语言编写，共 124 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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