【正文】 27else 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)頁分析專欄是為了這個(gè)新聞系統(tǒng)不止一個(gè)類別的新聞，所以設(shè)計(jì)了多個(gè)專欄。查詢關(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ū)的運(yùn)行結(jié)果 如圖 641 所示2. 網(wǎng)頁分析一般新聞網(wǎng)頁都有友情鏈接 這樣可以拉動網(wǎng)頁的流動量，所以為了該模塊的擴(kuò)展。order by 瀏覽次數(shù) desc 39。程序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)題,類型 from newsdata where 類型=39。 cstr(date()) set rs=(sql)21 i=0do while not and i14% tr bordercolor=FFFFFFtdimg src=image/ //img/tdtd colspan=2font size=2 color=FFFFFF a href=?id=%=rs(0)%font size=2%=rs(1)%(%=rs(2)%)/font/a/font/td/tr % i=i+1 loop %/table! B,下面代碼主要是統(tǒng)計(jì)最新動態(tài)。session(user)amp。now()amp。session(user)amp。(local_addr)amp。trim(session(user))amp。lastamp。39。 cstr(date())set rs2=(sql)sun=rs2(0)if sun 0 thensun=0end if39。amp。,1) (sql)last=1lastIP=(local_addr)lasttime=0end ifsql1=select * from firstlink set rs1=(sql1)do while not 39。,39。,39。游客訪問統(tǒng)計(jì)if session(user)=guest thensession(guestlast)=session(guestlast)+1end ifif not then last=rs(訪問次數(shù))+1lastIP=rs(IP)lasttime=rs(上次訪問時(shí)間)elsesql=insert into firstlink(賬戶,IP,上次訪問時(shí)間,訪問次數(shù)) values(39。amp。../39。amp。amp。39。39。39。39。39。39。../39。amp。amp。39。39。39。39。39。39。 (../)amp。39。 (../)amp。點(diǎn)擊返回首頁 /a/centerelse center該用戶名已經(jīng)被注冊！a href=39。(aihao)amp。(shengfen)amp。,39。,39。,39。,39。,39。set gn=(sql)if thensql=insert into user(用戶名,密碼,昵稱,出生日期 ,性別,所在地址,個(gè)人愛好) values(39。Driver={Microsoft Access Driver (*.mdb)} sqrndim gn,sqlsql=select * from user where 用戶名=39。15所涉及到的程序代碼如下：：《zhuce/》form action= method=post table align=center width=630tr align=centertd hrb用戶注冊 /bhr/td/trtr td align=center用戶名:input type=text name=user/input*/td/trtr td align=center密碼：input type=password name=pwd1/input*/td/trtrtd align=center重復(fù)密碼：input type=password name=pwd2/input*/td/trtrtd align=center昵稱：input type=text name=nichen/input*/td/trtrtd align=center出生日期：input type=text name=shengri/input*/td/trtrtd align=center性別：input type=radio name=xb value=男 checked=checked男/inputinput type=radio name=xb value=女女/input*/td/trtrtd align=center所在地址：國家：select name=dizhioption value=中國 selected=selected中國/option/select省份：select name=shengfenoption value=北京北京/optionoption value=上海上海/optionoption value=貴州selected=selected貴州/optionoption value=廣東廣東/optionoption value=河北河北/optionoption value=山西山西/optionoption value=陜西陜西/optionoption value=安徽安徽/optionoption value=福建福建/optionoption value=江西江西/option/select*/td/trtrtd align=center b個(gè)人愛好：/bbrtextarea rows=10 cols=60 name=aihao/textarea/td/trtr align=centertd 驗(yàn)證碼:%randomize()a=int(Rnd()*10)b=int(Rnd()*10)c=int(Rnd()*10)d=int(Rnd()*10)%img src=../image/%=a%.GIF/img16img src=../image/%=b%.GIF/imgimg src=../image/%=c%.GIF/imgimg src=../image/%=d%.GIF/img/td/trtr align=centertd align=center輸入驗(yàn)證碼 input type=text name=yanzhengma/input*/td/trtr align=centertd align=centerinput type=submit value=提交 name=tijiao input type=reset value=重置/td/trtrtd height=500/td/tr/table/form/body: 《zhuce/》%If (user)= or (pwd1)= or (nichen)= or (shengri)= then center輸入不能為空！a href=39。../39。返回首頁/aelse39。set user1=(sql)if not thensession(userlabel)=2session(user)=unmsession(name)=user1(真實(shí)姓名) 登陸成功br a href=39。 and 密碼=39。/inputa href=../font size=1返回首頁/font/a/td/trtr td height=100 align=center/td/tr/table/form%end if%4，管理員登錄頁面處理：《》%session(userlabel)=0session(user)=guestunm=(user)pwd=(pwd)if unm and pwd then%!include file =14%sql=select * from admin where 用戶=39。返回/a/centerend ifelse eter輸入不能為空br a href=39。pwdamp。unmamp。返回/a/center end ifelse eter輸入不能為空br a href=39。pwdamp。unmamp。font size=2 color=FF0000設(shè)為首頁/font/a/tdtdimg src=./image/ width=15 height=13 / a href=onClick=(,)。 background=image/ tr td width=100 height=60 align=centera hre