Question

ASP横向重复问题

重复区域的代码如下：
<table height="170" align="center" valign="top" bgcolor="#C7EBFB" style="padding:10px;"><%
While ((splb__numRows <> 0) AND (NOT splb.EOF))
%>
<td width="170" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170" align="center">名称:<a href="WGsp.asp?id=<%=(splb.Fields.Item("id").Value)%>"><%=(splb.Fields.Item("bt").Value)%></a></td>
</tr>
<tr>
<td rowspan="2" align="center"><a href="WGsp.asp?id=<%=(splb.Fields.Item("id").Value)%>"><img src="<%=(splb.Fields.Item("pic").Value)%>" alt="" name="" width="130" height="90" border="0" /></a></td>
</tr>
<%
splb__index=splb__index+1
splb__numRows=splb__numRows-1
splb.MoveNext()
Wend
%></table>
现在的是竖向排列的，求高手只招，如何把它修改为每行4个，之后自动换行

Answer 1

<table height="170" align="center" valign="top" bgcolor="#C7EBFB" style="padding:10px;">
<%
While ((splb__numRows <> 0) AND (NOT splb.EOF))
If splb__index mod 4 = 0 Then
reponse.write("<tr>")
End If
%>
<td width="170" align="center">名称:<a href="WGsp.asp?id=<%=(splb.Fields.Item("id").Value)%>"><%=(splb.Fields.Item("bt").Value)%></a></td>
<td rowspan="2" align="center"><a href="WGsp.asp?id=<%=(splb.Fields.Item("id").Value)%>"><img src="<%=(splb.Fields.Item("pic").Value)%>" alt="" name="" width="130" height="90" border="0" /></a></td>

<%
If splb__index mod 4 = 0 Then
reponse.write("</tr>")
End If
splb__index=splb__index+1
splb__numRows=splb__numRows-1
splb.MoveNext()
Wend
%>
</table>

追问

Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
显示发生错误的是reponse.write("")这个语句所在的位置，是不是要加些定义什么的？

追答

我打错字了，reponse.write("")改成 response.write("")就可以了，少写个s