<%
dim rs '商品
set rs=server.CreateObject("adodb.recordset")
if trim(request("tag"))<>"" then
sql="select taoburl from [Smhan_Spin] where lanmu='"&request("tag")&"' order by tuijian "
else
sql="select taoburl from [Smhan_Spin] order by tuijian "
end if
rs.open sql,conn,1,1
%>
<div id="ItemBox">
<ul>
<%
do while not rs.eof and i<rs.pagesize
%>
<li>
<div data-plugin="autoitem">
<a href="<%=rs("taoburl")%>"><%=rs("taoburl")%></a>
</div>
</li>
<%
rs.movenext
i=i+1
loop
%>
</ul>
</div>
<%
rs.close
set rs=nothing
%>
实在是没辙了,大家看看吧。。。