%
LX=request("LX")
if LX=1 then
title_img="title_11.gif"
title_txt="新品上架"
elseif LX=2 then
title_img="title_12.gif"
title_txt="推荐商品"
elseif LX=3 then
title_img="title_13.gif"
title_txt="艺术百件"
elseif LX=4 then
title_img="title_12.gif"
title_txt="优惠商品"
elseif LX=5 then
title_img="title_32.gif"
title_txt="大银章(AG999)专卖区"
elseif LX=6 then
title_img="title_33.gif"
title_txt="定制礼品展示区"
elseif LX=7 then
title_img="title_34.gif"
title_txt="在售商品"
end if
%>
<%=title_txt%>│金谷大铜章艺术交流网
<%=title_txt%>
首页 > <%=title_txt%>
<%
TypeID=0
Set rs4 = Server.CreateObject("ADODB.Recordset")
if LX=1 then
sql4 = "Select * From product where tj1=True order by OrderID_Xinpin"
elseif LX=2 then
sql4 = "Select * From product where tj2=True order by OrderID_Tuijian"
elseif LX=3 then
sql4 = "Select * From product where tj3=True order by OrderID_Yishu"
elseif LX=4 then
sql4 = "Select * From product where tj4=True order by OrderID_Youhui"
elseif LX=5 then
sql4 = "Select * From product where tj5=True order by OrderID_Dayinzhang"
elseif LX=6 then
sql4 = "Select * From product where tj6=True order by OrderID_Yinbi"
elseif LX=7 then
sql4 = "Select * From product where tj7=True order by OrderID_Jingpin"
end if
rs4.Open sql4,conn3,adOpenStatic
if rs4.eof and rs4.bof then
response.write "
暂时没有数据
"
else
rs4.PageSize = 15
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs4.PageCount Then Page = rs4.PageCount
rs4.AbsolutePage = Page
For iPage = 1 To rs4.PageSize
%>