网上商城的设计与实现(五)

    '用来判断用户所进入的柜台start
    If SmallSortName="" and GoodsName="" Then
       Sql="select * from Goods where BigSortName='"+BigSortName+"' order by BigSortName"
    End If
    If SmallSortName<>"" and GoodsName="" Then
       Sql="select * from Goods where BigSortName='"+BigSortName+"' and SmallSortName='"+SmallSortName+"' order by BigSortName,SmallSortName"
    End If
    If SmallSortName="" and GoodsName<>"" Then
       Sql="select * from Goods where BigSortName='"+BigSortName+"' and GoodsName like'%"+GoodsName+"%' order by BigSortName,GoodsName"
  End If
  If SmallSortName<>"" and GoodsName<>"" Then
      Sql="select * from Goods where BigSortName='"+BigSortName+"' and SmallSortName='"+SmallSortName+"' and  GoodsName like'%"+GoodsName+"%'"
  End If
  If BigSortName="" and SmallSortName="" and GoodsName="" then
     Sql="select * from Goods"
  End If
  '用来判断用户所在的柜台结束
   set MainRs=server.CreateObject("ADODB.RecordSet")
    MainRs.open Sql,Conn,1,1
   If MainRs.bof or MainRs.eof then
     response.Write("没有任何商品")
   Else
    Page=CInt(request("Page"))
    MainRs.PageSize=4                 '设置每个场景显示四家商铺
    If  Page<1 then
        Page=1
    End If
    If  Page>MainRs.PageCount Then
        Page=MainRs.PageCount
    End If
    MainRs.AbsolutePage=Page
 
 %>
 <!--显示整个页面的表begin-->
 <table border="1" cellspacing="0" cellpadding="0" align="center" width="500">
 <tr>
  <td width="20%">
    <table>
      <tr><td>&nbsp</td><td><img src="Images/wall4.jpg" width="50" onmouseover="wallover(this);" onmouseout="wallout(this);"></td></tr>
    </table>
  </td>
  <td>
    <!--中间商场表显示begin-->
   <table border="1" cellspacing="0" cellpadding="1" align="center" width="90%">
   <%
    
      For i=1 to MainRs.PageSize step 4
 propvalue="商品名："+MainRs("GoodsName")+"---商品大类："+MainRs("BigSortName")+"---商品小类:"+MainRs("SmallSortName")+"---商场价:"+CStr(MainRs("ComPrice")) 
   %>
   <!--第一行物品显示begin-->
   <tr>
     <td background="Images/table1.jpg" align="center" valign="top">
       <form method="post" name="Goods" action="Right.asp?Id=<%=MainRs("Id")%>" target="mainFrame">
    <%
       if MainRs("ImageFile")="" then%>
   
    <input type="image" src='../eshop/admin/Image/NoImg.jpg' width='40' height='60' alt="<%=propvalue%>" >
   
   <% else%>
      <input type="image" src="../eshop/admin/Image/<%=MainRs("ImageFile")%>" width='40' height='60' alt="<%=propvalue%>" >
  
    <% End If
     MainRs.movenext
   
    %>
     </form>
     </td>
 
   <td>
     <!--商场第一行中部地板显示begin-->
     <table>
    <tr>
      <td><img src="Images/target2.jpg" width="40" height="40" onclick="personmove(this);"></td>
    </tr>
    <tr>
     <td>
          <img src="Images/target2.jpg" width="40" height="40" onclick="personmove(this);">
     </td>
    </tr>
  </table>
   </td>
   <td>
     <table>
    <tr>
     <td>
          <img src="Images/target2.jpg" width="40" height="40" onclick="personmove(this);">
     </td>
    </tr>
    <tr>
     <td>
          <img src="Images/target2.jpg" width="40" height="40" onclick="personmove(this);">
     </td>
    </tr>
  </table>
  <!--#商场第一行中部地板显示end-->
   </td>
     <td background="Images/table2.jpg" align="center" valign="top">
     <%
        if not  MainRs.eof then
    propvalue="商品名："+MainRs("GoodsName")+"---商品大类："+MainRs("BigSortName")+"---商品小类:"+MainRs("SmallSortName")+"---商场价:"+CStr(MainRs("ComPrice"))
    %>
       <form method="post" name="Goods" action="Right.asp?Id=<%=MainRs("Id")%>" target="mainFrame">
        <%  if MainRs("ImageFile")="" then%>
          <input type="image" src='../eshop/admin/Image/NoImg.jpg' width='30' height='60' alt="<%=propvalue%>" >
     <%else%>
      <input type="image" src="../eshop/admin/Image/<%=MainRs("ImageFile")%>" width='30' height='60' alt="<%=propvalue%>" >
  
       <% End If
   
     MainRs.movenext
   
   %>
   </form>
    </td>
   </tr>
   <!--第一行物品显示end-->
 …
    <!--商场第二行地板显示begin-->
         …
   <!--商场地板第二行显示end-->
 …
     <!--第二行物品显示start-->
           …
     <!--第三行地板显示start-->
 …
  <!--第三行地板显示end-->
           …
  <!--第二行物品显示end-->
 …
    <!--地板第四行显示start-->
 …
  <!--第四行地板显示end-->
 …
   <%
   end if
   end if
   end if
   Next
    
    %>
     </td>
   </tr>
   </table>
   <!--中部商场表显示end-->
  </td>
  <td width="15%" valign="bottom">
  <!--右部切换店铺begin-->
   <table border="1" cellspacing="0" cellpadding="1">
     <tr>

首页 上一页 2 3 4 5 6 下一页 尾页 5/6/6

网上商城的设计与实现(五)相关范文