【正文】 rgin=0table width=550 border=0 align=center tr td width=55% height=30 span class=style3人事管理/span→span class=style1人力規(guī)劃/span→font color=FF0000考勤分析報(bào)表/font/td /tr/tabletable width=550 border=0 align=center cellspacing=0 tr td width=26% height=31 background=images/ class=leftdiandiv align=center class=style4部門名稱/div/td td width=74% background=images/ class=diandiv align=center class=style4職位名稱/div/td /tr % maxpage=0set rs=()sql=Select * from tb_dept order by up sql,conn,1,1if not thenshow=15tol==showmaxpage=requestpage=clng(request(p))if requestpage= or requestpage=0 thenrequestpage=1 end ifif requestpagemaxpage thenrequestpage=maxpageend if if not requestpage=1 then (requestpage1)* end iffor i=1 to and not 39。職位名稱set rsz=()sqlz=select * from tb_ZhiWei where suoshu=amp。rs(id) sqlz,conn,1,1% tr class=dian td height=28 bgcolor=FFFFFF class=leftdiandiv align=center%=rs(title)%/div/td td bgcolor=FFFFFF class=dian % do while not % a href=javascript: onClick=(39。?id=%=rsz(id)%39。,39。39。,39。width=400,height=150,scrollbars=yes39。)%=rsz(zhiwei)%/a　 % loop %amp。nbsp。 /td /tr % if then exit fornextelse (沒有任何職位)end if()set rs=nothing% tr bgcolor=efefef td height=28 colspan=2div align=right共%=maxpage%頁(yè)　當(dāng)前頁(yè)：%=requestpage%%if requestpage=1 or requestpage= then%上一頁(yè)%else%　a href=?p=%=requestpage1%上一頁(yè)/a%end if%%if requestpage=maxpage then%下一頁(yè)%else%a href=?p=%=requestpage1%下一頁(yè)/a%end if%　/div/td /tr/tablepamp。nbsp。/p/body/html2．權(quán)限設(shè)置頁(yè)面代碼%@LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=../DataBase/!include file=../!include file=../%call guanligongzuo39。刪除任務(wù)if request(del) thensqld=delete from tb_Work where id=amp。request(del)(sqld)end if39。顯示工作任務(wù)set rs=()sql=select * from tb_Work order by id desc sql,conn,1,139。是否顯示布置工作任務(wù)set rsde=()sqlde=SELECT FROM INNER JOIN ON = INNER JOIN ON = WHERE ( = 39。amp。session(admin_name)amp。39。) sqlde,conn,1,1if not thenset rsid=()sqlid=select * from tb_Dept where shangji=amp。rsde(id) sqlid,conn,1,1end if39。顯示工作任務(wù)set rs=()sql=select * from tb_Work where buzhizhe=39。amp。session(admin_name)amp。39。 order by id desc sql,conn,1,1function bumenselect case rs(wanchenglei)case 部門set rsb=()sqlb=select * from tb_Dept where id=amp。rs(wanchengzhe) sqlb,conn,1,1(〖amp。rsb(title)amp?！?case 個(gè)人set rsb=()sqlb=select * from tb_Employee where id=amp。rs(wanchengzhe) sqlb,conn,1,1set rsm=()sqlm=select * from tb_Dept where id=amp。rsb(suoshu) sqlm,conn,1,1(〖amp。rsm(title)amp?！絘mp。rsb(name))end selectend function%htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title無(wú)標(biāo)題文檔/titlestyle type=text/css!body,td,th { fontsize: 12px。}a:link { color: 0000FF。}a:visited { color: 0000FF。}.style2 {color: FF0000}.style3 {color: 0000FF}.style4 {color: 000000}/stylelink href=CSS/ rel=stylesheet type=text/css/headbody topmargin=0table width=550 border=0 align=center form name=form1 method=post action= tr td width=55% height=30 span class=style2人事管理/span→span class=style3人力規(guī)劃/span→font color=FF0000管理布置任務(wù)/font/td /tr /form/tabletable width=550 border=0 align=center cellspacing=0 tr align=center td height=31 background=images/ class=leftdianspan class=style4任務(wù)名稱/span/td td background=images/ class=leftdianspan class=style4布置者/span/td td background=images/ class=leftdianspan class=style4布置時(shí)間/span/td td background=images/ class=leftdianspan class=style4完成者/span/td td background=images/ class=leftdianspan class=style4完成期限/span/td td background=images/ class=leftdianspan class=style4完成任務(wù)/span/td td background=images/ class=dianspan class=style4刪除/span/td /tr % if not then maxpage=0show=15tol==showmaxpage=requestpage=clng(request(p))if requestpage= or requestpage=0 thenrequestpage=1 end ifif requestpagemaxpage thenrequestpage=maxpageend ifif not requestpage=1 then (requestpage1)*end if for i=1 to and not % tr bgcolor=FFFFFF td height=28 class=leftdiandiv align=centeramp。nbsp。a href=javascript: onClick=(39。?id=%=rs(id)%39。,39。39。,39。width=450,height=450,scrollbars=yes39。)%=rs(title)%/a/div/td td class=leftdian div align=centeramp。nbsp。 % set rsbz=() sqlbz=SELECT FROM INNER JOIN ON = WHERE = 39。amp。rs(buzhizhe)amp。39。 sqlbz,conn,1,1 (rsbz(name)) %/div/td td class=leftdiandiv align=centeramp。nbsp。%=rs(buzhitime)%/div/td td class=leftdiandiv align=centeramp。nbsp。%call bumen%/div/td td class=leftdiandiv align=centeramp。nbsp。%=rs(wanchengtime)%/div/td td class=leftdiandiv align=centeramp。nbsp。%=rs(wanchengdu)%/div/td td class=diandiv align=centera href=?del=%=rs(id)% onClick=return confirm(39。確定刪除工作任務(wù)？39。)刪除/a/div/td /tr % if then exit fornextelse (沒有工作任務(wù))end if()set rs=nothing% tr bgcolor=efefef td height=23 colspan=7div align=right共%=maxpage%頁(yè)　當(dāng)前頁(yè)：%=requestpage% %if requestpage=1 or requestpage= then%上一頁(yè)%else%　 a href=?p=%=requestpage1%上一頁(yè)/a%end if%%if requestpage=maxpage then%下一頁(yè)%else%a href=?p=%=requestpage1%下一頁(yè)/a%end if%