UC知道ASP分页修改请高手帮我弄弄
来源：百度知道 编辑：UC知道 时间：2024/06/08 08:53:00
<%
sql="select top 15 * from news_table where sortid=0 order by id desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "<BR><BR><Center>新闻信息已经没有了，可能已经删除了！<BR><BR>"
rs.close:set rs=nothing
conn.close:set conn=nothing
Response.end
end if
if page>1 then
page = cint(page)
else
page = 1
end if
if not (rs.EOF or rs.bof) then
rs.PageSize = 15
rs.AbsolutePage=page
end if
page_count=0
While (NOT rs.EOF) and (not page_count = rs.PageSize)
%>
sql="select top 15 * from news_table where sortid=0 order by id desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "<BR><BR><Center>新闻信息已经没有了，可能已经删除了！<BR><BR>"
rs.close:set rs=nothing
conn.close:set conn=nothing
Response.end
end if
if page>1 then
page = cint(page)
else
page = 1
end if
if not (rs.EOF or rs.bof) then
rs.PageSize = 15
rs.AbsolutePage=page
end if
page_count=0
While (NOT rs.EOF) and (not page_count = rs.PageSize)
%>
<%
sql="select top 15 * from news_table where sortid=0 order by id desc"
rs.open sql,conn,1,1
if page>1 then
page = cint(page)
else
page = 1
end if
if not rs.EOF then
rs.PageSize = 15
rs.AbsolutePage=page
page_count=0
do While NOT rs.EOF and page_count < rs.PageSize
'循环体 具体数据 读取
page_count=page_count+1
rs.movenext
loop
else
Response.Write "<BR><BR><Center>新闻信息已经没有了，可能已经删除了！<BR><BR>"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
具体的代码我改了一下
按照我的习惯改的
这类写法代码 我写了很多网页 没出过错
弄啥，有啥问题你得写出来啊，hi我一下