dir.asp

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

<!--#include file="top.asp"-->
<center>
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td align="center" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="180" valign="top" align="left"> 
<table border="0" width="180" 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>
  </table></td>    <td background="image\bg-c(1).gif" width=16>　</td>

                            <td width="592" height="100%" align="center" valign="top"> 
  <div align=center> 
        <center>
          <table align=center border=1 bordercolor=#e9a7c4 cellpadding=0 
      cellspacing=0 height=120 style="BORDER-COLLAPSE: collapse" width=592>
            <tbody> 
            <tr> 
              <td bordercolordark=#ffffff bordercolorlight=#ffffff> <br>
                <table width="96%" border="1" bordercolordark=#ffffff bordercolorlight=#e9a7c4 cellspacing="0" cellpadding="0" align="center" height="90">
                   <%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="15%" bgcolor="#e9a7c4" nowrap> 
                      <div align="center"><font color=#292C29><a href="sort.asp?sort_id=<%=rs("sort_id")%>&sort_name=<%=rs("sort_name")%>&ob=1"><%=rs("sort_name")%></a>(<font color=red><%
                     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>件)</font></div>
                    </td>
                    <td width="85%"> <span class="Font_Sort">  <%  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%>
 <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>
                     <%rs2.movenext
                     loop
                    end if
                   rs2.close%>&nbsp;&nbsp; 
                      </span> </td>
                  </tr>
      <%rs.movenext
         loop
         end if
         rs.close
         %>            
                </table>
                <br>
              </td>
            </tr>
            </tbody> 
          </table>
        </center>
      </div>
                
                </td>
                          </tr>
                        </table>
 </td>
</tr>
 </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><hr width="770" size="1"></td>
              </tr>
              <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>