asp新手问个问题…如何动态输出表格行于列

admin 发表于 2010-07-29 | 来源：互联网 | 阅读：

VBScript code


  set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
        if not rs.eof then '填充数据到表格
          do while not rs.eof
         'response.Write(sql)
%>
<div style="width:100%;height:100%" >

    <table width="100%" border="0" cellpadding="0" cellspacing="4" bordercolor="#CCCCCC" align="center">
                              <tr>
                                <td><div align="center"><a href='productshows.asp?id=<%response.Write(rs("ID"))%>'  target="_blank"><img src='http://topic.csdn.net/u/20100726/15/xiangyuan/<%response.Write(rs("BigPic"))%>' border="0" width="200" height="156"></a></div></td>
                              </tr>
                          <tr>
                            <td height="40" align="center" valign="middle">
                              <a href='productshows.asp?id=<%response.Write(rs("ID"))%>' target="_blank" class="link1">
                              <font color="#808080"><%response.Write(rs("ProductName"))%></font></a>
                                  </td>
                          </tr>
                          <tr>
                            <td><div align="center"></div></td>
                          </tr>
                        </table>
                        </div>
<%
      rs.movenext
      loop
      rs.close
      set rs=nothing
      end if%>

现在只能输出一行一列,我想输出每行2列,这个只是部分代码,我是分页显示的,每页10条数据,也就是说至少能显示5行2列.首页…..该怎么弄?

1楼

七月 29th, 2010 at 2:50 下午 zqyt 说:

为什么没有人嘛?

2楼

七月 29th, 2010 at 2:50 下午 ccbq2006 说:

VBScript code
<table><tr>
<!–开始循环–>
<%
sql_2k="select * from t_product "
if chaoleiid<>"" then
sql_2k=sql_2k&" where classid in(select id from t_productclass where parentpath like ‘*"&chaoleiid&"*’)"
end if

if smallclassid<>"" then
sql_2k=sql_2k&" where classid ="&smallclassid&" "
end if
sql_2k=sql_2k&" order by id desc"
’sql_2k="select * from t_product"
response.write(sql_2k)
‘response.Write(conn)

dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject("adodb.recordset")

‘response.Write(sql)
‘response.End()
rs.PageSize = 24 ‘这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open sql_2k,conn,0,2,1 ‘这里执行你查询SQL并获得结果记录集

pre = true
last = true
page = trim(Request.QueryString("page"))

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
<%If not rs.EOF then%>
<%
i=1
For intLoop = 1 To rs.PageSize
If Not rs.EOF Then
%>
<td><table align="center" bgcolor="#cccccc" border="0" cellpadding="6" cellspacing="1">
<tbody>
<tr>
<td bgcolor="#aaaaaa">
<table align="center" bgcolor="#dddddd" border="0" cellpadding="3" cellspacing="1">
<tbody>
<tr>
<td>
<a href=""> <img src="uploadfile/product/<%=rs("pic")%>" border="0" height="96" width="120"></a>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr><td align="center" bgcolor="#666666" height="5"><a
href="http://www.elicocoshop.com/product_info.asp?id=61492"><b><%=rs("title")%></b></a><br><font
color="#ff0000">$ <%=rs("key")%></font>
</td> </tr>
</tbody></table>
</td>
<%
IF I MOD 4=0 THEN
RESPONSE.Write "</TR><TR>"
END IF
I=I+1

rs.MoveNext
End If
Next
else
response.Write "<div align=center>暂无产品!</div>"

%>
<%End if%>
<!–循环结束–> </tr></table>

3楼

七月 29th, 2010 at 2:50 下午 sam950 说:

HTML code
<table>
<%
do while not rs.eof
%>
<tr><td>
<%=rs!ProductName%>
</td></tr>
<%
rs.movenext
loop
%>
</table>

4楼

七月 29th, 2010 at 2:50 下午 rweinin 说:

如果输入rs的所有行，列的话得先行循环，行循环内部列循环！