UC知道asp产品滚动显示的问题
来源：百度知道 编辑：UC知道 时间：2024/06/30 21:21:03
以下是一行五列滚动的代码,我想改成三行五列,请教高手,怎么改.
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 5 * from Product where Passed=True and Newproduct=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div id="marqueediv1" style="width:100%;height:135px;overflow:hidden;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="10"></td></tr>
<tr>
<%i=1
do while not rs_Product.EOF
fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))
%>
<td align='center'>
<TABLE width=130 border=0 align=center cellPadding=0 cellSpacing=0>
<TR>
<TD width="1
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 5 * from Product where Passed=True and Newproduct=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div id="marqueediv1" style="width:100%;height:135px;overflow:hidden;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="10"></td></tr>
<tr>
<%i=1
do while not rs_Product.EOF
fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))
%>
<td align='center'>
<TABLE width=130 border=0 align=center cellPadding=0 cellSpacing=0>
<TR>
<TD width="1
看你的代码乱乱的.
给个你参考,自己学着用了 TOP 15 是显示总数 mod 5=0 5为列数
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 15 * from 表名 "
rs.open sql,conn,1,1
if not rs.eof then
i=0
do while not rs.eof
i=i+1
%>
<td height="20">内容区</td>
<%
rs.MoveNext
if i mod 5=0 and not rs.eof then response.write "</tr><tr>"
loop
end if
%>
</tr>
</table>