<% uid=session("uid") if trim(uid)<>"" then set rscusCat=selectCustomerName(uid) if not rscusCat.bof and not rscusCat.eof then session("cusCat")=rscusCat("customerClass") session("customerID")=rscusCat("customerID") session("customerName")=rscusCat("customerName") session("customerEmail")=rscusCat("customerEmail") session("uid")=uid end if end if productCat=request.querystring("productCat") if productCat="" then productCat="" else str=productCat set rsProCat=selectProductCat(str) productCat=rsProCat("productCatname") rsProCat.close set rsProCat=nothing end if session.timeout=600 %>

AG8平台

 
<% else if session("status")<>"rewrite" then response.write "" response.write "" end if %> <% end if %>

产品展台

 

公司产品目录

<% str="" set rsProductCat=selectProductCat(str) if not rsProductCat.eof and not rsProductCat.bof then while not rsProductCat.eof %> <%if rsProductcat("ProductCatname")<>"旧产品" then%>

" class="unnamed1"> <%=rsProductCat("ProductCatName")%>

<%end if%> <% rsProductCat.MoveNext wend end if rsProductCat.close set rsProductCat=nothing %>

<% if session("uid")="" then %>

 
" response.write "
欢迎代理商"&session("customerName")&"登录
" response.write "
" response.write "
" response.write "" response.write "
" response.write "" response.write "
" %> <% pNull="" set rsOrderProductBuy=selectOrderProductBuy(pNull,session("customerName")) if not rsOrderProductBuy.eof and not rsOrderProductBuy.bof then productsID=rsOrderProductBuy("ProductID") end if %>
我的购物车
<% rsOrderProductBuy.close set rsOrderProductBuy=nothing response.write "
" response.write "" response.write "
" response.write "" response.write "
" response.write "" response.write "
" response.write "" response.write "
" response.write "" response.write "
" response.write "
代理商购买帮助
 
 
<% str="" set rsProductCat=selectProductCat(str) do while not rsProductCat.eof if rsProductcat("ProductCatname")<>"旧产品" then %> <% set rs=selectProduct(rsproductcat("productCatname")) do while not rs.eof %> <% rs.movenext loop rs.close set rs=nothing end if rsProductCat.MoveNext loop rsProductCat.close set rsProductCat=nothing %>
<%=rsProductCat("ProductCatName")%>">  <%=rsProductCat("ProductCatMemo")%>
品名 产品规格 单位 代理价 批发价 零售价 包装规格 购买
" target="_blank" class=unnamed4><%=rs("productname")%> <%if trim(rs("isOOS"))=1 then%>(缺货)<%end if%> <%=rs("ProductSPEC")%> <%=rs("productUnit")%> <% ProductRetailPrice=FormatNumber(Rs("ProductRetailPrice"),2) ProductTradePrice=FormatNumber(Rs("ProductTradePrice"),2) ProductMemberPrice=FormatNumber(Rs("ProductMemberPrice"),2) If Left(ProductRetailPrice,1)="." Then ProductRetailPrice="0"&ProductRetailPrice End If If Left(ProductTradePrice,1)="." Then ProductTradePrice="0"&ProductTradePrice End If If Left(ProductMemberPrice,1)="." Then ProductMemberPrice="0"&ProductMemberPrice End If %> <%if session("cusCat")<>"" then%> <%=ProductMemberPrice%>元 <%end if%> <%=ProductTradePrice%>元 <%=ProductRetailPrice%>元 <%=rs("ProductWrapping")%><%=rs("productUnit")%>/件 ">