left.asp

来自「在线报价程序V0.1 免费版： 1、后台添加产品 2、后台分类 3、后台添加友情」· ASP 代码 · 共 58 行

	<%
	dim k
	k=0
	set rs=server.createobject("adodb.recordset")
	sql="select * from lb order by id"
	rs.open sql,conn,3,3
	do while not rs.eof
	set rs1=server.createobject("adodb.recordset")
	sql="select * from zlb where lid="&rs("id")&""
	rs1.open sql,conn,3,3
	%>
<table width="100%"  border="0" cellpadding="0" cellspacing="0" class="haogao">
  <tr>
    <td height="25" bgcolor="#999999">　<span class="fontb14_white"><%=rs("lb")%></span></td>
  </tr>
  <tr>
    <td>

      <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
		<tr>    
		<%
		do while not rs1.eof        
	    %>	
          <td width="45%" height="30"><a href="catalog.asp?subcatalog=<%=rs1("id")%>"><%=rs1("zlb")%></a></td>
          <%
		 k=k+1
		if k mod 2=0 then
		%>
		</tr>       
	   		<tr>
		<%
		end if
		rs1.movenext
		loop
		%>
        </tr>
    </table>
	</td>
  </tr>
</table>
	<%
	rs.movenext
	loop
	rs1.close
	set rs1=nothing
	rs.close
	set rs=nothing
	%>
    <table width="230" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="65"><div align="center"><img src="images/d_1.gif" width="216" height="59"></div></td>
      </tr>
      <tr>
        <td height="65"><div align="center"><img src="images/d_2.gif" width="216" height="59"></div></td>
      </tr>
    </table>