UC知道哪位高手能帮忙把下面这段单列显示的代码改为多列显示?
来源：百度知道 编辑：UC知道 时间：2024/07/19 09:46:43
<%
Page_Nexterror=4
Rs_Manage.PageSize = ProductsMax_Class
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
currentpage=clng(currentpage)
End IF
IF totalrec Mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof And Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage =
Page_Nexterror=4
Rs_Manage.PageSize = ProductsMax_Class
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
currentpage=clng(currentpage)
End IF
IF totalrec Mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof And Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage =
1.<TABLE WIDTH="100%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0"><TR>
这段代码写在文件的最上面 </TR></TABLE>写在文件的最下面
2.在rs_manage.MoveNext上面加一句话
if page_count mod 5=0 then ''指每输出5个图片后加一个换行符
response.write("</tr><tr>")
end if