账号通
    

账号  

密码  

2559

查看

7

回复
主题:[求助]如何在做标签时做用户登录判断,登录显示商品会员价,不登录显示另一个价格? [收藏主题] 转到:  
yq9823 当前离线

416

主题

8

广播

0

粉丝
添加关注
级别:四年级

用户积分:19309 分
登录次数:348 次
注册时间:2008/1/13
最后登录:2023/5/10
yq9823 发表于:2012/2/16 10:17:00   | 只看该作者 查看该作者主题 楼主 
 
[url]http://www.xjpets.com[/url]新疆宠物网
  支持(27) | 反对(27) 回到顶部顶端 回到底部底部
梦幻鬼鱼 当前离线

196

主题

1

广播

0

粉丝
添加关注
级别:一年级

用户积分:930 分
登录次数:193 次
注册时间:2010/2/25
最后登录:2013/12/26
梦幻鬼鱼 发表于:2012/2/16 10:22:00   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店

商品有个按会员组分类。这个后台有功能

 
  支持(27) | 反对(25) 回到顶部顶端 回到底部底部
yq9823 当前离线

416

主题

8

广播

0

粉丝
添加关注
级别:四年级

用户积分:19309 分
登录次数:348 次
注册时间:2008/1/13
最后登录:2023/5/10
yq9823 发表于:2012/2/16 10:42:00   | 只看该作者 查看该作者主题 藤椅 
科汛在线网校系统

楼上的朋友,这个功能我知道,我是按会员组定的价,我的意思是,如果登录了,显示会员价,不登录显示市场价。我允许非会员看市场价的。但非会员不可以看会员价。


 
[url]http://www.xjpets.com[/url]新疆宠物网
  支持(16) | 反对(13) 回到顶部顶端 回到底部底部
abc123184651 当前离线

174

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:269 分
登录次数:11 次
注册时间:2012/2/7
最后登录:2012/7/25
abc123184651 发表于:2012/2/16 10:49:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(9) | 反对(9) 回到顶部顶端 回到底部底部
lwti0 当前离线

279

主题

0

广播

0

粉丝
添加关注
级别:二年级

用户积分:368 分
登录次数:61 次
注册时间:2011/6/16
最后登录:2012/9/3
lwti0 发表于:2012/2/16 11:53:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(3) | 反对(2) 回到顶部顶端 回到底部底部
yq9823 当前离线

416

主题

8

广播

0

粉丝
添加关注
级别:四年级

用户积分:19309 分
登录次数:348 次
注册时间:2008/1/13
最后登录:2023/5/10
yq9823 发表于:2012/2/16 17:26:00   | 只看该作者 查看该作者主题 地板 
做在线知识付费 选科汛云开店

已解决,办法是修改/shop/GetGroupPrice.asp这个文件,修改成

  1. <!--#include file="../Conn.asp"-->

  2. <!--#include file="../KS_Cls/Kesion.MemberCls.asp"-->
  3. <%
  4. '****************************************************
  5. ' Software name:Kesion CMS 8.0
  6. ' Email: service@kesion.com . QQ:111394,9537636
  7. ' Web: http://www.kesion.com http://www.kesion.cn
  8. ' Copyright (C) Kesion Network All Rights Reserved.
  9. '****************************************************

  10. Dim KS
  11. Set KS=New PublicCls
  12. Set KSUser = New UserCls
  13. Dim ProID,Tips,RS,SqlStr
  14. ProID = KS.ChkClng(KS.S("ProID"))
  15. If ProID = 0 Then
  16.         Tips = "NULL"
  17. Else
  18.         SqlStr = "SELECT GroupPrice,Price_Member,Price FROM KS_Product Where ID=" & ProID
  19.         Set RS = Server.CreateObject("ADODB.Recordset")
  20.         RS.Open SqlStr, conn, 1, 1
  21.         If Not RS.bof  Then
  22.     If Cbool(KSUser.UserLoginChecked)=false Then
  23.         Tips = "¥ <font color=""red"">" & FormatNumber(rs(2),2,-1) & "</font> 元"
  24.     Else
  25.       If RS(0)=1 Then
  26.               Tips = "¥ <font color=""red"">" & Conn.Execute("Select Price From KS_ProPrice Where ProID= " & ProID & " and GroupID=" & KSUser.GroupID)(0) & "</font> 元"
  27.       Else
  28.               Tips = "¥ <font color=""red"">" & FormatNumber(rs(1),2,-1) & "</font> 元"
  29.             end if
  30.     End If
  31.         End If
  32.         rs.Close
  33.         Set rs = Nothing
  34. End If
  35. Response.Write "document.write('" & Tips & "');"
  36. Response.Write "document.write('<script src=""" & KS.Setting(3) & "ks_inc/kesion.box.js"" language=""JavaScript""></script>');"
  37. %>
  38. function ShowLogin()
  39. {
  40. new KesionPopup().popupIframe('会员登录','<%=KS.Setting(3)%>user/userlogin.asp?Action=Poplogin',397,184,'no');
  41. }
  42. <%
  43. Call CloseConn()
  44. Set KS=Nothing
  45. %>


这样就可以了。

 
[url]http://www.xjpets.com[/url]新疆宠物网
  支持(2) | 反对(1) 回到顶部顶端 回到底部底部
gaoxun09 当前离线

1184

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:1146 分
登录次数:43 次
注册时间:2011/6/24
最后登录:2012/8/6
gaoxun09 发表于:2012/2/18 15:53:00   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
chaihuabao 当前离线

9

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:9 分
登录次数:2 次
注册时间:2012/2/18
最后登录:2012/2/18
chaihuabao 发表于:2012/2/18 15:59:00   | 只看该作者 查看该作者主题 8楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.20313秒 powered by KesionCMS 9.0