【導(dǎo)讀】我們從學(xué)校的實際情況出發(fā)，經(jīng)過對在線新聞發(fā)布事項的一番考察和分析，在對新聞需求的分析基礎(chǔ)上，確立了新聞發(fā)布系統(tǒng)的具體實現(xiàn)功能。經(jīng)過授權(quán)的用戶可以通過Web瀏覽器，以人機交互式的客戶端程序?qū)崿F(xiàn)對新。聞的發(fā)布、管理、實時的進(jìn)行行為統(tǒng)計和記錄。本系統(tǒng)具有很好的外部接口，能。夠很好的配合站點的其它子系統(tǒng)服務(wù)于新聞發(fā)布。

　　

【正文】 ylesheet href=../css/ type=text/css SCRIPT language=javascript function ConfirmDel() { if(confirm(確定要刪除選中的文章嗎？一旦刪除將不能恢復(fù)！ )) return true。 else return false。 } /SCRIPT /head body table align=center width=760 border=1 cellpadding=4 bordercolor=D4D0C8 bgcolor=004682 tr td height=40 a href=font color=fffff 所 有 新 聞/font/a | % 39。顯示所有大類名 dim sqlBigClass,rsBigClass sqlBigClass=select * from BigClass Set rsBigClass= () sqlBigClass,conn,1,1 if then (還沒有任何欄目，請首先添加欄目。 ) end if do while not % a href=?BigClassName=%=rsBigClass(BigClassName)%font color=fffff%=rsBigClass(BigClassName)%/font/a | % loop set rsBigClass=nothing % /td /tr /table table align=center width=760 border=1 cellpadding=4 bordercolor=D4D0C8 bgcolor=91ADC7 tr td background=../images/ height=30 下屬小類 : % 39。顯示大類所屬的小類名 dim sqlSmallClass,rsSmallClass sqlSmallClass=select * from SmallClass where BigClassName=39。 amp。 BigClassName amp。 39。 Set rsSmallClass= () sqlSmallClass,conn,1,1 if and then (font color=39。fffff39。無小類 /font) end if do while not SName=rsSmallClass(SmallClassName) % a href=?BigClassName=%=BigClassName%amp。SmallClassName=%=rsSmallClass(SmallClassName)%font color=fffff%=rsSmallClass(SmallClassName)%/font/a % loop set rsSmallClass=nothing % /td /tr /table table align=center width=760 border=1 cellpadding=4 bordercolor=D4D0C8 bgcolor=91ADC7 % 39。定義分頁顯示的變量 dim totalcs,Currentpage,totalpages,i 39。根據(jù)提取不同的 BigClassName 和 SmallClassName 來判斷具體的分類顯示 sql=select * from news where id0 if BigClassName then sql=sql amp。 and BigClassName=39。 amp。 BigClassName amp。 39。 if SmallClassName then sql=sql amp。 and SmallClassName=39。 amp。 SmallClassName amp。 39。 end if end if sql=sql amp。 order by id desc Set rs= () sql,conn,1,1 39。統(tǒng)計記錄數(shù) totalcs= % tr td width=300 align=centerstrong文章標(biāo)題 /strong/td td width=80 align=centerstrong所屬大類 /strong/td td width=80 align=centerstrong所屬小類 /strong/td td width=100 align=centerstrong添加時間 /strong/td td width=100 align=centerstrong編輯 /strong/td /tr % if and then % tr td colspan=5 align=center暫無內(nèi)容！ /td /tr % else =13 if trim(request(page)) then currentpage=clng(request(page)) if currentpage then currentpage= end if else currentpage=1 end if if currentpage1 then if (currentpage1)*13totalcs then (currentpage1)*13 dim bookmark bookmark= end if end if if (totalcs mod 13)=0 then totalpages=totalcs\13 else totalpages=totalcs\13+1 end if i=0 do while not and i13 if rs(SmallClassName)= then SmallClassName=無小類 else SmallClassName=rs(SmallClassName) end if % tr td a href=../?NewsId=%=rs(id)%%=rs(title)%/a/td td align=center%=rs(BigClassName)%/td td align=center%=SmallClassName%/td td align=center%=rs(PostTime)%/td td width=90 align=center a href=?id=%=rs(id)%修改 /a a href=?id=%=rs(id)% onclick=return ConfirmDel()。刪除 /a/td /tr % i=i+1 loop end if % /table table align=center width=760 border=0 cellpadding=4 bgcolor=91ADC7 trtd height=20/td/tr tr td colspan=5 align=center img height=14 width=14 align=absMiddle src=../images/ 共有 font color=red[%=totalcs%]/font 條記錄 分 font color=red[%=totalpages%]/font頁 IMG height=11 src=../images/ width=11 align=absMiddle % if CurrentPage2 then font color=39。99996639。首頁 上一頁 /font else a href=?page=1amp。BigClassName=amp。(BigClassName)amp。amp。SmallClassName=amp。(SmallClassName)amp。首頁 /a a href=?page=amp。CurrentPage1amp。amp。BigClassName=amp。(BigClassName)amp。amp。SmallClassName=amp。(SmallClassName)amp。上一頁 /a end if if totalpagescurrentpage1 then font color=39。99996639。下一頁 尾頁 /font else a href=?page=amp。CurrentPage+1amp。amp。BigClassName=amp。(BigClassName)amp。amp。SmallClassName=amp。(SmallClassName) 下一頁 /a a href=?page=amp。totalpagesamp。amp。BigClassName=amp。(BigClassName)amp。amp。SmallClassName=amp。(SmallClassName)amp。尾頁 /a end if % IMG height=11 src=../images/ width=11 align=absMiddle/TD /td /tr trtd height=20/td/tr /table % set rs=nothing % /body /html 友情鏈接管理 管理員進(jìn)入友情鏈接管理界面 .,選擇友情鏈接類別 ,添加友情鏈接 ,在友情鏈接列表中 ,對鏈接進(jìn)行修改和刪除 .運行圖如下 : 其代碼實現(xiàn)如下 : % IF not(Session(UserName)=admin) THEN END IF % !include file= % dim Action,SiteName,SiteUrl,rs Action=trim(Request(Action)) LinkType=trim(request(LinkType)) SiteName=trim(request(SiteName)) SiteUrl=trim(request(SiteUrl)) if Action=Add then Set rs=() Select * From FriendSite Where SiteName=39。 amp。 SiteName amp。 39。 And SiteUrl=39。 amp。 SiteUrl amp。 39。,conn,1,3 if not then % script language=JavaScript alert(已經(jīng)存在此鏈接 ,請輸入其它的！ )。 = 。 /script % else rs(LinkType)=LinkType rs(SiteName)=SiteName rs(SiteUrl)=SiteUrl set rs=Nothing call CloseConn() end if end if % html head title欄目管理 /title meta equiv=ContentType content=text/html。 charset=gb2312 link href=../css/ rel=stylesheet type=text/css script language=JavaScript type=text/JavaScript function checkSite() { if (==) { alert(請先選擇鏈接類別！ )。 ()。 return false。 } if (==) { alert(友情鏈接名稱不能為空！ )。 ()。 return false。 } if (=