小女子急求大家帮忙~ — 编程爱好者社区

主题：小女子急求大家帮忙~

冰淇淋女孩 [专家分：0] 发布于 2007-04-29 02:02:00

请问各位大哥,如何把下面<table>里面的数据记录按4行和5列循环排列??
此问题困扰小女子多日[em7],请各位GG指教~~`
------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim Rechanpin
Dim Rechanpin_numRows

Set Rechanpin = Server.CreateObject("ADODB.Recordset")
Rechanpin.ActiveConnection = MM_conndata_STRING
Rechanpin.Source = "SELECT * FROM chanpin"
Rechanpin.CursorType = 0
Rechanpin.CursorLocation = 2
Rechanpin.LockType = 1
Rechanpin.Open()

Rechanpin_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>产品展示</title>
</head>

<body>
<table width="376" height="148" border="1" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">[color=FF0000]<table width="200" border="1" cellspacing="0" cellpadding="0">[/color]</td>
  </tr>
</table>
</body>
</html>
<%
Rechanpin.Close()
Set Rechanpin = Nothing
%>
------------------------------------------------

不好意思,上面的代码贴漏了... 下面不补上~`

----------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim Rechanpin
Dim Rechanpin_numRows

Set Rechanpin = Server.CreateObject("ADODB.Recordset")
Rechanpin.ActiveConnection = MM_conndata_STRING
Rechanpin.Source = "SELECT * FROM chanpin"
Rechanpin.CursorType = 0
Rechanpin.CursorLocation = 2
Rechanpin.LockType = 1
Rechanpin.Open()

Rechanpin_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>产品展示</title>
</head>

<body>
<table width="376" height="148" border="1" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top"><table width="200" border="1" cellspacing="0" cellpadding="0">
      <tr>
        <td><%=(Rechanpin.Fields.Item("img").Value)%></td>
      </tr>
      <tr>
        <td><%=(Rechanpin.Fields.Item("name").Value)%></td>
      </tr>
      <tr>
        <td><%=(Rechanpin.Fields.Item("ID").Value)%></td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
<%
Rechanpin.Close()
Set Rechanpin = Nothing
%>

--------------------------------

主题：小女子急求大家帮忙~

回复列表（共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：小女子急求大家帮忙~

回复列表 （共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共1个回复）