就是行和列都可以调节的那种
帮帮忙了，谢谢。。。

你先用dw画好样子 再把它作为循环体去循环就行了

，我还是改不了。。。
不过谢谢了

自己要想下代码应该加在哪,想想想

我改了，你再帮我看一下到底循环语句要加到哪里？？
怎么加，我一加上就提示

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/index.asp，行 192

end if
^

<%
Set Rs = server.createobject("adodb.recordset")
Rs.source = "SELECT * FROM Products where LPutout=true ORDER BY id DESC"
Rs.open Rs.source,conn,1,1%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" class="Index-Center4">
<%if Rs.BOF then%>
<tr><td align="center">暂无产品信息!</td></tr>
<%else%>
<%i=1 %><tr><% Do While Not rs.EOF%>
<td width="165">
<% '=========
set RsTrue = server.createobject("adodb.recordset")
RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
GroupLevel=RsTrue("GroupLevel")
RsTrue.Close
set RsTrue=nothing
if Session("GroupLevel")="" then Session("GroupLevel")=0
LPattern=Rs("LPattern")
Select Case Rs("Exclusive")
Case "<"
if Session("GroupLevel") < GroupLevel then
LPattern="Images/NoRight.gif"
end if
Case "="
if Session("GroupLevel") <> GroupLevel then
LPattern="Images/NoRight.gif"
end if
End Select
'=========%>
<% LName=Rs("LName")
if len(LName)>10 then LName=left(LName,10)&"…" %>
<table align=center border='0' cellpadding='0' cellspacing='5'><tr><td align='center' width='165' height='165' style='text-decoration: underline; border: 1px solid #CCCCCC;'><a href='ProductsView.asp?id="<%Rs("id")%>"' target='_blank'><img src="<%rs("LPattern")%>" border=0 width=140 height=140 onload=javascript:DrawImage(this);></a></td></tr><tr><td height=28><img src=Images/Arrow-Index-Products.gif width=14 height=12 align=absmiddle>&nbsp;<a href='ProductsView.asp?id="<%Rs("id")%>"' target='_blank'><%=rs("LName")%></a></td></tr></table>
</td><%if i mod 3 <>0 then%>
<%end if%>
<% if i mod 3 =0 then%></tr>
<tr>
<%end if%>
<%
rs.MoveNext
i=i+1
Loop
rs.close
set Rs=nothing
%>
</tr></table>

[此贴子已经被作者于2006-6-13 12:44:17编辑过]

你把结构写清楚就容易找到问题了
例如
if 1 then
if 2 then
for e
next
end if
else
23
end if

谢谢斑竹~~~~~~~~~~~
我弄好了
已经差不多了


<%
Set Rs = server.createobject("adodb.recordset")
Rs.source = "SELECT top 12 * FROM Products where LPutout=true ORDER BY id DESC"
Rs.open Rs.source,conn,1,1%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" class="Index-Center4">
<%if Rs.BOF then%>
<tr><td align="center">暂无产品信息!</td></tr>
<%else%>
<%i=1 %><tr><% Do While Not rs.EOF%>
<td width="165">
<% '=========
set RsTrue = server.createobject("adodb.recordset")
RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
GroupLevel=RsTrue("GroupLevel")
RsTrue.Close
set RsTrue=nothing
if Session("GroupLevel")="" then Session("GroupLevel")=0
LPattern=Rs("LPattern")
Select Case Rs("Exclusive")
Case "<"
if Session("GroupLevel") < GroupLevel then
LPattern="Images/NoRight.gif"
end if
Case "="
if Session("GroupLevel") <> GroupLevel then
LPattern="Images/NoRight.gif"
end if
End Select
'=========%>
<% LName=Rs("LName")
if len(LName)>10 then LName=left(LName,10)&"…" %>
<table align=center border='0' cellpadding='0' cellspacing='5'><tr><td align='center' width='165' height='165' style='text-decoration: underline; border: 1px solid #CCCCCC;'><a href='ProductsView.asp?id="<%=Rs("id")%>"' target='_blank'><img src="<%=rs("LPattern")%>" border=0 width=140 height=140 onload=java-script:DrawImage(this);></a></td></tr><tr><td height=28><img src=Images/Arrow-Index-Products.gif width=14 height=12 align=absmiddle>&nbsp;<a href='ProductsView.asp?id="<%=Rs("id")%>"' target='_blank'><%=rs("LName")%></a></td></tr></table>
</td><%if i mod 3 <>0 then%>
<%end if%>
<% if i mod 3 =0 then%></tr>
<tr>
<%end if%>
<%
rs.MoveNext
i=i+1
Loop
rs.close
set Rs=nothing
%>
<%end if%>
</tr></table>

斑竹再帮我看一下吧，
这样改了以后，图片下面的字全部而不是多于10个就便省略号了

没看明白 抓个图看看

你帮我看看，这是修改前的


这是修改后的



这个要怎么改？？？
谢谢！！