如何在做标签时做用户登录判断，登录显示商品会员价，不登录显示另一个价格？-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2589 查看	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]新疆宠物网

底部

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]新疆宠物网

底部

yq9823 当前离线

416 主题	8 广播	0 粉丝

级别:四年级

用户积分:19309 分
登录次数:348 次
注册时间:2008/1/13
最后登录:2023/5/10

yq9823 发表于：2012/2/16 17:26:00 | 显示全部帖子查看该作者主题藤椅

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

<%
'****************************************************
' Software name:Kesion CMS 8.0
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
'****************************************************
Dim KS
Set KS=New PublicCls
Set KSUser = New UserCls
Dim ProID,Tips,RS,SqlStr
ProID = KS.ChkClng(KS.S("ProID"))
If ProID = 0 Then
Tips = "NULL"
Else
SqlStr = "SELECT GroupPrice,Price_Member,Price FROM KS_Product Where ID=" & ProID
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SqlStr, conn, 1, 1
If Not RS.bof Then
If Cbool(KSUser.UserLoginChecked)=false Then
Tips = "￥ <font color=""red"">" & FormatNumber(rs(2),2,-1) & "</font> 元"
Else
If RS(0)=1 Then
Tips = "￥ <font color=""red"">" & Conn.Execute("Select Price From KS_ProPrice Where ProID= " & ProID & " and GroupID=" & KSUser.GroupID)(0) & "</font> 元"
Else
Tips = "￥ <font color=""red"">" & FormatNumber(rs(1),2,-1) & "</font> 元"
end if
End If
End If
rs.Close
Set rs = Nothing
End If
Response.Write "document.write('" & Tips & "');"
Response.Write "document.write('<script src=""" & KS.Setting(3) & "ks_inc/kesion.box.js"" language=""JavaScript""></script>');"
%>
function ShowLogin()
{
new KesionPopup().popupIframe('会员登录','<%=KS.Setting(3)%>user/userlogin.asp?Action=Poplogin',397,184,'no');
}
<%
Call CloseConn()
Set KS=Nothing
%>

这样就可以了。

[url]http://www.xjpets.com[/url]新疆宠物网

反对(1)

底部