UC知道asp源代码修改
来源：百度知道 编辑：UC知道 时间：2024/09/21 11:05:47
Sub ProductsClass(byval C,byval TD,CSS)
set rs=server.CreateObject("adodb.recordset")
sql="select ClassID,ClassName,ClassUrl,ClassPic,ClassStyle from Easyes_ProductsClass where ChannelID=" & C &" order by OrderID"
rs.open sql,conn,1,1
n=0
nn=rs.recordcount
response.write "<table width=""100%"">"&chr(13)
response.write "<tr>"&chr(13)
do while not rs.eof
n=n+1
response.write "<td Class="""&CSS&""">"
Response.Write "" & rs("ClassPic") & "<a Class="""&rs("ClassStyle")&""" href=""" & rs("ClassUrl") & "?C=" & rs("ClassID") & """>" & rs("ClassName") & "</a>"
response.write "</td>"&chr(13)
if n mod TD<>0 then response.
set rs=server.CreateObject("adodb.recordset")
sql="select ClassID,ClassName,ClassUrl,ClassPic,ClassStyle from Easyes_ProductsClass where ChannelID=" & C &" order by OrderID"
rs.open sql,conn,1,1
n=0
nn=rs.recordcount
response.write "<table width=""100%"">"&chr(13)
response.write "<tr>"&chr(13)
do while not rs.eof
n=n+1
response.write "<td Class="""&CSS&""">"
Response.Write "" & rs("ClassPic") & "<a Class="""&rs("ClassStyle")&""" href=""" & rs("ClassUrl") & "?C=" & rs("ClassID") & """>" & rs("ClassName") & "</a>"
response.write "</td>"&chr(13)
if n mod TD<>0 then response.
每页只显示九个，那岂不是还得做分页？
如果不需要分页的话，能否改成嵌套的两层for循环呢？外层循环输出tr，内层循环输出三个td并读取和移动rs。如果判断rs.eof了，就退出循环。