show_wh_employees.asp

来自「这是一个自己研发的薪酬管理系统」· ASP 代码 · 共 79 行

<%
'文件功能:显示员工信息
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设立权限控制
%>
<%if len(Str_employee_memo)=0 then Str_employee_memo="&nbsp;"%>
            <TR CLASS='TABLEDATA' ALIGN=CENTER>
                <TD ALIGN=CENTER>
					<%
					if (session("right")=1 and session("emp")=int(Str_PK_employee_id)) or (session("right")=2 and session("dpt")=int(Str_dpt_id)) or (session("right")=3 and session("emp")=int(Str_PK_employee_id)) or session("right")=4 then
					%>
                    <INPUT ID=Chk_Select NAME=ChkID TYPE=CHECKBOX VALUE='<% =Str_PK_employee_id %>'>
					<%else%>
					<INPUT ID=Chk_Select NAME=ChkID TYPE=CHECKBOX VALUE='<% =Str_PK_employee_id %>' disabled>
					<%end if%>
                </TD>
            
                <TD>
                    <% Response.write (mInt_Page-1)*mInt_CountPerPage+Int_Count %>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_employee_id=<%=Str_PK_employee_id%>'>
                    <%
                    Response.write Str_employee_name
                    %>
                    </A>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_employee_id=<%=Str_PK_employee_id%>'>
                    <%
                    Response.write Str_employee_type
                    %>
                    </A>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_employee_id=<%=Str_PK_employee_id%>'>
                    <%
                    if isdate(Str_employee_joindate) then
                        Response.write (Val(FormatDate(Str_employee_joindate,"yyyy"))-gInt_BeginYear) & FormatDate(Str_employee_joindate,"年mm月dd日")
                    end if
                    %>
                    </A>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_employee_id=<%=Str_PK_employee_id%>'>
                    <%
                    if isdate(Str_employee_birth) then
                        Response.write (Val(FormatDate(Str_employee_birth,"yyyy"))-gInt_BeginYear) & FormatDate(Str_employee_birth,"年mm月dd日")
                    end if
                    %>
                    </A>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_employee_id=<%=Str_PK_employee_id%>'>
                    <%
                    Response.write Str_employee_memo
                    %>
                    </A>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_employee_id=<%=Str_PK_employee_id%>'>
                    <%
                    Response.write showright(Str_employee_right)
                    %>
                    </A>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_employee_id=<%=Str_PK_employee_id%>'>
                    <%
                    Response.write id2department(Str_dpt_id)
                    %>
                    </A>
                </TD>
            </TR>