<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% session("user_name")=session.SessionID %> Chun Fat (HK) Beauty Limited 進發(香港)謢膚品有限公司 | 產品展覽
<% set rst=server.createobject("adodb.recordset") sql="select * from BigClass where Ist = true " rst.open sql,conn,1,1 if Rst.eof or Rst.bof then response.write"
還沒有添加產品品牌
" end if do while not rst.eof %>
<% rst.movenext loop rst.close set rst=nothing %>
<% BigClassID=Trim(Request.QueryString("BigClassID")) if BigClassID="" then response.write " 所有產品" else sqlBigClass="select * from BigClass where BigClassID=" & BigClassID set rsBigClass=conn.execute(sqlBigClass) response.write " " & rsBigClass("BigClassName") end if %>
<% BigClassID=Trim(Request.QueryString("BigClassID")) call ShowProductTotal() %>
<% BigClassID=Trim(Request.QueryString("BigClassID")) if BigClassID="60" or BigClassID="61" or BigClassID="63" then %>買滿$300免費送貨
買滿20$15.00/張    買滿50$8.00/張
買滿100$7.00/張    買滿200$6.00/張    買滿500$5.00/張 <% elseif BigClassID="62" then %> <% end if %>
<% BigClassID=Trim(Request.QueryString("BigClassID")) page=clng(request("page")) set rsProduct=server.createobject("adodb.recordset") if BigClassID="" then sqlProduct="select * from Product where Passed=True and Ist=true and SmallclassName=''" & "ORDER BY ID DESC" else sqlProduct="select * from Product where Passed=True and Ist=true and BigClassID =" & BigClassID & " and SmallclassName=''" & "ORDER BY ID DESC" end if rsProduct.open sqlProduct,conn,1,1 if rsProduct.eof and rsProduct.bof then response.write"
還沒有添加產品
" else rsProduct.PageSize=10 if page=0 then page=1 pages=rsProduct.pagecount if page > pages then page=pages rsProduct.AbsolutePage=page for j=1 to rsProduct.PageSize %>

<% end if %>
<% if rsProduct("DefaultPicUrl") ="" then %> "> <% else %> ">" style="padding-top:10px; padding-left:15px; padding-right:15px; padding-bottom:10px;" border="0" onload="javascript:DrawImage(this);"/>
<%= rsProduct("title") %>
功能 :
<%= rsProduct("Memo") %>
售價 : <%= rsProduct("Price") %>
" />
" /> " /> " /> " />
<% rsProduct.movenext if rsProduct.eof then exit for next end if %>

<% rsProduct.close set rsProduct=nothing call CloseConn() %>