<% Call SiteInfo dim Products dim mMemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail if session("MemName")<>"" and session("MemLogin")="Succeed" then call LiangjingCMSPBuyMemInfo() else mSex=LiangjingCMSChLanguage91 mMemID=0 end If Headid=16 Dim aa %> <% =SeoTitle %><% =SiteTitle %>

商品目录

<%Call LiangjingCMSProductFolderi(0,"Producturl_","LiangjingCMS_ProductSort")%>
<%=pictitle5%>

获取最新消息

<%Call LiangjingCMSEMailSubscriptions()%>

<%=LiangjingCMSPBuyWebLocation("Producturl_")%>

购物车

<% Call LiangjingCMSPBuyPList("Producturl_","LiangjingCMS_Products") %>
<% Dim acction acction=Trim(request("CartXiugai")) select case acction Case "shanchu" Call uCart.ModifItem(request.QueryString("id"),CInt(request.QueryString("shuliang")),3) Case "修改" pro_id=request("id") numbercount=request("xiugaishuliang") arr_id=Split(Replace(pro_id," ",""),",") arr_number=Split(Replace(numbercount," ",""),",") For i = 0 To UBound(arr_id) Call uCart.ModifItem(arr_id(i),CInt(arr_number(i)),2) Next end Select '定义购物车 mycart=uCart.ViewCart() For i =LBound(myCart,2) to UBound(myCart,2) if myCart(0,i)<>"" Then %> <% end if next %>
序号 物品名称 物品数量 物品单价/元 操作
<%=myCart(0,i)%> <%=myCart(1,i)%> <%=myCart(2,i)%> 删除
总价:<%=uCart.TPrice()(0)%> (元)

购买信息填写

<% Call LiangjingCMSPBuyForm("Producturl_") %>