科讯V9.3商城系统，使用系统函数标签 选择会员价时 ，当未登录时不出价格而是显示提示登录。
现改为 未登录时显示商城价，登录时显示会员价。

需改一处，修改sap   /Shop/GetGroupPrice.asp

Dim KS,t,l
Set KS=New PublicCls
Set KSUser = New UserCls
Dim ProID,Tips,RS,SqlStr,RealPrice
ProID = KS.ChkClng(KS.S("ProID"))
T     = KS.S("T")
l     = KS.ChkClng(KS.S("l"))
If ProID = 0 Or Cbool(KSUser.UserLoginChecked)=false Then
    IF T="p" Then

   If l=1 Then


    SqlStr = "SELECT Top 1 Price_Member,isdiscount,islimitbuy,limitbuyprice FROM KS_Product Where ID=" & ProID
        Set RS = Server.CreateObject("ADODB.Recordset")
        RS.Open SqlStr, conn, 1, 1
        If Not RS.bof  Then
               
Tips="￥"&FormatNumber(rs(0),2,-1)


End If
        rs.Close
        Set rs = Nothing

  
       '隐藏原始代码Tips = "<a href=""javascript:ShowLogin();"">登录</a>"

   Else
        Tips = "登录查看您的价格。<a href=""javascript:ShowLogin();""><font color=red>登录</font></a> <a href=""" & KS.Setting(3) & "?do=reg""><font color=red>注册</font></a>"

   End If

Else



备注：红色为添加部分，蓝色为修改部分