【文章內(nèi)容簡介】 括發(fā)文批示、發(fā)文修改、發(fā)文刪除，只有當(dāng)用戶是超級用戶才有權(quán)限進行批示管理，普通用戶沒有此權(quán)限。當(dāng)審批之后，發(fā)文在收文管理頁面中才能夠顯示出來。批示管理頁面的設(shè)計效果如圖 8 所示。圖 8 批示管理頁面設(shè)計效果批示管理頁面所涉及到的程序代碼如下：%call case1if request(del) and (ps(shenhe)=1 or ps(chaoji)=1) then 39。判斷用戶是否有權(quán)限刪除發(fā)文call delend iffunction delsql2=delete from fajian where id=amp。request(del)(sql2) 39。執(zhí)行sql2語句end functionif request(shen) and (ps(shenhe)=1 or ps(chaoji)=1) then 39。判斷用戶是否有權(quán)限進行審核call upend iffunction upset rs1=()sql1=select * from fajian where id=amp。request(id) sql1,conn,1,3rs1(shen)=request(shen) 39。是否審核rs1(sname)=session(admin_name) 39。獲取操作用戶名end function%%set rs=()sql=select * from fajian order by time desc 39。將所有記錄進行降序排列 sql,conn,1,1%%if rs(shen)=1 then% 已審核% End If %%if rs(shen)=0 then% a href=?shen=1amp。id=%=rs(id)% onClick=return confirm(39。確定審核嗎？39。)審核/a 39。通過鼠標(biāo)單擊事件實現(xiàn)彈出提示框% End If %修改發(fā)文進行修改所涉及到的程序代碼如下%call case1 39。驗證用戶身份,此時調(diào)用inc/,select case1set rs1=()sql1=select * from fajian where id=amp。request(id) sql1,conn,1,1session(id)=rs1(id)if rs1(shen)1 then 39。判斷是否已審核if request(post)=true then 39。判斷是否已接收表單的值call wriend if function wriif request(title) and request(content) then 39。判斷是否接收到值13 / 42set rs=()sql=select * from fajian where id=amp。session(id) 39。通過session(id)查找相關(guān)記錄 sql,conn,1,3 39。打開記錄集rs(title)=request(title) 39。接收添加的標(biāo)題rs(content)=request(content) 39。接收添加的內(nèi)容rs(time)=now() 39。獲取當(dāng)前系統(tǒng)日期和時間() 39。跳轉(zhuǎn)到發(fā)文修改成功頁面else(script language=javascriptalert(39。請把信息填寫完整39。)/script)end if end functionif request(id)= then ()end if%批示管理頁面的運行結(jié)果如圖 9 所示。圖 9 批示管理頁面的運行結(jié)果 會議管理模塊設(shè)計會議管理主要包括會議修改、會議刪除、會議發(fā)布 3 部分。當(dāng)用戶單擊會議標(biāo)題超鏈接時，進入相關(guān)的會議信息詳細(xì)頁面，可對會議的詳細(xì)信息進行瀏覽。會議管理頁面的設(shè)計效果如圖 10 所示。圖 10 會議管理頁面設(shè)計效果會議管理頁面所涉及到的程序代碼如下：% call case2 39。驗證用戶身份，此時調(diào)用inc/ case2if request(del) then 39。判斷是否接收到值call delend iffunction delsql2=delete from huiyi where id=amp。request(del)(sql2) 39。通過execute執(zhí)行sql2語句end function%%set rs=()sql=select * from huiyi order by time desc sql,conn,1,1%a href=?del=%=rs(id)%amp。p=%=requestpage%刪除/a 39。調(diào)用刪除會議功能模塊會議管理頁面的運行結(jié)果如圖 11 所示。圖 11 會議管理頁面運行結(jié)果在會議管理頁面，單擊“修改”超鏈接，進入會議信息修改頁面后，用戶可以對會議的標(biāo)題、內(nèi)容進行修改。只有當(dāng)用戶有修改權(quán)限時，才可以對會議的相關(guān)信息進行修改。會議修改頁面的設(shè)計效果如圖 12 所示。15 / 42圖 12 會議修改頁面的設(shè)計效果修改會議所涉及到的程序代碼如下：%call case2 39。驗證用戶身份此時調(diào)用inc/ case2if request(post)=true then 39。判斷是否接收到表單值call wri 39。通過call語句調(diào)用function過程end if function wriif request(title) and request(content) and (ps(huiyi)=1 or ps(chaoji)=1) then set rs=()sql=select * from huiyi where id=amp。session(id) sql,conn,1,3rs(title)=request(title) 39。接收進行修改的會議標(biāo)題rs(content)=request(content)rs(time)=now() 39。接收當(dāng)前系統(tǒng)日期和時間()else(script language=javascriptalert(39。請把信息填寫完整39。)/script)end if end functionif request(id)= then(對不起，您不是管理員！)end ifset rs1=()sql1=select * from huiyi where id=amp。request(id) sql1,conn,1,1%會議發(fā)布所涉及到的程序代碼如下：%call case2if request(post)=true and (ps(huiyi)=1 or ps(chaoji)=1) then 39。判斷用戶是否有權(quán)限發(fā)布會議call wriend if function wriif request(title) and request(content) then 39。接收的會議標(biāo)題、會議內(nèi)容不允許為空set rs=()sql=select * from huiyi sql,conn,1,3rs(title)=request(title) 39。接收發(fā)布會議的標(biāo)題rs(content)=request(content) 39。接收發(fā)布會議的內(nèi)容rs(name)=session(admin_name)rs(time)=now() 39。獲取當(dāng)前系統(tǒng)日期和時間()else(script language=javascriptalert(39。請把信息填寫完整39。)/script)end if end function% 個人辦公管理模塊設(shè)計個人辦公管理模塊主要包括個人活動登記管理、個人活動管理、個人郵件管理、名片夾管理 4 部分。? 個人活動登記管理模塊個人活動登記管理模塊主要用于添加個人活動記錄。個人活動登記管理頁面的設(shè)計效果如圖 13 所示。17 / 42圖 13 個人活動登記管理頁面的設(shè)計效果個人活動登記管理頁面所涉及的相關(guān)的程序代碼如下：%if request(post)=2 then 39。判斷是否接收到表單的值call wrt1end if function wrt1if request(title)= or request(content)= then(script language=javascriptalert(39。請把內(nèi)容填寫完整！39。)/script)elseset rs=()sql=select * from gerenhuodong sql,conn,1,3rs(title)=request(title) 39。接收個人活動登記標(biāo)題rs(content)=request(content) 39。接收個人活動登記內(nèi)容rs(name)=session(admin_name)rs(time)=now() 39。獲取當(dāng)前系統(tǒng)日期和時間()end if end function%個人活動登記管理頁面的運行結(jié)果如圖 14 所示。圖 14 個人活動登記管理頁面的運行結(jié)果? 個人活動管理模塊個人活動管理模塊主要包括個人活動信息刪除、對提交個人活動信息進行批準(zhǔn)、個人活動信息內(nèi)容的顯示 3 部分。當(dāng)用戶是超級用戶時可以對個人活動信息進行批準(zhǔn)和刪除操作；而普通用戶只能對信息進行修改。個人活動管理頁面的設(shè)計效果如圖 20 所示。圖 15 個人活動管理頁面的設(shè)計效果當(dāng)用戶為超級用戶時可以批準(zhǔn)發(fā)文、刪除發(fā)文。個人活動管理頁面超級用戶時所涉及到的相關(guān)程序代碼如下：%if request(pass) then 39。判斷是否接收到表單的值call gerenend iffunction gerenset rs2=()sql2=select * from gerenhuodong where id=amp。request(id) sql2,conn,1,3rs2(pass)=1rs2(pname)=session(admin_name) 39。接收批準(zhǔn)用戶名end functionif request(del) then 39。接收刪除的值不能為空19 / 42call delend iffunction del sql2=delete from gerenhuodong where id=amp。request(del) 39。刪除指定記錄(sql2)end function%%set rs=()sql=select * from gerenhuodong order by time desc 39。將個人活動信息進行降序排列 sql,conn,1,1%當(dāng)用戶為普通用戶時只可以修改發(fā)文。個人活動管理頁面普通用戶時所涉及到的相關(guān)程序代碼如下：%set rs1=()sql1=select * from gerenhuodong where id=amp。request(id) sql1,conn,1,1session(id)=rs1(id) 39。建立session(id)if request(post)=true then 39。判斷表單是否提交call wriend if function wriif request(title) and request(content) then 39。接收的標(biāo)題、內(nèi)容不允許為空set rs=()sql=select * from gerenhuodong where id=amp。session(id) sql,conn,1,3rs(title)=request(title) 39。接收修改發(fā)文標(biāo)題rs(content)=request(content) 39。接收修改發(fā)文內(nèi)容rs(name)=session(admin_name) 39。接收修改用戶名rs(time)=now() 39。獲取當(dāng)前系統(tǒng)日期和時間 39。關(guān)閉已打開的記錄集() 39。跳轉(zhuǎn)到指定的動態(tài)頁面else (script language=javascriptalert(39。請把信息填寫完整39。)