middle_bclass.asp

来自「C2C二手交易网SMRUC v2.0 全部实现了C2C电子商务功能。 特别适合」· ASP 代码 · 共 69 行

<table width="570" cellpadding="0" cellspacing="0">
<%
	id=request.QueryString("id")
	if id<>"" then
		exec_middle_bclass1="select * from bclass where bclass_id="&id
		set rs1=server.createobject("adodb.recordset")
		rs1.open exec_middle_bclass1,conn,1,1
%>
  <tr>
    <td width="20" height="20"></td>
    <td width="530" colspan="2">-- <strong> 
      <%=rs1("bclass_name")%></strong> --</td>
    <td width="20" height="20"></td>
  </tr>
<%
		exec_middle_bclass2="select * from sclass where sclass_parent="&id
		set rs2=server.createobject("adodb.recordset")
		rs2.open exec_middle_bclass2,conn,1,1
		do while not rs2.eof
%>
  <tr>
    <td width="20" height="20" background="images/top_left.jpg"></td>
    <td width="530" colspan="2" background="images/top_mid.jpg"><a href="show_sclass.asp?id=<%=rs2("sclass_id")%>"><font color="#FFFFFF"><strong> 
      <%=rs2("sclass_name")%></strong></font></a></td>
    <td width="20" height="20" background="images/top_right.jpg"></td>
  </tr>
  <tr>
    <td height="15">&nbsp;</td>
    <td colspan="2">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
<%
		exec_middle_bclass3="select top 8 * from info where info_sclass="&rs2("sclass_id")&" and info_status='有效' order by info_id desc"
		set rs3=server.createobject("adodb.recordset")
		rs3.open exec_middle_bclass3,conn,1,1
		do while not rs3.eof
%>
  <tr>
    <td height="20">&nbsp;</td>
    <td width="350">[<font color='<%if rs3("info_kind")="求" then %>0000ff<% else %>ff0000<% end if%>'><%=rs3("info_kind")%></font>]<a href="showinfo.asp?id=<%=rs3("info_id")%>"><%=rs3("info_title")%></a></td>
    <td><%=rs3("info_date")%></td>
	<td></td>
  </tr>
<%
		rs3.movenext
		loop
%>
  <tr>
    <td height="15">&nbsp;</td>
    <td colspan="2" align="right"><a href="show_sclass.asp?id=<%=rs2("sclass_id")%>"><img src="images/more.gif" width="43" height="14" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="15">&nbsp;</td>
    <td colspan="2">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
<%
		rs2.movenext
		loop
%>
</table>
<%
	else
%>
<%
	end if
%>