【正文】 =39。取得當前月mymonth=month(now())if request(mymonth) then mymonth=cint(request(mymonth))39。)(/script)end if39。設計效果圖如下：周公平 ASP 網(wǎng)絡中小企業(yè)內部信息交流系統(tǒng)24圖 為已發(fā)郵件模塊運行頁面所涉及到的相關程序代碼如下：%oabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。br39。 style=width:350/divbrbr39。:input type=file name=file39。div align=center附件39。i=。 setid()。 if(5){ alert(您最多只能同時上傳 5 個附件！)。br39。%39。=。 /script%end ifsql=select * from texttype where delflag=false sql,conn,1if or thenset rs= nothing(script language=javascript)周公平 ASP 網(wǎng)絡中小企業(yè)內部信息交流系統(tǒng)22(alert(請先進入公文管理添加公文分類！)。)(/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 (對不起，超過了最大使用用戶數(shù)，請刪除部分用戶！)。On Error Resume Nextoabusyname=(oabusyname)oabusyusername=(oabusyusername)玉林師范學院本科生畢業(yè)生論文（設計）21oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。)(/script)周公平 ASP 網(wǎng)絡中小企業(yè)內部信息交流系統(tǒng)20end if……% 發(fā)送郵件發(fā)送郵件主要包括增加收件人、郵件標題、郵件類型、郵件內容、附件上傳。設計效果圖如下：圖 為郵件管理運行頁面所涉及到的相關程序代碼如下：%On Error Resume Nextoabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。)(/script)end if 內部郵件模塊管理內部郵件模塊主要包含郵件管理（管理員可見） 、發(fā)送郵件（權限可見） 、玉林師范學院本科生畢業(yè)生論文（設計）19已發(fā)送郵件（權限可見） 、已收郵件（所有可見） 。設計效果圖如下：圖為 瀏覽通告運行圖瀏覽通告的相關程序代碼如下：%oabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then (script language=javascript)(=39。 (request(lookfor)) amp。 amp。mymonth= amp。 (myyear) amp。 amp。 ?page= amp。 下一頁/a%/tdtd align=center% a href= amp。lookfor= amp。 (mymonth) amp。 amp。myyear= amp。 (page+1) amp。 href amp。 (request(lookfor)) amp。 amp。mymonth= amp。 (myyear) amp。 amp。 ?page= amp。 第一頁/a%/tdtd align=center% a href= amp。lookfor= amp。 (mymonth) amp。 amp。myyear= amp。 href amp。 mydate1 amp。 mydate amp。 /script%end ifsql=select * from newnotice order by id descif request(lookfor)=yes then sql=select * from newnotice where noticedate between amp。 1mydate1=dateadd(m,1,mydate)elsemydate=end ifset conn=opendb(oabusy,conn,accessdsn)set rs=()周公平 ASP 網(wǎng)絡中小企業(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 (對不起，超過了最大使用用戶數(shù)，請刪除部分用戶！)。 mymonth amp。 condition sqlend if%…….%if myyear thenmydate=myyear amp。 idnoif countrequest(delid).count thencondition=condition+ or end ifnext39。取得當前月mymonth=month(now())玉林師范學院本科生畢業(yè)生論文（設計）15if request(mymonth) then mymonth=cint(request(mymonth))39。39。}}/script周公平 ASP 網(wǎng)絡中小企業(yè)內部信息交流系統(tǒng)14 管理通告管理通告主要包括通告查詢、瀏覽通告、刪除通告、發(fā)布日期。()。}}function form_check(){var l1=maxlength(,1,50)。 = minl){return true。 sql%brbr玉林師范學院本科生畢業(yè)生論文（設計）13font color=red size=+1新通告發(fā)布成功！/fontbrbr%else%script Language=JavaScript function maxlength(str,minl,maxl){if( = maxl amp。把是否看過通告改為noset conn=opendb(oabusy,conn,accessdsn)sql = update userinf set seenotice=39。 SqlStr(content) amp。 SqlStr(title) amp。 SqlStr(oabusyusername) amp。 通告管理模塊設計通告管理主要包含發(fā)布通告（管理員可見） 、管理通告（管理員可見） 、瀏覽通告（所有可見） 。 sql,conn,1,139。 and forbid=39。 and password= amp。.mdb) file1,file2end ifset fileobject=nothingend subcall checkkqdatabaseusername=(username)password=(password)IniDim=GetIniFileValue()if IniDim(1)= thenapplication(UnitName)=IniDim(2)application(UnitWord)=IniDim(3)(UnitWord)=IniDim(3)(UnitName)=IniDim(2)end ifif username and password thenset conn=opendb(oabusy,conn,accessdsn)set rs=()on error resume nextsql=select * from userinf where username= amp。.mdb)) thenfile1=(kq\backup\)file2=(kq\amp。(REMOTE_ADDR)onlineuser=application(onlineuser)dimsums=ubound(onlineuser)redim preserve onlineuser(dimsums+1)onlineuser(dimsums+1)=userinfoapplication(onlineuser)=onlineuserend sub玉林師范學院本科生畢業(yè)生論文（設計）9sub checkkqdatabase()set fileobject=()if not ((kq/amp。deptamp。nameamp。$)0 thenfindok=1exit forend ifend ifnextfind_online_user=findokend functionsub write_online_user(username,name,dept)dim userinfouserinfo=usernameamp。submit submit【登錄】按鈕class=input value= 登 錄 submit2 reset【取消】按鈕value= 取 消 onClick=()。 onmouseout==39。 onmouseover==39。FFFFFF39。EAEAEA39。表 2 系統(tǒng)登錄頁面所涉及的 HTML 表單元素名稱 類型 含義 重要屬性form1 Form 表單 action=?action=login method=POSTadmin_name text 用戶名onFocus=()。系統(tǒng)登錄頁面的設計效果如圖 5 所示。 網(wǎng)站首頁的運行結果網(wǎng)站首頁的運行結果如圖 3 所示。用戶管理模塊：主要包括超級用戶、普通用戶兩種登錄情況。日常管理模塊：主要包括收文管理、發(fā)文管理、批示管理、會議管理、公共信息管理、個人辦公