[求助]分页出现问题 - ASP技术论坛

问题点数：0 回复次数：4

[求助]分页出现问题

大侠帮忙看看，我分页哪里错了啊。。我现在人都慌了！谢谢了！

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<div align="center">
<%
rs.pagesize=1
pagecount=rs.pagecount
page=int(request("page"))
if page<0 then page=1
if request("page")="" then page=1
rs.absolutepage=page
%>
<%
dim i
gs_id = request.querystring("id")
if gs_id<>"" then
set rs=conn.execute("SELECT * FROM music where gs_id="&gs_id&" order by hits desc")
%>
<table width="70%" height="130" border="1" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr>
<td width="18%" height="112"><div align="center"><img name="" src="<%=rs("gs_img")%>" width="122" height="111" alt=""></div></td>
<td width="82%"><div align="center"><%=rs("gs_baby")%></div></td>
</tr>
<tr>
<td height="15" colspan="2"><div align="center">
</div></td>
</tr>
</table>
<%
if not rs.eof then
i=0
for a=1 to rs.pagesize
i=i+1
%>
<table width="70%" border="1" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr>
<td><div align="center"><%=rs("musicname")%></div></td>
<td><div align="center"><a href="play.asp?id=<%=rs("id")%>" & <%=rs("map")%> target="_blank">视听</a></div></td>
<td><div align="center"><%=rs("hits")%></div></td>
<td><div align="center"><a href="<%=rs("map")%>"><img src="images/106.gif" width="19" height="20"></a></div></td>
<% if i mod 3 =0 then%>
<%
end if
rs.movenext
if rs.eof then
exit for
end if
next
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</tr>
</table>
</div>
<%for a=1 to pagecount%>
<a href="geshou.asp?<%=rs("id")%> &page=<%=a%>"><%=a%></a>
<%next%>
</body>
</html>

第 2 楼

得分:0

错误提示的是没有找到匹配的rs

不断努力，才能不断的提高，学无止尽！

第 3 楼

得分:0

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/yunding/geshou.asp，行7

不断努力，才能不断的提高，学无止尽！

第 4 楼

得分:0

代码是这样的

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<div align="center">
<%
exec="select * form music"
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
rs.pagesize=1
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page
%>
<%
dim i
gs_id = request.querystring("id")
if gs_id<>"" then
set rs=conn.execute("SELECT * FROM music where gs_id="&gs_id&" order by hits desc")
%>
<%if rs.eof and rs.bof then
response.Write("暂时没有歌曲")
else
%>
<table width="50%" height="130" border="1" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr>
<td width="18%" height="112"><div align="center"><img name="" src="<%=rs("gs_img")%>" width="122" height="111" alt=""></div></td>
<td width="82%"><div align="center"><%=rs("gs_baby")%></div></td>
</tr>
<tr>
<td height="15" colspan="2"><div align="center">
</div></td>
</tr>
</table>
<%
if not rs.eof then
i=0
for i=1 to pagesize
i=i+1
%>
<table width="50%" border="1" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr>
<td width="40%"><div align="center"><%=rs("musicname")%></div></td>
<td width="22%"><div align="center"><a href="play.asp?id=<%=rs("id")%>" & <%=rs("map")%> target="_blank">试听</a></div></td>
<td width="20%"><div align="center"><%=rs("hits")%></div></td>
<td width="18%"><div align="center"><a href="<%=rs("map")%>"><img src="images/106.gif" width="19" height="20"></a></div></td>
<% if i mod 3 =0 then%>
<%
end if
rs.movenext
next
end if
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</tr>
</table>
</div>
<%for i=1 to pagecount%>
<a href="geshou.asp?id=<%=rs("id")%> & page=<%=i%>"><%=i%></a>
<%next%>
</body>
</html>

不断努力，才能不断的提高，学无止尽！

第 5 楼

得分:0

那能告诉我用什么方法做出来吗？

不断努力，才能不断的提高，学无止尽！