<%Dim lyz_user, lyz_userqx, thetime, gouwu_id, gouwu_sl lyz_user = request.cookies("huxianwen")("username") lyz_userqx = request.cookies("huxianwen")("userqx") If lyz_userqx = "" Then lyz_userqx = -1 Set rs = server.CreateObject("adodb.recordset") rs.Open "select * from lyz_cookie where username='"&lyz_user&"'", conn, 1, 1 If rs.bof And rs.EOF Then gouwu_id = request.cookies("huxianwen")("gouwuid") gouwu_sl = request.cookies("huxianwen")("gouwusl") Else gouwu_id = rs("gouwuid") gouwu_sl = rs("gouwusl") End If rs.Close Set rs = Nothing temp1 = Split(gouwu_id, ",") temp2 = Split(gouwu_sl, ",") For N = 0 To UBound(temp2) tempsl = CInt(tempsl) + CInt(temp2(N)) Next If tempsl = "" Then tempsl = 0 Set rs = server.CreateObject("adodb.recordset") For N = 0 To UBound(temp1) rs.Open "select hyjia,vipjia from lyz_product where id="&CSng(temp1(N))&"", conn, 1, 1 If lyz_userqx = 1 Then jinger = jinger + (CSng(rs("vipjia")) * CSng(temp2(N))) Else jinger = jinger + (CSng(rs("hyjia")) * CSng(temp2(N))) End If rs.Close Next Set rs = Nothing If jinger = "" Then jinger = 0 If htmlml = "" Then htmlml = webml Else htmlml = ""&webml&htmlml&"/" End If %> 用户购物车
<%if lyz_userqx<0 then%> 您好,欢迎来到三杰白蚁防治公司 <%else%> 您好,<%=lyz_user%> <%end if%>
您的购物车内有<%=tempsl%>件商品
合计:¥<%=jinger%>元(不含运费)
查看购物车 | 订单查询
<%if lyz_userqx<0 then%> [成为会员] | [现在登录] <%else%> [重新登录] | [注销登录] <%end if%>