left_class.asp

一套很早的多用户电子商务程序

<table width="169" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td> </td>
  </tr>
  <tr> 
    <td valign="top" > 
      <%
set rs_class_1=server.createobject("adodb.recordset")
sqltext2="select * from Class_1 "
rs_class_1.open sqltext2,conn,1,1
While Not rs_class_1.EOF
%>
      <table width="100%" border="0" cellspacing="3" cellpadding="0">
        <tr> 
          <td> 
            <%
set rs_p2=server.createobject("adodb.recordset")               
sqltext3="select * from Class_2 where Class_1_Name='" & rs_class_1("Class_1_Name") & "'"               
rs_p2.open sqltext3,conn,1,1				                
%>
            <%=rs_class_1("Class_1_Name")%><br> 
            <%While Not rs_p2.EOF%>
            <a href="ProductClass.asp?ProductClass_1=<%=rs_class_1("Class_1_Name")%>&ProductClass_2=<%=rs_p2("Class_2_Name")%>"><%=rs_p2("Class_2_Name")%></a> 
            <%               
rs_p2.MoveNext               
j=j+1               
Wend               
rs_p2.close               
%>
            <table width="153" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="3"></td>
              </tr>
              <tr> 
                <td height="1" bgcolor="#EAAF00"></td>
              </tr>
              <tr> 
                <td height="3"></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <%               
rs_class_1.MoveNext               
Wend               
rs_class_1.close          
%>
    </td>
  </tr>
</table>