【正文】 s1(id)%全部新聞/aamp。nbsp。amp。nbsp。%end ifset rs1=() select * from [xwlb] order by id,conn,1,1 do while not if rs1(id)=cint(request(type)) then%amp。nbsp。amp。nbsp。a href=?type=%=rs1(id)%span class=zijuxi%=rs1(title)%/span/aamp。nbsp。amp。nbsp。% else %amp。nbsp。amp。nbsp。a href=?type=%=rs1(id)%%=rs1(title)%/aamp。nbsp。amp。nbsp。%end ifloopset rs1=nothing%2，生成新聞列表并分頁(yè)的源代碼：%const MaxPerPage=10url=?type=amp。request(type)dim totalPut dim CurrentPagedim TotalPagesdim i,jif request(page) then currentPage=cint(request(page))else currentPage=1end ifif request(type) thensql=select id,type,title,time from [xinwen] where type=amp。request(type)amp。 order by id descelsesql=select id,type,title,time from [xinwen] order by id descend ifSet rs= () sql,conn,1,1if not then totalPut= totalPut= if currentpage1 then currentpage=1 end if if (currentpage1)*MaxPerPagetotalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,url else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= showContent showpage totalput,MaxPerPage,url else currentPage=1 showContent showpage totalput,MaxPerPage,url end if end if end ifset rs=nothing sub showContentdim ii=0%table width=500 border=0 cellpadding=0 cellspacing=0% do while not %%set rs1=() select * from [xwlb] where id=amp。rs(type),conn,1,1%trtd height=35 align=left valign=middleimg src=images/ width=11 height=11 /amp。nbsp。amp。nbsp。% if rs(type)=1 then %span class=ziluxi% else %span class=zilanxi% end if %[%=rs1(title)%]/spanamp。nbsp。amp。nbsp。a href=?id=%=rs(id)% target=_blank title=%=rs(title)%%=DoTrimProperly(rs(title),25,0,1,..)%/a/span/tdtd width=5 align=right valign=middle class=zihuixi[/tdtd width=65 align=center valign=middle class=zihuixi%=rs(time)%/tdtd width=5 align=left valign=middle class=zihuixi]/td/tr%set rs1=nothing%%i=i+1if i=MaxPerPage then exit do loop%/tablebr /% end sub %%function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if img src=39。images/39。 width=39。30039。 height=39。3039。br共amp。totalnumberamp。條信息amp。nbsp。每頁(yè)顯示amp。maxperpageamp。條amp。nbsp。目前顯示第span class=39。zihongxi39。amp。CurrentPageamp。/span/amp。namp。頁(yè)amp。nbsp。amp。nbsp。 if CurrentPage2 then else amp。nbsp。amp。nbsp。a href=amp。filenameamp。amp。page=1首頁(yè)/a amp。nbsp。amp。nbsp。a href=amp。filenameamp。amp。page=amp。CurrentPage1amp。上一頁(yè)/a end if if ncurrentpage1 then else amp。nbsp。amp。nbsp。a href=amp。filenameamp。amp。page=amp。(CurrentPage+1)amp。下一頁(yè)/a amp。nbsp。amp。nbsp。a href=amp。filenameamp。amp。page=amp。namp。尾頁(yè)/a end ifend function %/td/tr/table點(diǎn)擊新聞列表中的新聞標(biāo)題，將跳轉(zhuǎn)顯示該條新聞的詳細(xì)內(nèi)容，源代碼如下：%set rs=()sql=select * from [xinwen] where id=amp。request(id) sql,conn,1,1if not then%table width=100% border=0 cellspacing=0 cellpadding=0trtd height=25 align=center valign=middle class=zihangjustrong%=rs(title)%/strong/td/trtrtd height=40 align=center valign=top class=zihangjuspan class=zidanhuixi（發(fā)布日期：%=rs(time)%）/span/td/trtrtd align=left valign=top class=zihangju%=replace(rs(content),../uploadfile,uploadfile) %/td/tr/table%end ifset rs=nothing%3．9 管理員登錄的實(shí)現(xiàn)管理員在后臺(tái)管理所有網(wǎng)站內(nèi)容之前，必須先通過(guò)管理員登錄，登錄成功才可以順利進(jìn)入后臺(tái)。為防止黑客入侵，管理員登錄模塊增加了設(shè)置驗(yàn)證碼、屏蔽非法字符、密碼MD5加密等安全措施。源代碼如下：!include file=inc/!include file=inc/%if session(admin)admin thenaction=request(action)if action=chk thendname=replace(trim(request(dname)),39。,’)dpass=replace(trim(request(dpass)),39。,’)if dname= then script language=javascriptalert(39。帳號(hào)未填！39。)。(39。39。)/scriptend ifif dpass= then script language=javascriptalert(39。密碼未填！39。)。(39。39。)/script end ifif instr(dname,%) or instr(dname,) or instr(dname,?) or instr(dname,|) then script language=javascriptalert(39。非法字符！39。)。(39。39。)/scriptend ifif instr(dpass,%) or instr(dpass,) or instr(dpass,?) or instr(dpass,|) then script language=javascriptalert(39。非法字符！39。)。(39。39。)/script end ifif trim(request(s1))= then script language=javascriptalert(39。驗(yàn)證碼未填！39。)。(39。39。)/script end ifif request(s1)request(s2) then script language=javascriptalert(39。驗(yàn)證碼錯(cuò)誤！39。)。(39。39。)/script end ifdpass=md5(dpass)set rs=()sql=select * from admin where a_name=39。amp。dnameamp。39。 and a_pass=39。amp。dpassamp。39。 sql,conn,1,3if not thensession(admin)=admin=600(admin/)else ()end ifelse%htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312 /title管理登錄/titlelink href=css/ rel=stylesheet type=text/css //headbodytable width=100% height=100% border=0 cellpadding=0 cellspacing=0trtd align=center valign=middletable width=400 border=0 cellpadding=0 cellspacing=0form action= method=post name=form1 id=form1 onSubmit=return loginchk()trtd width=120 height=30 align=right valign=middle帳號(hào)：/tdtd width=10 height=30 align=rightamp。nbsp。/tdtd width=260 height=30 align=left valign=middleinput name=dname type=text class=fminpt id=dname5 style=width:180px maxlength=20 //td/trtrtd width=120 height=30 align=right valign=middle密碼：/tdtd width=10 height=30 align=rightamp。nbsp。