<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%ColumnName="":Tablename="HX_CompanyUser":action=request("action"):Orderby=" where WS_leave=False ORDER BY WS_Uid DESC"
 set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
 response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>员工一览</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='611'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td width='619' colspan='2' bgcolor=FFFBE8><table width='609'  border='0' cellspacing='0' cellpadding='0'><tr><td width='609' height='25' background='../hximages/titleline.gif'><font class='fontmenu'>员工一览</font></td></tr></table><table width='100%' cellspacing cellpadding><tr><td width='100%'><table width='100%' border='0' cellspacing='1' cellpadding='2' align='center' bgcolor='#613c25'><tr bgcolor='#BF9B73' class='td4'><td height='23' width='10%'><div align='center'><b>工号</b></div></td><td height='23' width='20%'><div align='center'><b>姓名</b></div></td><td height='23' width='40%'><div align='center'><b>所在部门</b></div></td><td height='23' width='21%'><div align='center'><b>职务</b></div></td><td height='23' width='9%'><div align='center'><b>操作</b></div></td></tr>"
 if rs.recordcount<=0 then
 response.write "<tr><td colspan=5>暂无用户</td></tr>"
 else
	rs.PageSize =15 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if    
    rs.AbsolutePage=Page
	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	i=0
	do while not rs.EOF
	response.write "<tr "
	if i mod 2 =0 then response.write "bgcolor='#FFFBE8'" else response.write "bgcolor='#FFFBE8'"
	response.write "><td width='10%' height='23'>"&rs("WS_Code")&"</td><td width='20%' height='23'>"&rs("WS_Name")&"</td><td width='40%' height='23'>"
	set ders=WS_S.HX_SetRSD("*","HX_Department"," where WS_Did="&rs("WS_department")):if ders.recordcount>0 then response.write ders("WS_departmentName")&"</td><td width='21%' height='23'>"
	set aprs=WS_S.HX_SetRSD("*","HX_Appointment"," where WS_Aid="&rs("WS_Appointment")):if aprs.recordcount>0 then response.write aprs("WS_AppointmentName")&"</td><td width='9%' height='23'><div align='center'><a href='domodify.asp?WS_Uid="&rs("WS_Uid")&"'><img src='../HXimages/edit.gif' width='15' height='15' alt='修改' border='0'></a> <a href='userinfolook.asp?WS_Uid="&rs("WS_Uid")&"'><img src='../HXimages/view.gif' width='16' height='15' alt='查看' border='0'></a></div></td></tr>"
	  i=i+1
	  if i>=rs.PageSize then Exit Do
	  rs.movenext
      loop
      call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",5)
  end if
response.write "</table></td></tr></table></td></tr></table>"%>
