一段ASP循环语句的问题

来源:百度知道 编辑:UC知道 时间:2024/06/30 03:32:40
=================================================
'过程名:ShowAllClass
'作 用:显示所有栏目(栏目导航)
'参 数:无
'=================================================
sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write " 没有任何栏目"
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
'for j=0 to rsBigClass.recordcount
response.write" <table width='100%' bgcolor=#EEEEEE border='0'> <tr> <td>【 <a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'> <b>" & rsBigClass("BigClassName") & " </b> </a>】 </td> </tr> </table> <br>"
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rs

给你个大概框架
response.write("<table>")
while not rs.eof
response.write("<tr>")
for j=1 to 5
response.write("<td>")
if not rs.eof then
response.write(rs("..."))
else
response.write("& nbsp")
end if
response.write("</td>")
rs.movenext
next
response.write("</tr>")
wend
response.write("</table>")

楼上的30美元?