sql = "SELECT * FROM News ORDER BY Posttime DESC" Else sql = "SELECT * FROM News WHERE " & sql_where & " ORDER BY Posttime DESC" End If Else If sql_where = "" then sql = "SELECT * FROM News WHERE CateId=" & iflag & " ORDER BY Posttime DESC" Else sql = "SELECT * FROM News WHERE CateId=" & iflag & " And " & sql_where & " ORDER BY Posttime DESC" End If End If rs.Open sql,conn,1,1 '如果记录集rs为空,则显示"目录还没有记录" If rs.EOF Then Response.Write "
目前还没有记录。
" Else '设置分页显示,每页显示20条新闻记录 rs.PageSize = 20 '读取参数page,表示当前的页码,使用CLng将其转换为长整型 Page = CLng(Request("Page")) '处理不合法的页码 If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount '设置当前页码为Page rs.AbsolutePage = Page '循环显示当前页的记录 For i = 1 to rs.PageSize '如果到达记录集结尾,则跳出循环 if rs.EOF then Exit For %>