【文章內容簡介】 elid).count thencondition=condition+ or end ifnext39。刪除數據庫中的記錄sql = delete * from newnotice where amp。 condition sqlend if%…….%if myyear thenmydate=myyear amp。 amp。 mymonth amp。 amp。 1mydate1=dateadd(m,1,mydate)elsemydate=end ifset conn=opendb(oabusy,conn,accessdsn)set rs=()周公平 ASP 網絡中小企業(yè)內部信息交流系統(tǒng)16on error resume next select count(*) as countss from userinf,conn,1,1usercount=rs(countss)if usercount 500 then set rs=nothing % script language=javascript (對不起，超過了最大使用用戶數，請刪除部分用戶！)。 parent(main).=/。 /script%end ifsql=select * from newnotice order by id descif request(lookfor)=yes then sql=select * from newnotice where noticedate between amp。 amp。 mydate amp。 and amp。 mydate1 amp。 order by id desc sql,conn,1if not and not then=20page=request(page)if not isnumeric(page) thenpage=1end ifpage=clng(page)if 0 thenpage=1end ifif page1 then page=1if page then page=玉林師范學院本科生畢業(yè)生論文（設計）17href==page%……% a href= amp。 href amp。 ?page=1amp。myyear= amp。 (myyear) amp。 amp。mymonth= amp。 (mymonth) amp。 amp。lookfor= amp。 (request(lookfor)) amp。 第一頁/a%/tdtd align=center% a href= amp。 href amp。 ?page= amp。 (page1) amp。 amp。myyear= amp。 (myyear) amp。 amp。mymonth= amp。 (mymonth) amp。 amp。lookfor= amp。 (request(lookfor)) amp。 上一頁/a%/tdtd align=center% a href= amp。 href amp。 ?page= amp。 (page+1) amp。 amp。myyear= amp。 (myyear) amp。 amp。mymonth= amp。 (mymonth) amp。 amp。lookfor= amp。 (request(lookfor)) amp。 下一頁/a%/tdtd align=center% a href= amp。 href amp。 ?page= amp。 amp。 amp。myyear= amp。 (myyear) amp。 amp。mymonth= amp。 (mymonth) amp。 amp。lookfor= amp。 (request(lookfor)) amp。 最后一頁/a%周公平 ASP 網絡中小企業(yè)內部信息交流系統(tǒng)18 瀏覽通告瀏覽通告主要包括歷史通告查詢、通告顯示、發(fā)布日期。設計效果圖如下：圖為 瀏覽通告運行圖瀏覽通告的相關程序代碼如下：%oabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。39。)(/script)end if 內部郵件模塊管理內部郵件模塊主要包含郵件管理（管理員可見） 、發(fā)送郵件（權限可見） 、玉林師范學院本科生畢業(yè)生論文（設計）19已發(fā)送郵件（權限可見） 、已收郵件（所有可見） 。 郵件管理郵件管理主要包括歷史郵件查詢、刪除郵件、郵件標題、附件、發(fā)送者、接受者所在部門、接受者、發(fā)送日期。設計效果圖如下：圖 為郵件管理運行頁面所涉及到的相關程序代碼如下：%On Error Resume Nextoabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。39。)(/script)周公平 ASP 網絡中小企業(yè)內部信息交流系統(tǒng)20end if……% 發(fā)送郵件發(fā)送郵件主要包括增加收件人、郵件標題、郵件類型、郵件內容、附件上傳。設計效果圖如下：圖 為郵件發(fā)送模塊運行圖樣頁面所涉及到的相關程序代碼如下：%39。On Error Resume Nextoabusyname=(oabusyname)oabusyusername=(oabusyusername)玉林師范學院本科生畢業(yè)生論文（設計）21oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。39。)(/script)end ifset conn=opendb(oabusy,conn,accessdsn)set rs=()on error resume next select count(*) as countss from userinf,conn,1,1usercount=rs(countss)if usercount 500 then set rs=nothing % script language=javascript (對不起，超過了最大使用用戶數，請刪除部分用戶！)。 parent(main).=/。 /script%end ifsql=select * from texttype where delflag=false sql,conn,1if or thenset rs= nothing(script language=javascript)周公平 ASP 網絡中小企業(yè)內部信息交流系統(tǒng)22(alert(請先進入公文管理添加公文分類！)。)(/script)end ifsendto=(sendto)title=(hidetitle)content=(hidecontent)%……select name=userdept size=1 onChange==。=。()。%39。打開數據庫讀出部門set rs=()sql=select DISTINCT userdept from userinf sql,conn,1if not and not then firstdept=rs(userdept)if request(userdept) then firstdept=request(userdept)while not and not %option value=%=rs(userdept)%%=selected(firstdept,rs(userdept))%%=keepformat(rs(userdept))%/option%wend%/select……玉林師范學院本科生畢業(yè)生論文（設計）23’設置附件上傳script language=JavaScript function setid() { str=39。br39。 if(!) =1。 if(5){ alert(您最多只能同時上傳 5 個附件！)。 = 5。 setid()。 } else{ for(i=1。i=。i++) str+=39。div align=center附件39。+i+39。:input type=file name=file39。+i+39。 style=width:350/divbrbr39。 =str+39。br39。} } /script…… 已發(fā)郵件發(fā)送郵件主要包括歷史郵件查詢、郵件標題、附件、接受者所在部門、接受者、發(fā)送日期。設計效果圖如下：周公平 ASP 網絡中小企業(yè)內部信息交流系統(tǒng)24圖 為已發(fā)郵件模塊運行頁面所涉及到的相關程序代碼如下：%oabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。39。)(/script)end if39。取得當前日myday=day(now())if request(myday) then myday=cint(request(myday))39。取得當前月mymonth=month(now())if request(mymonth) then mymonth=cint(request(mymonth))39。取得當前年myyear=year(now())玉林師范學院本科生畢業(yè)生論文（設計）25if request(myyear) then myyear=cint(request(myyear))%…… 已收郵件已發(fā)郵件主要包括歷史郵件查詢、郵件標題、附件、發(fā)送者所在部門、發(fā)送者、發(fā)送日期。設計效果圖如下： 圖 為已收郵件模塊運行頁面所涉及到的相關程序代碼如下：%oabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。