不同会员购物车价格显示问题

ywbird 2009-11-09 01:21:49
普通会员为：1 高级VIP会员为：2

字段：cpjg 为普通会员价格

字段：xcjg 为高级会员价格

请教高手看下，为什么我用高级VIP会员2登入购物车产品价格显示的却是普通会员价格，
以下是购物车部分判断代码。
set r5=server.CreateObject("adodb.recordset")
r5.open"select * from cp",conn,1,3
if request("language")<>"english" then
response.Write("<form name='form1' method='post' action='editcart.asp?language=china'><table width='620' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#000000' bordercolordark='#FFFFFF'><tr align='center' bgcolor='#CCCCCC'><td>图片</td><td>型号</td><td>单价</td><td>数量</td><td>总价</td><td> </td></tr>")
else
response.Write("<form name='form1' method='post' action='editcart.asp?language=english'><table width='620' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#000000' bordercolordark='#FFFFFF'><tr align='center' bgcolor='#CCCCCC'><td>Picture</td><td>Type</td><td>Price</td><td>Number</td><td>Price</td><td> </td></tr>")
end if
mm=session("cart")
dim sum
sum=0
mn=lbound(mm)
mx=ubound(mm)
for i=lbound(mm) to ubound(mm)
r5.movefirst
if mm(i,0)<>"" then
do while not r5.eof
if r5("id")=cint(mm(i,0)) then
if session("vip")>=2 and session("vip")<>"" then
if r5("xcjg")="" or r5("xcjg")=0 then
cpjg=0
else
cpjg=r5("xcjp")
end if
else
if r5("cpjg")="" or r5("cpjg")=0 then
cpjg=0
else
cpjg=r5("cpjg")
end if
end if
if cpjg=0 or cpjg="" then
if request("language")<>"english" then
cpjg="面议"
momey="面议"
else
cpjg="Discuss"
momey="Discuss"
end if
else
momey=round(mm(i,1)*cpjg,2)
end if if request("language")<>"english" then
response.Write("<tr align='center'><td width='100'><img src='../cpimg/"&r5("simg")&"' width='50' height='50'></td><td width='100'>"&r5("xh")&"</td><td width='100'>"&cpjg&"</td><td width='100'><input name='num' type='text' id='num' size='14' maxlength='6' onKeyPress='if((event.keyCode<48 || event.keyCode>57)&& event.keyCode!=45) event.returnValue=false;' value='"&mm(i,1)&"'></td><td width='100'>"&momey&"<input name='id' type='hidden' value='"&mm(i,0)&"'></td><td bgcolor='#CCCCCC'><a href='delef.asp?id="&mm(i,0)&"&language="&request("language")&"'>删除此产品</a></td></tr>")
else
response.Write("<tr align='center'><td width='100'><img src='../cpimg/"&r5("simg")&"' width='50' height='50'></td><td width='100'>"&r5("xh")&"</td><td width='100'>"&cpjg&"</td><td width='100'><input name='num' type='text' id='num' size='14' maxlength='6' value='"&mm(i,1)&"'></td><td width='100'>"&momey&"<input name='id' type='hidden' value='"&mm(i,0)&"'></td><td bgcolor='#CCCCCC'><a href='delef.asp?id="&mm(i,0)&"&language="&request("language")&"'>Delete</a></td></tr>")
end if
if isnumeric(cpjg) then
sum=sum+round(mm(i,1)*cpjg,2)
end if
end if
r5.movenext
loop
end if
next
if request("language")<>"english" then
response.Write("<tr align='center'><td width='100'><input name='保存修改' type='submit' value='保存修改'></td><td width='100'><input name='' type='button' value='继续购物' onclick='javascript:window.close()'></td><td width='100'><input name='xx' type='submit' value='去收银台'></td><td width='100'>总价格：</td><td width='100'>"&sum&"</td><td bgcolor='#CCCCCC'> </td></table></form>")
else
response.Write("<tr align='center'><td width='100'><input name='保存修改' type='submit' value='Save'></td><td width='100'><input name='' type='button' value='Continuation' onclick='javascript:window.close()'></td><td width='100'><input name='xx' type='submit' value='Cashier'></td><td width='100'>Sum price：</td><td width='100'>"&sum&"</td><td bgcolor='#CCCCCC'> </td></table></form>")
...全文
165 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
anbs01 2009-11-09
  • 打赏
  • 举报
 回复
and session("vip") <>"" 去掉这句，没有用处的。
ywbird 2009-11-09
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 phpc 的回复:]
代码也太多了。为不过就是IF语句/

if session("vip")>=2  and session("vip") <>"" then '判断什么样的会员
  价格=r5("xcjp")
else
  价格=r5("cpjg ")
end if

[/Quote]
能否在详细一点呢，按您编写的还是不行
phpc 2009-11-09
  • 打赏
  • 举报
 回复

代码也太多了。为不过就是IF语句/

if session("vip")>=2 and session("vip") <>"" then '判断什么样的会员
价格=r5("xcjp")
else
价格=r5("cpjg ")
end if

--------------------------------
最震撼的网站流量统计系统(www.51stat.net)
ywbird 2009-11-09
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 anbs01 的回复:]
if request("language") <>"english" then
  response.Write(" <tr align='center'> <td width='100'> <img src='../cpimg/"&r5("simg")&"' width='50' height='50'> </td> <td width='100'>"&r5("xh")&" </td> <td width='100'>"&cpjg&" </td> <td width='100'> <input name='num' type='text' id='num' size='14' maxlength='6' onKeyPress='if((event.keyCode <48 || event.keyCode>57)&& event.keyCode!=45) event.returnValue=false;' value='"&mm(i,1)&"'> </td> <td width='100'>"&momey&" <input name='id' type='hidden' value='"&mm(i,0)&"'> </td> <td bgcolor='#CCCCCC'> <a href='delef.asp?id="&mm(i,0)&"&language="&request("language")&"'>删除此产品 </a> </td> </tr>")
  else
  response.Write(" <tr align='center'> <td width='100'> <img src='../cpimg/"&r5("simg")&"' width='50' height='50'> </td> <td width='100'>"&r5("xh")&" </td> <td width='100'>"&cpjg&" </td> <td width='100'> <input name='num' type='text' id='num' size='14' maxlength='6' value='"&mm(i,1)&"'> </td> <td width='100'>"&momey&" <input name='id' type='hidden' value='"&mm(i,0)&"'> </td> <td bgcolor='#CCCCCC'> <a href='delef.asp?id="&mm(i,0)&"&language="&request("language")&"'>Delete </a> </td> </tr>")
  end if
上面两个红色的地方全叫你给写成cpjg了，当然怎么判断都是普通会员的价格了。
[/Quote]

请看这一句
if session("vip")>=2 and session("vip") <>"" then
if r5("xcjg")="" or r5("xcjg")=0 then
cpjg=0
else
cpjg=r5("xcjp")
anbs01 2009-11-09
  • 打赏
  • 举报
 回复
if request("language") <>"english" then
response.Write(" <tr align='center'> <td width='100'> <img src='../cpimg/"&r5("simg")&"' width='50' height='50'> </td> <td width='100'>"&r5("xh")&" </td> <td width='100'>"&cpjg&" </td> <td width='100'> <input name='num' type='text' id='num' size='14' maxlength='6' onKeyPress='if((event.keyCode <48 || event.keyCode>57)&& event.keyCode!=45) event.returnValue=false;' value='"&mm(i,1)&"'> </td> <td width='100'>"&momey&" <input name='id' type='hidden' value='"&mm(i,0)&"'> </td> <td bgcolor='#CCCCCC'> <a href='delef.asp?id="&mm(i,0)&"&language="&request("language")&"'>删除此产品 </a> </td> </tr>")
else
response.Write(" <tr align='center'> <td width='100'> <img src='../cpimg/"&r5("simg")&"' width='50' height='50'> </td> <td width='100'>"&r5("xh")&" </td> <td width='100'>"&cpjg&" </td> <td width='100'> <input name='num' type='text' id='num' size='14' maxlength='6' value='"&mm(i,1)&"'> </td> <td width='100'>"&momey&" <input name='id' type='hidden' value='"&mm(i,0)&"'> </td> <td bgcolor='#CCCCCC'> <a href='delef.asp?id="&mm(i,0)&"&language="&request("language")&"'>Delete </a> </td> </tr>")
end if
上面两个红色的地方全叫你给写成cpjg了，当然怎么判断都是普通会员的价格了。
购物车价格自动计算
session保存数据结算，无刷新效果，添加删除，添加购物车
asp购物车实例源码
使用： 第1 '================================================= '建立购物车对象,该对象用于直接在程序中调用 '================================================= dim uCart set uCart= new UserCart 第二 建立一个购物车 uCart.CreateCart （可以重复建立，因为里面有IsArray判断。所以建议这句在建立购物车对象后必写） 第三 增加购物车里的商品，在客户端点了某产品后，服务器端处理的ASP文件中接受传过来的产品标志，并访问数据库。分别把AddItem(aID产品标 志如ID,aName产品名称,aPrice1产品价格一，如单价,aPrice2产品价格二如会员价,aPrice3产品价格三如金牌会员价，如果没这么多可以置空 或置0,aCount购买数量，一般是一个，多个的话后面可以用修改函数修改,aImage产品图片地址) 使用方法：aa=uCart.AddItem(aID产品标志如ID,aName产品名称,aPrice1产品价格一，如单价,aPrice2产品价格二如会员价,aPrice3产品价格 三如金牌会员价，如果没这么多可以置空或置0,aCount购买数量，一般是一个，多个的话后面可以用修改函数修改,aImage产品图片地址),返回 true表示成功，false表示失败 第四 增加了以后进如显示页面，就要用到查看购物车 mycart=uCart.ViewCart() For i =LBound(myCart,2) to UBound(myCart,2) if myCart(0,i)"" then myCart(0,i) '获取标号 myCart(1,i) '获取单价 。。。以此类推 end if next 第五 查看了，可以修改购物车，如更改数量等，或是删除其中的 call uCart.ModifItem(mID唯一标志号,mCount产品数量,mFlag－标志 0－添加 1－删除,2-修改 3-清空) '先用给后面参数赋值 修改其中的商品 可以用第四个显示，先接受session的值，然后循环修改 或清空购物车 uCart.RemoveAll() 然后结帐，很简单 myprice=uCart.TPrice() 然后myprice（0）是产品单价的总价格，myprice（1）是产品会员价的总价格，myprice（2）是高级会员的总价格，myprice（3）是产品总数量 将商品装入购物车，这时需要用cookie或session来做一个不同页面间传递的全局变量，也就是说关了浏览器（针对session）或清楚了cookie等原因，本次购物车会消失，就象你今天在商场买了一车的东西，最后没结帐，明天肯定没了，又归位了，当然要有特殊需要保存，可以写数据库！所以这里记录的只需要是该商品的相关信息就可以了，这里我们记录他的 物品ID, 物品单价, 物品名称, 物品数量
课程设计购物车网上书店报告
课程设计购物车网上书店报告，有很好的参考价值
购物车经典案例
购物车经典案例
php购物车.txt
PHP购物车程序，可以借鉴参考   【】   【市场价：】   【会员价：】   【查看信息】   【放入购物车】   【剩余数量： 0) { echo ($info[shuliang]-$info[cishu]); } else { echo "已售完"; } ?>】
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章