alldir.asp

一个功能很全面占用空间的小商城程序,适合个人网上开店使用

<!--#include file="top.asp"-->
<center>
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td align="center" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0" height="520">
                          <tr> 
                            <td width="180" valign="top" align="left"> <table border="0" width="154" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td width="180" valign="top" align="left"> 
                                    <!--#include file="left.asp"-->
                                  </td>
                                </tr>
<script language="Javascript">
function checkserchinput()
{
	if(document.form.keyword.value=="")
	{
		alert("查询内容不能为空！");
		document.form.keyword.focus();
		return false;
	}
	return true;
}
</script>
                                <tr>
                                  <td align="left" valign="top" background="../image/flashb3.jpg">&nbsp;</td>
                                </tr>
                              </table></td>
                            <td width="590" height="100%" align="center" valign="top"> 
                              <table width="590" border="0" cellspacing="3">
                                <tr>
                                  <td>你的位置:商城首页-->产品所有分类</td>
                                </tr>
                              </table> 
                             <table width="100%" border="0" cellspacing="1" cellpadding="1" class="9h" border=1 bordercolor=black>
<%sql="select * from sort"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "暂且没有分类"
              else
                  do while not rs.eof
                  %>  <tr>
              <td width="100%"><img src="img/dir1.gif" border=0><a href="sort.asp?sort_id=<%=rs("sort_id")%>&sort_name=<%=rs("sort_name")%>&ob=1"><%=rs("sort_name")%></a>(<font color=red>(<%
                     set rs1=server.createobject("adodb.recordset")
                     sort_id=rs("sort_id")
                     sql1="select * from hw where sort_id='"&sort_id&"'"
                     rs1.open sql1,conn,3,3
                     response.write rs1.recordcount
                     rs1.close
                     %></font>件)-><br>
<%                     set rs2=server.createobject("adodb.recordset")
                     sort_id=rs("sort_id")
                     sql2="select * from sort2 where sort_id='"&sort_id&"'"
                     rs2.open sql2,conn,3,3
                    if rs2.eof then
                     
                      else
                      do while not rs2.eof%>
 <img src="img/dir2.gif" border=0><a href="sort2.asp?sort_id=<%=rs2("sort_id")%>&sort2_id=<%=rs2("sort2_id")%>&sort2_name=<%=rs2("sort2_name")%>&ob=1"><%=rs2("sort2_name")%></a>
                     <br><% set rs3=server.createobject("adodb.recordset")
                     sort_id=rs2("sort_id")
                     sort2_id=rs2("sort2_id")
                     sql3="select * from sort3 where sort_id='"&sort_id&"' and sort2_id='"&sort2_id&"' "
                     rs3.open sql3,conn,3,3
                    if rs3.eof then
                     
                      else
                      do while not rs3.eof%>
 <img src="img/dir2.gif" border=0><img src="img/dir2.gif" border=0><a href="sort3.asp?sort_id=<%=rs3("sort_id")%>&sort2_id=<%=rs3("sort2_id")%>&sort_id=<%=rs3("sort_id")%>&sort3_name=<%=rs3("sort3_name")%>&ob=1"><%=rs3("sort3_name")%></a>
                     <br><%rs3.movenext
                     loop
                    end if
                   rs3.close%>

<%rs2.movenext
                     loop
                    end if
                   rs2.close%>
<br>
</td></tr>
                  <%rs.movenext
                  loop
              end if
              rs.close
              %>
</table>
                            </td>
                            
                          </tr>
                        </table> </td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><table width="100%" border="0" cellspacing="0">
                    <tr>
                      <td>
                        <!--#include file="copy.asp"-->
                      </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
          <td bgcolor="3B6A05" width="1"></td>
        </tr>
      </table></td>
  </tr>
</table>
<p>&nbsp;</p>