动易的商城会员价格是开放的,如何实现会员价格只有登陆才能看到,不登陆提示未登陆或者不显示?
动易商城在内容页显示当前访问者的价格标签是{$Price_Your} ,如果想在商城首页及栏目页显示商品的当前访问者的价格,这个标签没法解决这个问题,那么我们就另辟新径来实现这个功能:
1、添加一个自定义标签
{$MY_price} 标签的定义:
提示内容:在栏目页或商城首页相关地方显示前访问者的价格
标签内容:
<script language='javascript' src='/cn/shop/GetPrice.asp?ProductID={$ProductID}'></script>
优先级:1
注意,将cn换成你安装动易的目录
2、修改GetPrice.asp文件
将
Dim ProductID
ProductID = PE_CLng(Trim(request("ProductID")))
If ProductID > 0 Then
Response.Write "document.write('" & FormatNumber(GetPrice(), 2, vbTrue, vbFalse, vbTrue) & "');"
End If
改为
Dim ProductID
ProductID = PE_CLng(Trim(request("ProductID")))
If ProductID > 0 and not isNumeric(GetPrice()) Then
'Response.Write "document.write('" & FormatNumber(GetPrice(), 2, vbTrue, vbFalse, vbTrue) & "');"
Response.Write "document.write('" &GetPrice() & "');"
else
Response.Write "document.write('" & FormatNumber(GetPrice(), 2, vbTrue, vbFalse, vbTrue) & "元');"
End If
将
Case 0, 1 '未登录
Select Case rs("ProductType")
Case 1, 2, 4, 5
dblTruePrice = rs("Price")
改为
Case 0, 1 '未登录
Select Case rs("ProductType")
Case 1, 2, 4, 5
'dblTruePrice = rs("Price")
dblTruePrice = "请登陆"
3、将{$MY_price} 标签加入到首页、及栏目页的模板的相关地方。
图片展示:
会员登录后的显示
此主题相关图片如下:
-----感谢 中国风 wf3333 提供-----