<%
dim zs:zs = 9 '===== 提取的文章数量
dim cols:cols = 3 '==== 列数
sn = 0
sql= "select top 9 id,s_name from info_shop where ifhome=1 and ifvalid=1 order by id asc "
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
sn = sn + 1
sid=rs( "id ")
set rs2=server.createobject( "adodb.recordset ")
sqltt= "select top 1 sid ,id from dazhe_info where sid= ' "&sid& " ' order by id desc "
rs2.open sqltt,conn,1,1
If not rs2.eof Then
set rs1=server.createobject( "adodb.recordset ")
sqlt= "select top 5 sid ,spic from pic_shop where sid= ' "&sid& " ' order by id desc "
rs1.open sqlt,conn,1,1
%>
<td width= "33% "> <table width= "96 " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<tr>
<td> <div align= "center ">
<table width= "87 " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<tr bgcolor= "#CFCFCF ">
<td colspan= "3 " height= "1 "> </td>
</tr>
<tr>