分页问题
<table width="100%" border="0" cellspacing="0" cellpadding="0"><TR>
<TD align="left">
<%select case request.QueryString("id")
case 1
aa="带钢"
case 2
aa="线材"
case 3
aa="型材"
case 4
aa="建材"
case 5
aa="管材"
case 6
aa="卷板"
end select
set rs=conn.execute("select * from info_v where ispassed = 1 and KeyWords like '%" & aa & "%' order by istop desc, hit desc, infoid desc")
rs.pagesize=15
if request("page")<>"" then
epage=trim(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
do while not rs.eof %>
<table width="100%" height="17" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><a href="Company.asp?userid=<%=rs("infoid")%>" target="_blank">·<%=rs("title")%></a></td>
</tr>
</table>
<%rs.movenext
loop%>
</TD>
</TR>
<TR>
<TD align="center">
<a href="jingxiao.asp?page=1">首页</a>
<a href="jingxiao?page=<%=epage-1%>">前一页</a> <a href="jingxiao.asp?page=<%=epage+1%>">后一页</a>
<a href="jingxiao.asp?page=<%=rs.pagecount%>">末页</a> 现在是第<%=epage%>页一共有<%=rs.pagecount%>页 共有<%=rs.recordcount%>个企业 </TD>
</TR>
</table>
大家帮忙看看这是个分页代码只要预览就出现“当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。/jingxiao.asp，行 70”也就是提示rs.absolutepage=epage这行出错，会不会跟数据库有关系，用的是SQL！！急！！ 用rs.open
页:
[1]