【正文】 ()39。跳轉(zhuǎn)到管理首頁 end if set rs=nothing set conn=nothing end if % 6 首頁設(shè)計 網(wǎng)站首頁主要由 兩部 部分組成，一部分是管理導(dǎo)航區(qū)， 另一 部分是展示 區(qū)。其中展示區(qū)中除了顯示主要顯示各種功能或者列表，還顯示當(dāng)前的操作用戶和當(dāng)前的日期，并且被裝在一個包含文件里。其程序代碼如下： !include file=DataBase/ !include file= % set rs=() sql=SELECT FROM INNER JOIN ON = where =39。amp。session(admin_name)amp。39。 sql,conn,1,1 if not then % table width=612 border=0 cellspacing=0 tr td width=33% align=left /td td width=44% align=leftspan class=style5您好， %=rs(name)%今天的日期是： %=date()%/span/td td width=23% align=rightdiv align=centera href=span class=style5注銷登錄 /span/a/div/td /tr /table % else () end if % 7 模塊設(shè)計 7． 1 人力規(guī)劃 人力規(guī)劃主要包括部門設(shè)置、職位設(shè)置、人事設(shè)置、添加員工、填寫合同、合同管理和合同模版 7 部分組成。 1. 部門設(shè)置 部門設(shè)置主要用于用戶管理部門的名稱，包括顯示、添加、修改和刪除部門信息 4 個部分部門顯示 當(dāng)用戶在單擊“部門設(shè)置”超鏈接時，頁面在展示區(qū)會顯示出部門名稱其程序代碼如下： % call bumenshezhi 39。部門 set rsb=() sqlb=select level from tb_Dept group by level sqlb,conn,1,1 max= % 部門設(shè)置可以添加部門名稱、修改部門、刪除部門 添加部門對應(yīng)文件 ，代碼 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=DataBase/ !include file= !include file= % set rs=() sql=select * from tb_Dept order by up sql,conn,1,1 if request(post) then if request(title) then set rsc=() sqlc=select * from tb_Dept where shangji=amp。request(up)amp。 and title=39。amp。request(title)amp。39。 sqlc,conn,1,1 if not then (script language=javascriptalert(39。同一級別下的部門不能重名 39。)。location=39。javascript:(1)39。/script) () end if set rsj=() sqlj=select * from tb_Dept where id=amp。request(up) sqlj,conn,1,1 up=rsj(up) set rsa=() sqla=Select * from tb_Dept where id is null sqla,conn,1,3 rsa(title)=request(title) rsa(level)=rsj(level)+1 rsa(up)=request(up) rsa(shangji)=request(up) set rsa=() sqla=Select * from tb_Dept order by id desc sqla,conn,1,3 id=rsa(id) 39。添加排序 set rsa1=() sqla1=Select * from tb_Dept sqla,conn,1,3 rsa1(up)=upamp。,amp。id set rsc=nothing (script language=javascriptalert(39。添加成功39。)。()/script) else (script language=javascriptalert(39。請?zhí)顚懖块T名稱 39。)。location=39。javascript:(1)39。/script) end if end if % 修改部門文件為 % call bumenshezhi if request(post) then set rsa=() sqla=select * from tb_Dept where id=amp。request(id) sqla,conn,1,3 rsa(title)=request(title) rsa(content)=request(content) (script language=javascriptalert(39。修改成功39。)。()。()/script) end if if request(id) then set rs=() sql=select * from tb_Dept where id=amp。request(id) sql,conn,1,1 % 刪除部門文件 % call bumenshezhi if request(id) then 39。部門名稱 set rs=() sql=select * from tb_Dept where id=amp。request(id) sql,conn,1,1 39。上級部門 if rs(shangji) then set rss=() sqls=select * from tb_Dept where id=amp。rs(shangji) sqls,conn,1,1 end if 39。下級部門 set rsd=() sqld=select * from tb_Dept where shangji=amp。request(id) sqld,conn,1,1 39。職位名稱 set rsz=() sqlz=select * from tb_ZhiWei where suoshu=amp。rs(id) sqlz,conn,1,1 end if % 2. 職位設(shè)置 職位設(shè)置 文件為 ，可以選擇所屬部門，添加職位 、修改職位 文件 代碼 % call zhiweishezhi if request(post) then if request(zhiwei) then set rs1=() sql1=Select * from tb_ZhiWei sql1,conn,1,3 rs1(zhiwei)=request(zhiwei) rs1(suoshu)=request(suoshu) set rs1=nothing (script language=javascriptalert(39。提交成功39。)。location=39。39。/script) else (script language=javascriptalert(39。職位名稱必須填寫39。)。location=39。39。/script) end if end if 修改職位代碼 set rs=() sql=Select * from tb_dept order by up sql,conn,1,3 % % set rs=() sql=select * from tb_ZhiWei where id=amp。request(id) sql,conn,1,1 select case request(post) case rename set rs1=() sq1l=select * from tb_ZhiWei where id=amp。request(id) sql,conn,1,3 rs1(zhiwei)=request(zhiwei) (script language=javascriptalert(39。修改成功39。)。()。()/script) case del on error resume next if request(id)=2 then (scriptalert(39。此職位不能刪除39。)。location=39。javascript:(1)39。/script) () end if sql2=update tb_Employee set zhiwei=null,suoshu=null,kong=0 where zhiwei=39。amp。request(id)amp。39。 (sql2) sql1=delete from tb_ZhiWei where id=amp。request(id) (sql1) (script language=javascriptalert(39。刪除成功39。)。()。()/script) end select % 3 人事設(shè)置 人事設(shè)置文件為 可以添加職位、修改人員部門職務(wù)信息 代碼 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=DataBase/ !include file= !include file