图 片 新 闻

<% set rs=server.CreateObject("adodb.recordset") sql="Select top 3 * From jjh_news where news_images<>'无' order by news_time desc" rs.open sql,conn,3,3 if rs.eof and rs.bof then response.Write("暂时还没有图片信息！") end if do while not rs.eof %> <% rs.MoveNext Loop rs.close %> "> " width="137" height="131" border="0"> "> <%if len(rs("news_title"))>10 then response.write left(rs("news_title"),10)&".." else response.write rs("news_title") end if%>

全 部 新 闻

<% if not isempty(request("page")) and request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=15 Set rs=server.CreateObject ("adodb.recordset") sql="select * from jjh_news order by news_id desc" rs.Open sql,conn,1,1 if not rs.EOF then rs.PageSize=maxperpage mpage=rs.PageCount totalput=rs.RecordCount if currentpage<1 then currentpage=1 end if rs.Move (currentpage-1)*maxperpage end if if rs.EOF and rs.bof then response.Write ("暂时没有新闻！") %> <% else k=(totalput-maxperpage*(currentpage-1))+1 do while not rs.EOF k=k-1 ii=ii+1 %> 【<%= rs("news_time") %>】 " target="_blank"><%if len(rs("news_title"))>30 then response.write left(rs("news_title"),30)&".." else response.write rs("news_title") end if%> <% i=i+1 if i>=maxperpage then exit do rs.MoveNext loop end if %>

记录总数:<%=rs.recordcount%> 每页<%=MaxPerPage%>条 <% pageno=currentPage %> <%if cint(pageno)>1 then%> <%end if%> 9  <%if cint(pageno)>1 then%> title="上一页"> <%end if%> 7 <% pp=cint(pageno)-5 if pp<1 then pp=1 end if for pno=pp to mpage p=p+1 if pno*1=cint(pageno)*1 then %>  [<%=pno%>] <%else%>  >[<%=pno%>] <%end if%> <% if p>=11 then exit for next%>   <%if cint(pageno)< mpage then%> title="下一页"> <%end if%> 8  <%if cint(pageno)< mpage then%> <%end if%> :