【正文】 (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。rs(0)amp。 set rs1=(sql) if then sql=delete from pinglun where 標(biāo)題=39。rs(0)amp。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?？傮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è)計了多個專欄。該網(wǎng)頁現(xiàn)在還沒制作。查詢關(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)頁的流動量，所以為了該模塊的擴展。網(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 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)% table width=650 border=0 cellspacing=0 cellpadding=0 height=50 tr th scope=col width=84 height=50 background=image/ /th th scope=col width=566 %if not then % a href=?id=%=rs(0)%font color=FF0000 size=5%=rs(1)%/font/a %end if% /th /tr tr th scope=col width=566 height=50 colspan=224 %if not then % font color=FF0000 size=2%=left(rs(2),40)%/font %end if% /th /tr /table table width=650 height=175 border=1 bordercolor=ffffff tr height=80 td width=50% bordercolor=CCCCCC% sql=select top 10 編號,標(biāo)