帮忙调试这段ASP分页代码
<table width="98%" height="334" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="294" valign="top">
<%set rs = server.CreateObject("adodb.recordset")
sql = "select * From class where classname like '公司新闻'"
rs.open sql,conn,1,1
if rs.recordcount > 0 then
set ors = server.CreateObject("adodb.recordset")
sql = "select top 12 * From book where classid like '"&rs("id")&"' and cn_en like 'cn' order by id desc"
ors.open sql,conn,1,1
if ors.recordcount > 0 then
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<%for i = 1 to ors.recordcount%>
<tr>
<td width="4%" height="24"><img src="images/index_47.gif" width="16" height="16"></td>
<td width="81%"><a href="news_read.asp?id=<%=ors("id")%>"title="<%=ors("title")%>" target="_blank"><%=ors("title")%></a></td>
<td width="15%"><div align="right"><font size="2"><%=year(ors("time"))&"-"&month(ors("time"))&"-"&day(ors("time"))%></font></div></td>
</tr>
<%ors.movenext
if ors.eof or ors.bof then exit for
next%>
</table>
<br> <table width="95%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td><div align="center">共有新闻<%=ors.recordcount%>条 <%=ors.pagesize%>条/页 <%=pageno%>/<%=ors.pagecount%>页 <a href="news.asp?page=1">首页</a> <a href="news.asp?page=<%=pageno - 1%>">上页</a>
<a href="news.asp?page=<%=pageno + 1%>">下页</a>
<a href="news.asp?page=<%=ors.pagecount%>">尾页</a>
<%%>
</div></td>
</tr>
</table>
<%end if
end if%></td>
</tr>
</table>
设置每页显示的数=perpages
<%perpages=25
page=request("page")
if page="" then
page=1
end if
keyword=request("keyword")%>
'---------------------------------------------------------------------------
<html>
<head>
<title></title>
</head>
<body>
'---------------------------------------------------------------------------
打开数据库，并且得到正确数据控制指针
<% set rs=server.CreateObject("adodb.recordset")
rs.open "数据库名 order by 某条件",conn,1,1
i=rs.recordcount
for o=1 to perpages*(page-1)
rs.movenext
next
for o=1 to perpages%>
中间需要循环显示的内容
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing%>
'---------------------------------------------------------------------------
设置页面总数 fix()函数为取整，只取整数部分
<%totalpages=fix(i/perpages)
if totalpages<1 then
totalpages=1
else if totalpages=i/perpages then
totalpages=i/perpages
else
totalpages=totalpages+1
end if
end if%>
'---------------------------------------------------------------------------
设置翻页
全部共有<%=i%>条信息 第<%=page%>/<%=totalpages%>页
<%if page>1 then%><a href=某文件?keyword=<%=keyword%>>首页</a><%else%>首页<%end if%>
<%if page>1 then%><a href=某文件?page=<%=page-1%>&keyword=<%=keyword%>>上一页</a><%else%>上一页<%end if%>
<%if not page-totalpages=0 then%><a href=某文件?page=<%=page+1%>&keyword=<%=keyword%>>下一页</a><%else%>下一页<%end if%>
<%if page-totalpages=0 then%>尾页<%else%><a href=某文件?page=<%=totalpages%>&keyword=<%=keyword%>>尾页</a><%end if%>
sql = "select top 12 * From book where classid like '"&rs("id")&"' and cn_en like 'cn' order by id desc"
用like进行模糊查询时,通常与通配符一块出现
like的通配符通常为% _ [] [^]
怎麽看不到楼主的通配符呢
帮忙调试这段ASP分页代码
设置每页显示的数=perpages <%perpages=25 page=request("page")if page="" then page=1 end if keyword=request("keyword")%> '--- '--- 打开数据库，并且得到正确数据控制指针 <% set rs=server.CreateObject("adodb.
ASP分页代码
<a href="no.asp?page=<%=k%>"><%=k%> <%else%> <%=k%> <%end if%> <%next%> <%if nowpage < tatalpages then%> <a href="no.asp?page=<%=nowpage+1%>">下一页 <%else%> 下一页 <%end if%> <%if nowpage<>1 then%> <a href="no.asp?page=<%=1%...
求一段ASP 的分页代码
else，这个时候有上一页，也有下一页。下面看一段显示1到n页，且每一个数字点击以后就出现这个数在代表的页面的代码，很常见哦。<%for i=1 to pagecount%> <a href="list.asp?page=<%=i%>"><%=i%><%next%> for...next是循环从i=1开始，循环一次加1到pagecount为止。最后我的实例里...
求段ASP分页代码
哈哈，这么高的分，我给你谢谢！但你没提供具体的数据。那我就把某些字段按你的意思写吧！首先你要求1行4个，分3行，那证明是有12个数据。其实有多少数据无所谓，最主要还是希望图片能1行4个的一直显示下去吧？那么代码！< set rs=server.Createobject("adodb.recordset")sql=select * from 表名 ...
求一段ASP分页代码。。会写的进。!
<!--#include file="style.asp"--> <!--#include file="top.asp"-->
一个ASP分页问题!代码如下:
set rs=mypage.getrs()> < if rs.recordcount>0 then for i=1 to mypage.pagesize if not rs.eof then title=gotTopic(rs("TITLE"),30)hh=gotTopic(rs("hh"),30)title=replace(title,key,""&key&"")> 这个就是分页的代码呀,还求什么?
求一个asp分页显示得代码!!!
end if '===分页定义结束%> <% '===打开数据库数据表，要以这种方式打开 set rs=server.CreateObject("adodb.recordset")rs.open "select * from news where link=1 and shgg<>1 order by fincount desc",conn,1,1 > <%'===分页类代码开始，需放在数据库数据表打开后 if err.number...
asp内容分页代码
我是这样分页的，确定能用，给你看看，看能否帮上你的忙 < Dim currentpage,page_count,Pcount dim totalrec,endpage currentPage=request("page")if currentpage="" then currentpage=1 else currentpage=clng(currentpage)if err then currentpage=1 err.clear end if end if > 一下是连接...
诚心请教这段ASP分页代码怎么改
< response.write "第" & cstr(page) & "页\/总" & cstr(rs.pagecount)& "页 "response.write "本页" & cstr(i-1) & "条\/总"& cstr(rs.recordcount) & "条 "'计算每一段的开始页 intStarPage=(Section-2) * intSectionSize + 1 '首页 if Section<=1 then response.Write(P...
ASP分页显示代码
"select * from b1 ",conn,1,1 先改成rs.open "select * from b1 ",conn,1,3’需要支持分页显示 打开表后加上下面的一句 rs.pagesize=20 当显示地n页时，加上rs.absolutepage=n while not rs.EOF 该成下面两行 i=0 while not rs.EOF and i<20 rs.MoveNext前面加上一句i=i+1 ...
