【正文】 。39。,s_Url=39。amp。s_Urlamp。39。,s_Hidden=amp。s_Hiddenamp。,s_Space=39。amp。getclassspace(s_id) amp。39。,s_ComID=amp。s_ComIDamp。 where s_id=amp。s_idamp。 and s_ComID=amp。s_ComIDamp。end if(sql)(sql)if ck= then ?action=saveamp。ck=1amp。id=amp。s_idamp。amp。sClassid=amp。s_Classidamp。amp。sName=amp。s_Nameamp。amp。sUrl=amp。s_Urlamp。amp。sHidden=amp。s_Hiddenamp。amp。ComID=amp。s_ComID()elsescript language=39。javascript39。alert(39。執(zhí)行成功39。)。=39。articleclass_m39。/scriptend ifend select()case del_Tid=trim(replace(request(id),39。,))山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 32 if not isnumeric(id) then()()end if(delete from ndy_class where s_id=amp。s_idamp。 and s_ComID=amp。s_ComIDamp。)(delete from ndy_class where s_id=amp。s_idamp。 and s_ComID=amp。s_ComIDamp。)script language=39。javascript39。alert(39。刪除成功39。)。=39。Articl?id=amp。s_ComIDamp。39。/scriptcase del% 新聞列表和內(nèi)容添加頁(yè)本頁(yè)的作用是展示所添加的所有類別的新聞,并可按新聞欄目和關(guān)鍵字進(jìn)行模糊搜索,方便用戶及時(shí)找到某條新聞進(jìn)行刪除或修改工作。界面如圖 :圖 新聞列表頁(yè) 部分源代碼及說明:iframe id=editor width=530 height=405 src=editor//iframe這行代碼實(shí)現(xiàn)的是將一個(gè) HTML 編輯器通過 IFRAME 框架嵌套進(jìn)了本頁(yè)面,通過這個(gè) HTML 編輯器 ,實(shí)現(xiàn)了新聞的文字編輯,以及插入圖片等功能,使的新聞的內(nèi)容顯示起來更加美化。iframe name=ad1 frameborder=0 width=100% height=20 scrolling=no src=/iframe山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 33 這行代碼嵌套了一個(gè)無組件圖片上傳的文件,通過該文件可以實(shí)現(xiàn)圖片無組件上傳到服務(wù)器,方便了新聞前臺(tái)圖片展示的需要。而且之所以沒有采用組件上傳的原因是因?yàn)榻M件上傳需要受到服務(wù)器的諸多限制,而且可移植性差,當(dāng)網(wǎng)站需要更換服務(wù)器時(shí),還必須在更換后的服務(wù)器上安裝注冊(cè)相應(yīng)的上傳組件,造成管理的不方便。 select name=sClassid id=sClassid%sqlc=select s_id,s_name,s_space from ndy_class where s_ComID=amp。s_ComIDamp。 and s_hidden=0 order by s_superListstrsc= () sqlc,conn,1,1do while not (option value=39。amp。rsc(s_id)amp。39。amp。mid(rsc(s_space),3)amp。rsc(s_name)amp。/option)loopset rsc=nothing % /select本段代碼的作用是,從數(shù)據(jù)庫(kù)中讀出所有的新聞分類,添加到新聞分類的下拉列表框中,以便添加新聞的時(shí)候選擇相應(yīng)的所屬分類。內(nèi)容添加頁(yè)如圖 : 圖 內(nèi)容添加頁(yè)山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 34 新聞內(nèi)容,添加修改后臺(tái)處理文件源代碼及說明:%@LANGUAGE=VBSCRIPT CODEPAGE=936%!include file= htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title網(wǎng)站管理后臺(tái)/title%sub echo(message)%scriptalert(39。%=message%39。)。=。()。/script% end subsub echo2(message)%% end sub%/headbody%s_ComID=Trim(Replace(Request(id),39。,))if not isnumeric(s_ComID) then s_ComID=0select case s_ComIDcase 1 39。專題s_ComID=1case 2 39。網(wǎng)站內(nèi)容s_ComID=2case elses_ComID=0山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 35 end select dim Title 39。文章標(biāo)題dim Content 39。內(nèi)容dim _ID 39。商家號(hào)39。((ArticleClassID))s_id=Trim(Replace(Request(id),39。,))s_Title = trim((sTitle))s_Content=ContentEncode((content))s_ClassID = Trim((sClassid))s_Hidden = Trim((sHidden))s_Hots = Trim((sHots))s_PicUrl = Lcase(Trim((sPicUrl)))_url = Lcase(Trim((_url)))39。if s_PicUrl then39。if not (Right(s_PicUrl,3)=jpg or Right(s_PicUrl,3)=gif or Right(s_PicUrl,3)=bmp or Right(s_PicUrl,3)=png) then39。(scriptalert(39。您上傳的圖片格式不正確，圖片文件后綴名必須為 .jpg 或者 .gif 或者 .bmp 。39。)。(1)。/scr ipt)39。()39。end if39。end ifs_adder=session(admin)action=Trim(Replace(Request(action),39。,)) 獲取操作標(biāo)志if action=addnew or action=save thenselect case actioncase addnew 如果為添加新聞,則將相應(yīng)內(nèi)容插入數(shù)據(jù)庫(kù)sql = insert into ndy_Article (s_Title,s_Content,s_classid,s_ID,s_adder,s_Hidden,s_Hots,s_PicUrl,_url) values (39。amp。s_Titleamp。39。,39。amp。s_Contentamp。39。,amp。s_ClassIDamp。,amp。s_ComIDamp。,39。amp。s_adderamp。39。,amp。s_Hiddenamp。,amp。s_Hotsamp。,39。amp。s_PicUrlamp。39。,39。amp。_urlamp。39。)case save 如果為修改,則將更新后的內(nèi)容更新到數(shù)據(jù)庫(kù)if s_id= or not isnumeric(s_id) thenecho2(idamp。數(shù)據(jù)不正確！)山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 36 end ifsql = update ndy_Article set s_Classid=amp。s_ClassIDamp。,s_Title=39。amp。s_Titleamp。39。,s_Content=39。amp。s_Contentamp。39。,s_addTime=39。amp。Nowamp。39。,s_Hidden=amp。s_Hiddenamp。,s_Hots=amp。s_Hotsamp。,s_PicUrl=39。amp。s_PicUrlamp。39。,_url=39。amp。_urlamp。39。 where s_id=amp。s_idamp。end select39。((sql))39。()set rst = (sql)echo(操作成功！)elseecho2(數(shù)據(jù)不合法！)end if%%Function ReplaceText(fString,patrn, replStr)Set regEx = New RegExp 39。 建立正則表達(dá)式。 = patrn 39。 設(shè)置模式。 = True 39。 設(shè)置是否區(qū)分大小寫。 = True 39。 設(shè)置全局可用性。 ReplaceText = (fString, replStr) 39。 作替換。End Functionfunction ContentEncode(fString)fString=replace(fString,vbCrlf, )fString=replace(fString,\, )fString=replace(fString,39。, )39。fString=ReplaceText(fString,(.[^]*)(amp。|cookie|window.|Document.|javascript:|js:|vbs:|about:|file:|on(blur|click|change|Exit|error|focus|finish|key|load|mouse)), $1$2$3)fString=ReplaceText(fString,(.[^]*)(onerror|onload|onmouseover), $1$2)fString=ReplaceText(fString,(\/|)(iframe|SCRIPT|form|style|div|object|TEXTAREA), $1$2)ContentEncode=fStringend function山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 37 %/body/html山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 38 4 站點(diǎn)的建立網(wǎng)絡(luò)平臺(tái)與結(jié)構(gòu)如下：服務(wù)器：操作系統(tǒng)為 Windows 2022 Server 或 Windows 2022 Server。工作站：操作系統(tǒng)為 Windows xp。交換機(jī)：10/100Mbps 自適應(yīng)交換機(jī)。 DNS 和 IIS DNS(Domain Name System)域名解析系統(tǒng)DNS 為 Intra 或 Inter 上的計(jì)算機(jī)將名稱(如域名 )“翻譯”為 IP地址(如 )，即域名解析。 Inter 信息服務(wù)它是一種 Web 服務(wù),它可以幫助用戶在 Inter 或 Intra上方便、快捷地發(fā)布信息。 網(wǎng)絡(luò)屬性設(shè)置要使用 DNS 和 IIS，必須為 Windows **** Server 指定靜態(tài)(即固定)的 IP 地址。點(diǎn)擊“控制面板→網(wǎng)絡(luò)和撥號(hào)連接→本地連接→屬性→Inter 協(xié)議(TCP/IP)→屬性” ，在“Inter 協(xié)議(TCP/IP)屬性”框中為網(wǎng)卡指定 IP 地址，然后選擇“使用下面的 IP 地址” ，在“IP 地址”欄輸入 ；“子網(wǎng)掩碼 ”欄輸入 ；在“默認(rèn)網(wǎng)關(guān)”和“首選 DNS服務(wù)器”兩欄均填入 。如果工作站有 22 臺(tái)，IP 地址則可依次指定為 ～， “默認(rèn)網(wǎng)關(guān)”和“首選 DNS 服務(wù)器”兩欄仍填寫 。 DNS 服務(wù)器的設(shè)置在“管理工具”的“DNS 管理” 中，建立一個(gè)域名 .****.，步驟如下：①建立“”區(qū)域：依次選擇“DNS →****(服務(wù)器名)→正向搜索區(qū)域→新建區(qū)域” ，選擇“標(biāo)準(zhǔn)主要區(qū)域” ，在“名稱”處填入“” 。②建立“****”域：右鍵點(diǎn)擊“”選擇“新建域” ，在“鍵入新域名”處輸入“****” 。③建立“”主機(jī)：選擇“****→新建主機(jī)” ，在“名稱”處填入“ ”， “IP山東建筑大學(xué)畢業(yè)設(shè)計(jì)說明書 39 地址”處填“” ，再單擊“添加主機(jī)”即可。④測(cè)試 DNS設(shè)置是否成功：在命令提示符下輸入“ping .****.”，如果成功應(yīng)該和“ping ”的結(jié)果相同。 WWW 服務(wù)器 IIS 的設(shè)置“默認(rèn) Web 站點(diǎn)”一般是用于向所有用戶開放的 WWW 站點(diǎn)，用戶可以通過瀏覽器來瀏覽這個(gè) WWW 站點(diǎn)。點(diǎn)擊“開始菜單→程序→管理工具→Inter 信息服務(wù)” ，進(jìn)入“Inter 信息服務(wù)” 。①進(jìn)入默認(rèn) Web 站點(diǎn)的屬性設(shè)置框 ,進(jìn)行設(shè)置。②設(shè)置“Web 站點(diǎn)” ，在“ IP 地址”欄中填寫 ， “TCP端口”采用默認(rèn)的 80 端口。③設(shè)置“主目錄” ，在“本地路徑”通過“瀏覽”按鈕來選擇網(wǎng)頁(yè)文件所在的目錄，在本文中目錄是“C:\ipub\root” 。④進(jìn)入“文檔”設(shè)置框，勾選“啟用默認(rèn)文檔”項(xiàng)。如果需要，可以將制作的網(wǎng)頁(yè)文件名添加至“默認(rèn)文檔”欄中。當(dāng)然，也可以將制作的網(wǎng)頁(yè)文件復(fù)制到 C:\Ipub\wwwroot 目錄下，并將文件名更名為 ，再根據(jù)需要在“啟用默認(rèn)文檔”中調(diào)整文檔名搜索順序。當(dāng)在瀏覽器