不同会员购物车价格显示问题
普通会员为: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>")