'用来判断用户所进入的柜台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
%>
</form>
</td>
</tr>
<!--第一行物品显示end-->
…
<!--商场第二行地板显示begin-->
…
<!--商场地板第二行显示end-->
…
<!--第二行物品显示start-->
…
<!--第三行地板显示start-->
…
<!--第三行地板显示end-->
…
<!--第二行物品显示end-->
…
<!--地板第四行显示start-->
…
<!--第四行地板显示end-->
…
<%
end if
end if
end if
Next
