100分求助 asp 相关商品显示2列 高分求助!!

来源:百度知道 编辑:UC知道 时间:2024/05/12 19:53:03
原文件显示1列 现要显示2列 求助
。。。。。。。。。。。。。。。。。。。。
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<%
sorts2=gjz
sorts2=trim(sorts2)
if sorts2<>"" then
bsort2=split(sorts2,",")
for i=0 to ubound(bsort2)
bsortb2=bsort2(i)
bsortb2=trim(bsortb2)
x=0
shopList=6
set rs1=server.createobject("adodb.recordset")
sql="select * from shop_snsn where shopname<>'"&shopname&"' and shopcontent like '%"&bsortb2&"%' "
rs1.Open sql,conn,1,1
do while not rs1.eof
x=x+1
%>
<TR>
<TD VALIGN="top" HEIGHT="22" ><A HREF="list.asp?id=<%=rs1("shopid")%>"><img src="<%=trim(rs1("zhuang"))%>"

<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<%
sorts2=gjz
sorts2=trim(sorts2)
if sorts2<>"" then
bsort2=split(sorts2,",")
for i=0 to ubound(bsort2)
bsortb2=bsort2(i)
bsortb2=trim(bsortb2)
x=0
shopList=6
set rs1=server.createobject("adodb.recordset")
sql="select * from shop_snsn where shopname<>'"&shopname&"' and shopcontent like '%"&bsortb2&"%' "
rs1.Open sql,conn,1,1
do while not rs1.eof
x=x+1
%>
<TR>
<TD VALIGN="top" ><A HREF="list.asp?id=<%=rs1("shopid")%>"><img src="<%=trim(rs1("zhuang"))%>" width=80 border=0 height="60" title=" ● 艺人:<%=trim(rs1("cjname"))%>
● 专辑:<%=trim(rs1("shopname"