Question

asp代码循环问题。

以下代码只能在一行显示八个，我想显示两行每行四个，该怎么写。

function TopProducts()
dim rs,sql,i,ProductName,SmallPicPath
set rs = server.createobject("adodb.recordset")
sql="select ID,ProductName"&LangData&",SortID,SmallPic,GroupID,Exclusive from NwebCn_Products where ViewFlag"&LangData&" and NewFlag order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='1' cellspacing='1' cellpadding='1'>"
response.write "<tr><td height='20'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
response.write"<tr>"
for i=1 to 8
if rs.eof then exit for
response.write"<td width='25%'>"
if StrLen(rs("ProductName"&LangData))<=20 then
ProductName=rs("ProductName"&LangData)
else
ProductName=StrLeft(rs("ProductName"&LangData),18)
end if
SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
response.write "<table align='center' border='1' cellpadding='1' cellspacing='1' >" &_
"<tr><td align='center' width='142' height='142' style='text-decoration: underline; " &_
"border: 1px solid #CCCCCC;'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>" &_
"<img src='"&SmallPicPath&"' border='0' width='140' height='140' onload='javascript:DrawImage(this,140,140);'></a>" &_
"</td></tr><tr><td height='32'><img src='Images/Arrow_01.gif' width='14' height='11'" &_
" align='absmiddle'> <a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&ProductName&"</a></td></tr></table>"
response.write"</td>"
rs.movenext
next
response.write"</tr>"
end if
response.write "</table>"
rs.close
set rs=nothing
end function

Answer 1

function TopProducts()
dim rs,sql,i,ProductName,SmallPicPath
set rs = server.createobject("adodb.recordset")
sql="select ID,ProductName"&LangData&",SortID,SmallPic,GroupID,Exclusive from NwebCn_Products where ViewFlag"&LangData&" and NewFlag order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='1' cellspacing='1' cellpadding='1'>"
response.write "<tr><td height='20'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
response.write"<tr>"
for i=1 to 4
if rs.eof then exit for
response.write"<td width='25%'>"
if StrLen(rs("ProductName"&LangData))<=20 then
ProductName=rs("ProductName"&LangData)
else
ProductName=StrLeft(rs("ProductName"&LangData),18)
end if
SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
response.write "<table align='center' border='1' cellpadding='1' cellspacing='1' >" &_
"<tr><td align='center' width='142' height='142' style='text-decoration: underline; " &_
"border: 1px solid #CCCCCC;'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>" &_
"<img src='"&SmallPicPath&"' border='0' width='140' height='140' onload='javascript:DrawImage(this,140,140);'></a>" &_
"</td></tr><tr><td height='32'><img src='Images/Arrow_01.gif' width='14' height='11'" &_
" align='absmiddle'> <a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&ProductName&"</a></td></tr></table>"
response.write"</td>"
rs.movenext
next
response.write"</tr>"
end if
response.write "</table>"
rs.close
set rs=nothing
end function

Answer 2

看看如下代码，类似，你会明白

<table width="500" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF" class="productInfo">
<tr>
<td> </td>
</tr>
<tr >
<td>  点击小区名,即可选择. 如果没有请在查询框中输入您要建立的小区,点击建立 </td>
</tr>

<tr>
<td>  查询您所在小区：
<input type="text" name="textfield" />

<input type="submit" name="Submit" value="查询" />

<input type="submit" name="Submit2" value="建立" />
</td>
</tr>
<tr>
<td>全部区域:</td>
</tr>
<%
dim areaRs,areaSql,recordNum,m,n,u
set areaRs = server.createobject("adodb.recordset")
areaSql = "select * from area"
areaRs.open areaSql,conn,1,1
recordNum = areaRs.recordcount
'm = cint(recordNum/5)
'n = recordNum-5*m

%>

<tr>

<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> <%
u = 0
do while not areaRs.eof
u = u+1
%>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <a href="?fqid=<%=areaRs("fqid")%>" ><%=areaRs("fqName")%></a></td>
</tr>
</table>
</td><%
if u mod 4=0 then '如果输出了7个。就输出下一列
response.write "</tr><tr>"
end if
areaRs.movenext
loop %>
</tr>
</table></td>
</tr>
</table>

Answer 3

前面的回答理解错了,你是想要b和c输出一样的结果吗?
-----------------------------------------------------------------
首先,看看你的程序
在循环体里,只是对c的值进行了改变
假设你只是简单的将c改成b,那么程序就变成了
for
i=1
to
100
b=c+i
next
response.write("从一加到100结果等于:"&
b
&"。")
也就是,无论你i怎么循环,c的值并没有改变,下次循环进来还是0,所以最后的输出结果是100