【正文】 題,類型 from newsdata where 類型=39。新聞發(fā)表最多者sql=select 標(biāo)題,count(*) from pinglun group by 標(biāo)題 order by count(*) desc set rs=(sql) i=0do while i8 if not then%tr td width=38 height=20 background=image/ align=center bordercolor=FFFFFF%=i+1%/tdtd colspan=2 width=254 font size=2 %=left(rs(0),6)%(%=rs(1)%) /font /td/tr %22 end ifif i8 and then%trtd colspan=3 bordercolor=FFFFFF /td/tr%end if i=i+1 loop % trtd colspan=3 width=150 height=138 align=center !1 table width=292 trtd width=150 height=138 a href= img src=image/ border=0/img /a /tdtd width=140 img src=image/ border=0/img :85868179br img src=image/ border=0/img :85868179br img src=image/ border=0/img :85868179br img src=image/ border=0/img :85868179br img src=image/ border=0/img :85868179br /td /tr/table br a href=mailto: img src=image/ border=0 width=100/img /a !1 /td /tr /table!end /tdtd width=400 b!tablestarttable width=600 border=1 cellspacing=0 cellpadding=0 height=400 23bordercolor=FFFFFF tr bordercolor=ff6403 th scope=col align=left width=320 height=106 !記錄相關(guān)問題 網(wǎng)站說明地方br ul font size=2li相關(guān)說明及新聞/li/fontfont size=2li相關(guān)說明及新聞/li/fontfont size=2li相關(guān)說明及新聞/li/font/ul/thform name=form1 th scope=col height=106 width=342 background=image/ align=right input type=text size=20 height=25 name=cat /input input type=submit value=Go height=25 width=5 /input % sub go_onclick fdsfdsf end sub if request(cat) then ?cat=amp。 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ì)最新動(dòng)態(tài)。(sql)%!/tdtd width=465height=300 background=image/ align=center /tdtd height=300 align=right width=300!img src=image/ border=0/img!table border=0 width=300tr background=image/ bordercolor=FFFFFFtd background=image/ width=18 height=25/tdtd width=180 height=20 background=image/ align=right font color=0 size=224 小時(shí)/font /td td width=136 height=25 background=image/ /td /tr /table table border=1 bordercolor=CCCCCC cellpadding=0 cellspacing=0 width=300 %39。session(user)amp。 where 賬戶=39。now()amp。(sql)sql=update firstlink set 上次訪問時(shí)間=39。session(user)amp。 where 賬戶=39。(local_addr)amp。(sql)sql=update firstlink set IP=39。trim(session(user))amp。 where 賬戶 =39。lastamp。 cstr(date())20set rs2=(sql)yousuns=rs2(0)if yousuns 0 thenyousuns=0end ifif last= thenlast=0end ifsql=update firstlink set 訪問次數(shù)=39。39。amp。 cstr(date())set rs2=(sql)sun=rs2(0)if sun 0 thensun=0end if39。39。amp。統(tǒng)計(jì)站內(nèi)文章sql=select count(*) from newsdata set rs2=(sql)sunnews=rs2(0)if sunnews 0 thensunnews=0end if39。,1) (sql)last=1lastIP=(local_addr)lasttime=0end ifsql1=select * from firstlink set rs1=(sql1)do while not 39。now()amp。,39。(local_addr)amp。,39。session(user)amp。游客訪問統(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。39。amp。3 站內(nèi)的相關(guān)推薦新聞及網(wǎng)站說明 4 主要用于把站內(nèi)所有的最新新聞例舉出來3. 每個(gè)網(wǎng)頁(yè)的代碼：!該頁(yè)面主要顯示用戶的統(tǒng)計(jì)信息和網(wǎng)站的最新動(dòng)態(tài)。../39。39。amp。39。amp。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。../39。39。amp。39。amp。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。 (../)amp。5. 用戶信息修改處理頁(yè)面代碼：《zhuce\》說明：該頁(yè)面最開始的想法是用更新的方法及 recodeset 方法完成，但不知道數(shù)據(jù)庫(kù)的什么原因所以 就 用把原來用戶的記錄刪除掉，然后重新插入，主要 SQL 語(yǔ)句如下。39。amp。 (../)amp。返回重新注冊(cè)！/a/centerend ifend if%174. 用戶信息修改表單主要用于或得用戶信息，然后方便用戶更改相關(guān)信息，該頁(yè)面主要用到了注冊(cè)頁(yè)面的代碼，不同的就是多了個(gè)查詢用戶的相關(guān)信息操作。點(diǎn)擊返回首頁(yè) /a/centerelse center該用戶名已經(jīng)被注冊(cè)！a href=39。) sql center注冊(cè)成功！a href=39。(aihao)amp。,39。(shengfen)amp。(dizhi)amp。,39。(xb)amp。,39。(shengri)amp。,39。(nichen)amp。,39。(pwd1)amp。,39。(user)amp。set gn=(sql)if thensql=insert into user(用戶名,密碼,昵稱,出生日期 ,性別,所在地址,個(gè)人愛好) values(39。 trim((user)) amp。Driver={Microsoft Access Driver (*.mdb)} sqrndim gn,sqlsql=select * from user where 用戶名=39。返回重新填寫!/abrcenterend ifif (user) and (pwd1) and (nichen) and (shengri) thenset n=()sqrn=Dbq=amp。15所涉及到的程序代碼如下：：《zhuce/》form action= method=post table align=center width=630tr align=centertd hrb用戶注冊(cè) /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所在地址：國(guó)家：select name=dizhioption value=中國(guó) selected=selected中國(guó)/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