代码如下:
代码:
<%set rsclass=server.CreateObject("adodb.recordset")
rsclass.Open "select * from shop_config",conn,1,1
class2=rsclass("class")
class2=trim(class2)
if class2<>"" then
bsort2=split(class2,",")
for i=0 to ubound(bsort2)
classname=bsort2(i)
%><%if fl=1 then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="fontglow"><b><font
color=#ff6600><b>
<img src="img/top1.gif" width="12" height="13">
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&classname&"",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=big&anid="&classname&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</b></font></b></span>>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_nclass where anclassid="&classname&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&classname&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> | "
rs2.movenext
loop
rs2.close
set rs2=nothing
%></td>
</tr>
</table>
<%end if%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="0">
<%
set rsx=server.createobject("adodb.recordset")
rsx.open "select Top 2 * from shop_snsn where anclassid="&classname&" order by adddate desc",conn,1,1
if rsx.recordcount=0 then
response.write "<tr><td> 此分类暂无商品,正待添加!</td></tr>"
else
%>
<tr>
<%
while not rsx.eof
%>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170" height="7"></td>
</tr>
</table>
<table width="260" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="90"><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>>
<%if rsx("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&rsx("shopid")&" ><img src=img/emptyshop.gif width=85 height=85 border=0></a></div>"
else
response.write "<img src="&rsx("shoppic")&" width="&upload13&" height="&upload14&" border=0>"
end if%>
</a></td>
<td><span class="style2"><strong><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>><%=rsx("shopname")%></a></strong></span><br> <span class="style2">【市场价】<s><%=formatnumber(rsx("shichangjia"),2)%>元</s></span><br>
<span class="style2">【会员价】<%=formatnumber(rsx("huiyuanjia"),2)%>元</span><br>
<a href="gouwu.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/gm.gif" border="0"></a> <a href="shoucang.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/sc.gif" border="0"></a></td>
</tr>
</table>
</td>
<%
rsx.movenext
wend
%>
</tr>
<%
end if
rsx.close
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="12"></td>
</tr><tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr><tr>
<td height="12"></td>
</tr>
</table><%next
end if
rsclass.Close
set rsclass=nothing
%>
上面
代码:
rsx.open "select Top 5 * from shop_snsn where anclassid="&classname&" order by adddate desc",conn,1,1















平板模式