【正文】 10 編號,標(biāo)題,類型 from newsdata where 類型=39。程序39。order by 瀏覽次數(shù) desc 39。查詢關(guān)注的分類 set rs=(sql)%%i=1do while not %a href=?id=%=rs(0)%font color=0 size=1◆%=left(rs(1),9)%/font/a font color=FF0000 size=1%=(rs(2))%/font %if i=2 then bri=0end ifi=i+1loop%/td /tr tr height=8025 td width=50% bordercolor=CCCCCC% sql=select top 10 編號,標(biāo)題,類型 from newsdata where 類型=39。平面39。order by 瀏覽次數(shù) desc 39。查詢關(guān)注的分類 set rs=(sql)%%i=0do while not % a href=?id=%=rs(0)%font color=0 size=1◆%=left(rs(1),9)%/font/a font color=FF0000 size=1%=(rs(2))%/font %if i=2 then bri=0end ifi=i+1loop%/td td width=50% bordercolor=CCCCCC% sql=select top 10 編號,標(biāo)題,類型 from newsdata where 類型=39。網(wǎng)頁39。order by 瀏覽次數(shù) desc 39。查詢關(guān)注的分類 set rs=(sql)%%i=1do while not % a href=?id=%=rs(0)%font color=0 size=1◆%=left(rs(1),9)%/font/a font color=FF0000 size=1%=(rs(2))%/font %if i=2 then bri=0end ifi=i+1loop%/td /tr /table !@end /td /tr/table!@end /td/tr/table! 現(xiàn)在還沒加內(nèi)容所以代碼沒弄！26 友情鏈接區(qū)1. 友情鏈接區(qū)的運行結(jié)果 如圖 641 所示2. 網(wǎng)頁分析一般新聞網(wǎng)頁都有友情鏈接 這樣可以拉動網(wǎng)頁的流動量，所以為了該模塊的擴(kuò)展。所以該區(qū)域方便以后好更改 所以該區(qū)域用單引入網(wǎng)頁的方式。該網(wǎng)頁現(xiàn)在還沒制作。只是策劃了個模塊在這里！3. 友情鏈接區(qū)網(wǎng)頁代碼：hrcenterfont size=2聯(lián)系郵箱: 在線 :85868179brCopyright 2022, 版權(quán)所有 Only 憔悴/font/center 總體框架1. 運行結(jié)果即為上面的首頁效果,該網(wǎng)頁的作用是 把前面零散的網(wǎng)頁引入到一個網(wǎng)頁來！ 因為這樣可以方便以后代碼的修改?？傮w框架 主要實現(xiàn)把上面的模塊應(yīng)用在一個網(wǎng)頁上 2. 網(wǎng)頁代碼：% =true%body link=0 vlink=0 !include file=table width=950 border=0 cellspacing=0 cellpadding=0 align=center bgcolor=FFFFFF tr td !include file=/td /tr % if (page)= or (page)=1 thenpagenum1=127else pagenum1=(page)end if select case pagenum1 case 0:case 1:% tr td width=950 !include file= /td /tr tr td width=950 !include file=/td /tr tr td width=950 !include file=/td /tr trtd !include file=/td/tr %case 2:% tr td width=950 align=center!include file= /td /tr %case 6:% tr td width=950 align=center!include file= /td /tr %case 9:% tr td width=950 align=center!include file=zhuce/ /td /tr %case 10:% tr td width=950 align=center!include file= /td /tr %end select% trtd !include file=/td28/tr/table/body3. 專欄網(wǎng)頁制作a. 專欄網(wǎng)頁分析專欄是為了這個新聞系統(tǒng)不止一個類別的新聞，所以設(shè)計了多個專欄。這里就用的一個《最新動態(tài)》展覽的代碼！然后分頁顯示。b. 專欄網(wǎng)頁代碼. !include file=table border=1 bordercolor=4e4332 cellpadding=0 cellspacing=0 background=image\ width=992 align=left tr width=500 !圖片滾動新聞 td height=50 colspan=2 background=image\ marquee a href=img src=image\ border=0/a/imga href=img src=image\ border=0/a/imga href=img src=image\ border=0/a/img/marquee /td ! /tr tr align=top ! td width=394 height=200 align=center bordercolor=0embed src=swf\ allowfullscreen=true wmode=opaque width=250 height=200/embed /td ! td width=592 bordercolor=4e4332 bgcolor=ffffff table tr td align=leftheight=10 background=image\ font color=FFFFFF最新動態(tài)/font /td td width=30background=image\ a href=/a /td /tr tr height= td align=leftheight=290 colspan=2 % sql=select top 10 編號,標(biāo)題 from newsdata order by 發(fā)布時間 desc set rs=(sql) i=0 do while not and i10 % lia href=?id=%=trim(rs(0))%29 font size=1%=rs(1)%/font/a/li % i=i+1 loop% /td /tr tr height=1 td align=leftheight=1 bgcolor=CCCCCC/td /tr /table /td ! /trtrtd colspan=2background=image\font color=ffffff推薦/font /td/tr tr ! td align=left bordercolor=CCCCCC bgcolor=ffffff % sql=select top 30 編號,標(biāo)題,瀏覽次數(shù) from newsdata order by 瀏覽次數(shù) desc set rs=(sql) i=1 do while not and i10 % a href=?id=%=rs(0)%.font size=1%=rs(1)% %=rs(2)%/font/abr % i=i+1 loop % ! /td td align=left bordercolor=CCCCCCbgcolor=ffffff % i=1 do while not and i10 % a href=?id=%=rs(0)%.font size=1%=rs(1)% %=rs(2)%/font/abr % i=i+1 loop %! 30 /td /tr trtd colspan=2background=image\font color=ffffff最有影響力的文章/font /td/tr tr ! td align=left bordercolor=CCCCCC bgcolor=ffffff % sql=select 標(biāo)題,count(*) from pinglun group by 標(biāo)題 order by count(*) desc set rs=(sql) i=1 do while not and i10 sql=select 編號 from newsdata where 標(biāo)題=39。amp。rs(0)amp。39。 set rs1=(sql) if then sql=delete from pinglun where 標(biāo)題=39。amp。rs(0)amp。39。 (sql) end if if not then % a href=?id=%=rs1(0)%font size=2%=rs(0)% (%=rs(1)%)/font/abr % i=i+1 end if loop 39。 session(name)