【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 uid ? 顯示合同信息 sql,conn,1,1 % 工作管理 工作管理主要包括布置工作任務、管理工作任務和在線發(fā)布通知 3 個部分。 1．布置工作任務 布置工作任務主要是把工作合理地分配到公司的某個部門或者某個員工。 布置工作任務頁面的設計效果如圖 14 所示。 圖 14 布置工作任務頁面的設計效果 布置工作任務頁面中涉及的 HTML 表單元素如表 5 所示。 表 5 布置工作任務頁面中涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= post hidden 判斷表單是否提交 value=true title text 任務名稱 content textarea 任務內(nèi)容 cols=50 rows=5 bumen select 部門 value=%=rs(id)% geren select 個人 value=%=rsr(id)% – 26 – wancheng radio 選擇完成方式 value=部門 value=個人 value=全部員工 wanchengtime text 完成的期限 Submit submit 重置按鈕 class=botton value= 遞 交 在布置工作任務頁面中，用戶填寫完工作任務后，單擊【遞交】按鈕，用戶添加的 數(shù)據(jù)將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)進行相應的處理。布置工作模塊的程序代碼如下： !include file=DataBase/ % if request(post) then if request(title)= then (script language=javascriptalert(39。任務名稱必須填寫39。)。location=39。javascript:(1)39。/script) () end if if request(content)= then (script language=javascriptalert(39。任務內(nèi)容必須填寫39。)。location=39。javascript:(1)39。/script) () end if if request(wanchengtime)= then (script language=javascriptalert(39。任務期限必須填寫39。)。location=39。javascript:(1)39。/script) () end if 39。取完成者的名稱 select case request(wancheng) case 部門 wanchengzhe=request(bumen) case 個人 wanchengzhe=request(geren) case 全部員工 call quanbuyuangong end select 39。布置任務 set rsa=() sqla=select * from tb_Work sqla,conn,1,3 – 27 – rsa(buzhizhe)=session(admin_name) rsa(title)=request(title) rsa(content)=request(content) rsa(buzhitime)=now() rsa(wanchengzhe)=wanchengzhe rsa(wanchengtime)=request(wanchengtime) rsa(wanchenglei)=request(wancheng) rsa(wanchengdu)=未完成 (script language=javascriptalert(39。布置成功39。)。location=39。39。/script) end if 39。發(fā)送到全部員工 function quanbuyuangong set rsaff=() sqlaff=SELECT FROM INNER JOIN ON = sqlaff,conn,1,3 do while not 39。布置任務 set rsa=() sqla=select * from tb_Work sqla,conn,1,3 rsa(buzhizhe)=session(admin_name) rsa(title)=request(title) rsa(content)=request(content) rsa(buzhitime)=now() rsa(wanchengzhe)=rsaff(id) rsa(wanchengtime)=request(wanchengtime) rsa(wanchenglei)=個人 rsa(wanchengdu)=未完成 (rsaff(id)) loop (script language=javascriptalert(39。布置成功39。)。location=39。39。/script) end function – 28 – % 2．工作任務管理 工作任務管理主要是對布置的工作任務進入管理。在工作任務管理頁面中，當單擊任務名稱時，可以顯示任務的詳細信息。對工作任務進行查詢代碼如下： % set rs=() sql=select * from tb_Work order by id desc sql,conn,1,1 % 在需要顯示工作任務完成者的時候，只要根據(jù)傳遞的參數(shù)查找相應的記錄便可對其內(nèi)容進入顯示。查找并顯示任務完成者的程序代碼如下： % function bumen select case rs(wanchenglei) case 部門 39。 當完成者是部門時，輸出相應的部門名稱 set rsb=() sqlb=select * from tb_Dept where id=amp。rs(wanchengzhe) sqlb,conn,1,1 (〖 amp。rsb(title)amp?！?) case 個人 39。當完成者是個人時，輸出相應的員工名稱 set rsb=() sqlb=select * from tb_Employee where id=amp。rs(wanchengzhe) sqlb,conn,1,1 set rsm=() sqlm=select * from tb_Dept where id=amp。rsb(suoshu) sqlm,conn,1,1 (〖 amp。rsm(title)amp。〗 amp。rsb(name)) case 全部員工 (全部員工 ) end select end function % 工作任務管理頁面的運行結(jié)果如圖 15 所示。 – 29 – 圖 15 工作任務管理頁面的運行結(jié)果 3．在線發(fā)布通知 在線發(fā)布通知主要是向其他部門或者個人發(fā)布通知。在線發(fā)布通知頁面的設計效果如圖 16所示。 圖 16 在線發(fā)布通知頁面的設計效果 在線發(fā)布通知時，如果選擇的接收對象為部門，那么所選部門的以及下級部門的員工全部都會收到通知。 在線發(fā)布通知頁面中，單擊【發(fā)送】按鈕，用戶添加的數(shù)據(jù)將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)進行相應的處理。在線發(fā)布通知和程序代碼如下： !include file=DataBase/ % – 30 – call fabutongzhi 39。部門 if request(post) then if request(title)= then (script language=javascriptalert(39。消息標題不能為空39。)。location=39。javascript:(1)39。/script) () end if if request(content)= then (script language=javascriptalert(39。消息內(nèi)容不能為空39。)。location=39。javascript:(1)39。/script) () end if select case request(fasong) case 部門 if request(doid) then doid=request(doid) set rsb=() sqlb=Select * from tb_dept where id=amp。doid 39。獲取部門的排序 id sqlb,conn,1,3 if not then bup = rsb(up) set rsd=() sqld=Select * from tb_dept sqld,conn,1,3 do while not dup = rsd(up) delid =rsd(id) if InStr(bup,) 1 then del_name=split(dup,) if del_name(0) = bup then 39。//發(fā)送信息到部門下邊的員工 set rsf=() sqlf= select * from tb_Employee where suoshu=amp。delid sqlf,conn,1,3 do while not fasong39。調(diào)用過程 loop set rsf = nothing end if – 31 – else if InStr(dup,bup) 0 then 39。// 發(fā)送信息到部門下邊的員工 sqlg= select * from tb_Employee where suoshu=amp。delid set rsg=() sqlg,conn,1,3 do while not fasong39。調(diào)用過程 loop set rsg = nothing end if end if loop set rsd=nothing () else script language=javascript alert(39。你要發(fā)送的部門不存在或者已經(jīng)被刪除，請重新操作！ 39。)。 /script end if end if case 個人 set rsa=() sqla=select * from tb_Message sqla,conn,1,3 rsa(title)=request(title) rsa(content)=request(content) rsa(jieshouzhe)=request(geren) rsa(tongzhilei)=request(tongzhilei) rsa(fabuzhe)=session(admin_name) 39。把發(fā)送者的用戶名保存到數(shù)據(jù)表中 rsa(time)=now() set rsa1=() sql