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

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>")
...全文
162 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了，当然怎么判断都是普通会员的价格了。
购物车价格自动计算
"购物车价格自动计算"这一主题涉及到的技术主要包括前端交互、数据存储和实时更新。在这个项目中，我们将关注以下几点： 1. **前端交互**：前端部分通常使用HTML、CSS和JavaScript来构建。`index.html`是网站的主...
asp购物车实例源码
将商品装入购物车，这时需要用cookie或session来做一个不同页面间传递的全局变量，也就是说关了浏览器（针对session）或清楚了cookie等原因，本次购物车会消失，就象你今天在商场买了一车的东西，最后没结帐，明天...
课程设计购物车网上书店报告
3. **Cartselectedmer（购物车选择的图书表）**：记录每次购买的每种图书的详情，包括数量、价格等。 4. **Category（分类表）**：存储图书的分类信息。 5. **Leaveword（留言表）**：记录用户的留言内容。 6. **...
购物车经典案例
- 显示：购物车页面需要清晰地展示每件商品的图片、名称、价格、数量等信息，同时提供编辑数量和删除商品的功能。 - 保存购物车：为了防止用户数据丢失，购物车状态需要持久化存储，可以使用session、cookie或者...
php购物车.txt
- **价格显示**：分别显示商品的市场价和会员价。 - **操作按钮**：提供“查看信息”和“放入购物车”的链接按钮。 - **库存显示**：动态计算并显示剩余库存数量。 ### 2. PHP逻辑实现 #### 2.1 图片与基本信息...
ASP

28,406

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章