用文本+ASP打造新闻发布系统(三)新闻列表显示 |
作者:mysoso 发布时间:2005-03-12 来源:开发者俱乐部
|
<% dim myfso,myread set myfso=createobject("scripting.filesystemobject") set myread=myfso.opentextfile(server.mappath("./new_list.asp"),1,0) if myread.atendofstream then Response.Write "目前没有添加新闻" Response.End else dim mytext,listarray mytext=myread.readall listarray=split(mytext,"|") '#######把所有记录分割成一个数组a dim recordcount,pagecount, pagesize, pagenum recordcount=ubound(listarray)'############记录条数 pagesize=2 pagecount=recordcount/pagesize '#######取得页面数 if instr(1,pagecount,".")=null or instr(1,pagecount,".")=0 then pagenum=pagecount else pagenum=int(pagecount)+1 end if dim topage topage=cint(Request.QueryString ("topage")) '########取得要显示的页面 if topage<=0 then topage=1 end if if topage>pagenum then topage=pagenum end if dim i,j,n b=listarray for i=0 to recordcount-1 '########把每一条记录组成一个数组 j=split(listarray(i),",") if ubound(j)=6 then b(i)="<SPAN style='COLOR: #ffbd00; FONT-SIZE: 7px'><li></SPAN><span style='font-size:10pt'><a href='news_view.asp?id=" & j(0) & "' target=blank>" & j(1) & "(图)</a> 点击:" & j(4)&"次 最后发布时间:"&j(5)&"</span>" else b(i)="<SPAN style='COLOR: #ffbd00; FONT-SIZE: 7px'><li></SPAN><span style='font-size:10pt'><a href='news_view.asp?id=" & j(0) & "' target=blank>" & j(1) & "</a> 点击:" & j(4)&"次 最后发布时间:"&j(5)&"</span>" end if next '########把记录反排序存储在新的数组实现按时间反排序 dim c(100) n=0 for i=recordcount to 0 step -1 c(n)=b(i) n=n+1 next dim currentrecord currentrecord=pagesize*(topage-1)+1 '#########显示每一页 for k=1 to pagesize if len(c(currentrecord))=0 then exit for end if Response.Write c(currentrecord)&"<br>" currentrecord=currentrecord+1 next Response.Write "<body bgcolor=#EDF0F5 topmargin=10 marginheight=5 leftmargin=4 marginwidth=0>" for m=1 to pagenum response.write "<span style=font-size:10pt><a href=news_list.asp?topage="&m&">"&m&"</a></span> " next end if %> |
|
|
|
|