Question

asp数据读书自动换行分页

<%
set rs=server.createobject("adodb.recordset")
sql="select * from [WJ_user] where WJ_comein>1 and WJ_validate=1 order by WJ_userid "
rs.open sql,conn,1
rs.pagesize=5
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>

<%
for i=1 to rs.pagesize
%>
<%
if rs.bof or rs.eof then exit for
%>

<table width="200" height="200" border="0" align="left" cellpadding="0" cellspacing="0">

<%if rs(6).value="no" then%>
<tr>

<td height="200" width="196" align="center" ><a href="xshi.asp?id=<%=rs(0).value%>" target="_blank"><%=rs(3).value%><br><%=rs(5).value%></font></a></td>
<td height="200" width="4">　</td>
</tr>
<%else%>
<tr>
<td height="200" width="200" align="center" ><a href="xshi.asp?id=<%=rs(0).value%>" target="_blank"><img src="<%=rs(6).value%>" width="200" height="196" alt="<%=rs(5).value%>【点入】<%=rs(12).value%>【点出】<%=rs(13).value%>" border="0"></a></td>
<td height="200" width="4">　</td>
</tr>
<% end if %>

</table>

<%
rs.movenext()
next

%>
<tr>
<td height="22" valign="top" >
<p align="center">
<font face="方正姚体"><b>
<a href="">首页</a>
<a href="index1.asp?page=<%=epage-1%>">前一页</a>
<a href="index1.asp?page=<%=epage+1%>">后一页</a>
<a href="index1.asp?page=<%=rs.pagecount%>">末页</a> 现在是<font color="#FF9900">第<%=epage%>页</font>一共<%=rs.pagecount%>页</b></font></p>
</table>
<%
conn.close()
%>

Answer 1

有什么问题?

追问

不能换行显示

追答

你这好象是200px相素见方的显示
是文字不换行么?

追问

现在只是分页显示，不能换行并分页

追答

是一排显示3个么?

追问

是的，前面的数据pagesize=5可以修改的，但是要求能换行

追答

" target="_blank">

" target="_blank">" width="200" height="196" alt="【点入】【点出】" border="0">
"
end if
rs.movenext()
i=i+1
next
%>

追问

Microsoft VBScript 编译器错误 '800A040F'
无效的 'exit' 语句

追答

以上代码前要加上