<%set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from T_peson where shopname='宏美家电超市'",conn,1,1
array1=split(rs1("chplb"),",")
%>

<%for each chplb in array1%>
<tr>
<td width="100%" height="26" background="tp/fa.gif">　<%=chplb%>　</td>
</tr>
<%
next
rs1.close
set rs1=nothing

%>

这样一行只显示一个内容 我想一行显示两个产品 请问怎么写呢?

既然用了 for each

Dim b ' As Boolean
b = True

<%
For Each chplb In array1
If b Then
Response.Write "<TR>"
End If
Response.Write "<TD>" & chplb & "</TD>"
If Not b Then
Response.Write "</TR>"
End If
b = Not b
Next

If Not b Then Response.Write "</TR>"
%>

好象看起来 有点道理  我先实验下  谢谢

谢谢   问题已经解决了!~~