【正文】 10 編號(hào),標(biāo)題,類(lèi)型 from newsdata where 類(lèi)型=39。程序39。order by 瀏覽次數(shù) desc 39。查詢(xún)關(guān)注的分類(lèi) 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 編號(hào),標(biāo)題,類(lèi)型 from newsdata where 類(lèi)型=39。平面39。order by 瀏覽次數(shù) desc 39。查詢(xún)關(guān)注的分類(lèi) 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 編號(hào),標(biāo)題,類(lèi)型 from newsdata where 類(lèi)型=39。網(wǎng)頁(yè)39。order by 瀏覽次數(shù) desc 39。查詢(xún)關(guān)注的分類(lèi) 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)在還沒(méi)加內(nèi)容所以代碼沒(méi)弄！26 友情鏈接區(qū)1. 友情鏈接區(qū)的運(yùn)行結(jié)果 如圖 641 所示2. 網(wǎng)頁(yè)分析一般新聞網(wǎng)頁(yè)都有友情鏈接 這樣可以拉動(dòng)網(wǎng)頁(yè)的流動(dòng)量，所以為了該模塊的擴(kuò)展。所以該區(qū)域方便以后好更改 所以該區(qū)域用單引入網(wǎng)頁(yè)的方式。該網(wǎng)頁(yè)現(xiàn)在還沒(méi)制作。只是策劃了個(gè)模塊在這里！3. 友情鏈接區(qū)網(wǎng)頁(yè)代碼：hrcenterfont size=2聯(lián)系郵箱: 在線(xiàn) :85868179brCopyright 2022, 版權(quán)所有 Only 憔悴/font/center 總體框架1. 運(yùn)行結(jié)果即為上面的首頁(yè)效果,該網(wǎng)頁(yè)的作用是 把前面零散的網(wǎng)頁(yè)引入到一個(gè)網(wǎng)頁(yè)來(lái)！ 因?yàn)檫@樣可以方便以后代碼的修改?？傮w框架 主要實(shí)現(xiàn)把上面的模塊應(yīng)用在一個(gè)網(wǎng)頁(yè)上 2. 網(wǎng)頁(yè)代碼：% =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. 專(zhuān)欄網(wǎng)頁(yè)制作a. 專(zhuān)欄網(wǎng)頁(yè)分析專(zhuān)欄是為了這個(gè)新聞系統(tǒng)不止一個(gè)類(lèi)別的新聞，所以設(shè)計(jì)了多個(gè)專(zhuān)欄。這里就用的一個(gè)《最新動(dòng)態(tài)》展覽的代碼！然后分頁(yè)顯示。b. 專(zhuān)欄網(wǎng)頁(yè)代碼. !include file=table border=1 bordercolor=4e4332 cellpadding=0 cellspacing=0 background=image\ width=992 align=left tr width=500 !圖片滾動(dòng)新聞 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最新動(dòng)態(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 編號(hào),標(biāo)題 from newsdata order by 發(fā)布時(shí)間 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 編號(hào),標(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 編號(hào) 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)