我希望数据能够分两行两列显示,现在虽然可以两行两列显示
但是有的数据不能够显示出来
数据库content的值是a,b,c,d,e,f,g,h,i,j,k,l,l,m,n,o,
显示一共有两页
第一页是
a b
d e
第二页是
k l
n o
为什么c,f,g,h,i,j,m没有显示出来呢
望高手指教
代码有点长,麻烦各位了
<html>
<body>
<%
Dim cn,rs
dim ipage,i
Set cn = Server.CreateObject( "ADODB.Connection ")
Set rs = Server.CreateObject( "ADODB.RecordSet ")
cn.Open "Driver={SQL Server};Server=vlg-vlg;Database=page; " & _
"UID=sa;PWD=123456 "
rs.Open "SELECT * FROM a ",cn,1,1
if len(request( "pag "))=0 then
ipage=1
else
ipage=request( "pag ")
end if
rs.absolutepage=ipage
%>
<p> 你输入的留言是
<table>
<%for i=1 to 2
%>
<tr>
<%
for a=1 to 2
response.write " <td> "
if not rs.eof then
response.write rs( "content ")
rs.movenext
End If
%>
<%
response.write " </td> "
%>
<%
next
if not rs.eof then
rs.movenext
end if
next
response.write " </tr> "
%>
</table>
<p>
<% If CInt(iPage) = 1 Then %>
第一页|上一页|
<% Else %>
<a href= "good2_2.asp?pag=1 "> 第一页 </a> |
<a href= "good2_2.asp?pag= <% = iPage - 1 %> "> 上一页 </a> |
<% End If %>
<% If CInt(iPage) = CInt(rs.PageCount) Then %>
下一页| 最后一页
<% Else %>
<a href= "good2_2.asp?pag= <% = iPage + 1 %> "> 下一页 </a> |
<a href= "good2_2.asp?pag= <% = rs.PageCount %> "> 最后一页 </a>
<% End If %>
<%
rs.close
set rs=nothing
cn.close
set cn=nothing
%>
</body>
</html>
------解决方案--------------------
PageSize哪去了？
------解决方案--------------------
注意第一个for循环
这里
next
response.write " </tr> "
改为
response.write " </tr> "
next
------解决方案--------------------
代码有问题吧。看你的意思是要分页的，但你的PageSize呢，怎么没有看到？
------解决方案--------------------
要想大大帮忙，得先回答问题啊，你的pagesize在哪呢