<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 92design
全部新闻 <% set rsa=server.createobject("adodb.recordset") sqla="select * from HN_newscla where MidCls<>'' order by id ASC" rsa.open sqla,conn,1,1 DO WHILE Not rsa.eof %> " target="main"><%=RSa("MidCls")%> <% rsa.movenext LOOP rsa.close set rsa=nothing %>

<% cid=request("id") if cid="" then sql="select * from HN_news where kinds=true order by id desc" else sql="select * from HN_news where cstr(class)='"&cid&"' and kinds=true order by id desc" end if set rsnews=server.createobject("adodb.recordset") rsnews.open sql,conn,1,1 if rsnews.eof then Response.Write "
暂无新闻!
" end if IF Not rsnews.eof Then proCount=rsnews.recordcount rsnews.PageSize=15 '定义显示数目 if not IsEmpty(Request("ToPage")) then ToPage=CInt(Request("ToPage")) if ToPage>rsnews.PageCount then rsnews.AbsolutePage=rsnews.PageCount intCurPage=rsnews.PageCount elseif ToPage<=0 then rsnews.AbsolutePage=1 intCurPage=1 else rsnews.AbsolutePage=ToPage intCurPage=ToPage end if else rsnews.AbsolutePage=1 intCurPage=1 end if intCurPage=CInt(intCurPage) For i = 1 to rsnews.PageSize if rsnews.EOF then Exit For end if %> <% rsnews.MoveNext next %>
·)"> <% = Left(rsnews("title"),30) %> <% if Len(rsnews("title"))>30 then %> … <% end if %> [<%=rsnews("hotclick")%>] <%=rsnews("time")%>
 
总共:<%=rsnews.PageCount%>页, <%=proCount%>条新闻, 当前页: <%=intCurPage%> <% if intCurPage<>1 then %> 首页|上一页| <% end if if intCurPage<>rsnews.PageCount then %> 下一页| 最后页| <% end if%> 跳转:
 
<%end if%> <% rsnews.close set rsnews=nothing %>