求救：请各位告诉我怎么在ASP网页上自动换行？

2024-12-29 05:11:00

推荐回答（3个）

回答1：

帮你做了！
代码如下:

显示图片

<%
exec="select * from image"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

<%
rs.PageSize=21
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
rs.
%>

<%
if i mod 6 then response.Write ""
rs.movenext
next
%>

所有图片

" />

<%if page=1 and not page=pagecount then%>
第<%=page%>页
<%for i=1 to pagecount%>
<%=i%>
<%next%>
下页
<%elseif page=pagecount and not page=1 then%>
第<%=page%>页
<%for i=1 to pagecount%>
<%=i%>
<%next%>
上页
<%elseif page<1 then%>没有任何记录！
<%elseif page>pagecount then%>没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
第<%=page%>页
<%for i=1 to pagecount%>
<%=i%>
<%next%>
上页
下页
<%end if%>

不成功在帮你改！
给我留言吧！

回答2：

显示图片

<%
exec="select * from image"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

<%
rs.PageSize=21
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page

%>

所有图片

<%
t=1
for i=1 to rs.PageSize %>

<%if t mod 6=0 then%><%end if%>
<%
t=t+1
rs.movenext
if rs.eof then exit for
next
%>

" />

回答3：

试试这个
<%
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
rs.
%>
" />
<%
if i mod 6 = 0 then response.write ""
rs.movenext
next
%>
最后一行可能不足6个，如果输入数据的地方是带色彩的背景，你可以给表格加个颜色