【導(dǎo)讀】道，它在人們生活的各個方面發(fā)揮著重要的作用。Inter上發(fā)布信息主要是通過網(wǎng)站。本文將系統(tǒng)的介紹**大學(xué)網(wǎng)站后臺管理系統(tǒng)--部門網(wǎng)站管理模塊開發(fā)。計及網(wǎng)站的實(shí)現(xiàn)進(jìn)行了詳細(xì)的說明。本文的主要內(nèi)容主要包括HTML，DREAMWEAVER. MX，ASP，SQL語言的基本概念及高級應(yīng)用，ASP與數(shù)據(jù)庫的連接。設(shè)計的，具有一定的技術(shù)性。

　　

【正文】 then sql=select * from Dept else sql=select * from Dept where Dept=39。 + session(Dept) + 39。 end if sql,1,2 if 0 then total=1 28 do myp=getValue((Head_Path)) if myp= then myp=a href=39。?dept= + getValue((Dept)) + 39。 style=39。textdecoration:none39。新增圖片 /a else myp=a href=39。\ + myp + 39。 style=39。textdecoration:none39。查看 /a a href=39。?dept= + getValue((Dept)) + 39。 style=39。textdecoration:none39。修改 /a end if tr td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + cstr(total) + /font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + getValue((Dept)) + /font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + getValue((Full_Name)) + /font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。+myp+/font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。a href=39。?dept=+ (dept) + 39。img title=39。修改欄目信息 39。 border=39。039。 src=39。Images/39。 width=39。1639。 height=39。1639。/a/font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。a href=39。39。img title=39。新增部門信息 39。 border=39。039。 src=39。Images/39。 width=39。1639。 height=39。1639。/font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。a href=39。?dept=+ (dept) + 39。img title=39。修改部門信息 39。 border=39。039。 src=39。Images/39。 width=39。1639。 height=39。1639。/font/td total=total+1 /tr if then exit do loop end if gbTotal=cstr() % 部門網(wǎng)站 頭部圖片修改 子 模塊 在該界面中，你可以從本地計算機(jī)上選擇要作為部門網(wǎng)站頭部圖片的文件，然后點(diǎn)擊”上傳文件”按鈕，即可實(shí)現(xiàn)頭部圖片的上傳。上傳完成后，可以通過上圖中的”查看”按鈕來查看當(dāng)前的頭部圖片 ， 部門網(wǎng)站頭部圖片系修改界面 如圖 48 所示： 29 圖 48頭部圖片修改頁面 關(guān)鍵代碼 如下： QDept=request(dept) script language=vbscript sub mygo() =?dept=%=QDept% end sub /script 在 進(jìn)行處理 ，關(guān)鍵代碼 如下 ： % Dim File_Title,File_Kind,ID QDept=request(dept) const upload_type=0 39。上傳方法： 0=無懼無組件上傳類， 1=FSO上傳 2=lyfupload， 3=aspupload， 4=chinaaspupload dim upload,file,formName,SavePath,filename,fileExt dim upNum dim EnableUpload dim Forumupload dim ranNum dim uploadfiletype dim msg,founderr msg= founderr=false EnableUpload=false SavePath =up 39。存放上傳文件的目錄 if right(SavePath,1)/ then SavePath=SavePathamp。/ 39。在目錄后加 (/) select case upload_type case 0 call upload_0() 39。使用化境無組件上傳類 case else 39。 本系統(tǒng)未開放插件功能 39。 30 end select sub upload_0() 39。使用化境無組件上傳類 set upload=new upload_file 39。建立上傳對象 for each formName in 39。列出所有上傳了的文件 set file=(formName) 39。生成一個文件對象 if 100 then msg=請先選擇你要上傳的文件！ founderr=true end if if (MaxFileSize*1024) then msg=文件大小超過了限制，最大只能上傳 amp。 CStr(MaxFileSize) amp。 K的文件！ founderr=true end if fileExt=lcase() Forumupload=split(UpFileType,|) for i=0 to ubound(Forumupload) if fileEXT=trim(Forumupload(i)) then EnableUpload=true exit for end if next if fileEXT=asp or fileEXT=asa or fileEXT=aspx then EnableUpload=false end if if EnableUpload=false then msg=這種文件類型不允許上傳！ \n\n只允許上傳這幾種文件類型： amp。 UpFileType founderr=true end if strJS=SCRIPT language=javascript amp。 vbcrlf if founderrtrue then randomize ranNum=int(900*rnd)+100 filename=SavePathamp。year(now)amp。month(now)amp。day(now)amp。hour(now)amp。minute(now)amp。second(now)amp。ranNumamp。.amp。fileExt (FileName) 39。保存文件 msg=上 傳文件成功！ aveFile=do/+FileName savefile strSQL=update Dept set Head_Path=39。 + SaveFile + 39。 where dept=39。 + QDept + 39。 =strSQL end if set file=nothing next 31 set upload=nothing end sub % 部門信息修改 子 模塊 在 部門信息修改模塊中你可以設(shè)置本部門的相關(guān)信息，其中網(wǎng)站底部聯(lián)系方式應(yīng)正確設(shè)置，本部分內(nèi)容將出現(xiàn)在部門網(wǎng)站每一網(wǎng)頁的最下面。設(shè)置完成后，點(diǎn)”確定”按鈕即可實(shí)現(xiàn)部門基本信息的更新。部門信息修改的界面如圖 49 所示 ： 圖 49 部門信息修改頁面 的關(guān)鍵 代碼如下： % if request(isSubmit)=1 then sql=select top 1 * from dept where Dept=39。+ request(Dept) + 39。 sql,1,2 if 0 then (Eng_Name)=request(Eng_Name) (Web_Contact)=request(Web_Contact) (Dept_Intro)=request(Dept_Intro) 39。部門簡介 (Full_Name)=request(Full_Name) (Web_Title)=request(Web_Title) (HStyle)=request(HStyle) end if 32 end if % % sql=select * from Dept where Dept=39。 + request(dept) + 39。 sql,1,2 % script language=vbscript sub mygo() =1 end sub /script script language=javascript function mydo3() { var obj = new Object()。 =lxy。 var a=(?ul=Logo_Pic,obj,dialogWidth=1000px。dialogHeight=400px)。 if( a!=0) { =Logo_Pic\\+a。 } } function mydo4() { var obj = new Object()。 =lxy。 var a=(,obj,dialogWidth=1000px。dialogHeight=600px)。 } /script 欄目管理 子 模塊 對于一個部門網(wǎng)站，首先一步就是設(shè)置本部門網(wǎng)站具有哪些欄目。在欄目管理界面中，你可以實(shí)現(xiàn)部門欄目的新增，修改，刪除，同時還可以為某一欄目設(shè)置子欄目。對于一個欄目，必須為其設(shè)置正確的各項(xiàng)值，才能保證本欄目在本部門網(wǎng)站中的正確顯示，注意： 主頁顯示，菜單次序，欄目次序 的問題。 部門欄目管理的界面如圖 410 所示： 33 圖 410欄目管理頁面 關(guān)鍵代碼如下： % sql=select * from Dept_Items where Dept=39。 + request(dept) + 39。 order by Menu_Order desc sql,1,2 if 0 then total=1 do 39。set rs1=() 39。=3 39。sql=select Category from Dept_Items_Datas where Dept=39。 + request(dept) + 39。 and Category=39。 + (Category) + 39。39。 sql,1,2 tr td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + cstr(total) + /font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + getValue((Dept)) + /font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + getValue((Category)) + /font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + getValue((inhomepage)) + /font/td td height=39。2539。 align=39。center39。 bgcolor=39。Ffffff39。 font size=39。239。 + getValue((Menu_Order)) + /font/td td height=39。2539。 align=39。