[p=21, null, left]科讯V9.3商城系统，使用系统函数标签 选择会员价时 ，当未登录时不出价格而是显示提示登录。

[p=21, null, left]现改为 未登录时显示商城价，登录时显示会员价。

[p=21, null, left]需改一处，修改sap   /Shop/GetGroupPrice.asp

[p=21, null, left]Dim KS,t,l

[p=21, null, left]Set KS=New PublicCls

[p=21, null, left]Set KSUser = New UserCls

[p=21, null, left]Dim ProID,Tips,RS,SqlStr,RealPrice

[p=21, null, left]ProID = KS.ChkClng(KS.S("ProID"))

[p=21, null, left]T     = KS.S("T")

[p=21, null, left]l     = KS.ChkClng(KS.S("l"))

[p=21, null, left] If ProID = 0 Or Cbool(KSUser.UserLoginChecked)=false Then

[p=21, null, left]    IF T="p" Then

[p=21, null, left]  If l=1 Then

[p=21, null, left]   SqlStr = "SELECT Top 1 Price_Member,isdiscount,islimitbuy,limitbuyprice FROM KS_Product Where ID=" & ProID

[p=21, null, left]        Set RS = Server.CreateObject("ADODB.Recordset")

[p=21, null, left]        RS.Open SqlStr, conn, 1, 1

[p=21, null, left]        If Not RS.bof  Then

[p=21, null, left]Tips="￥"&FormatNumber(rs(0),2,-1)

[p=21, null, left]

[p=21, null, left]End If

[p=21, null, left]        rs.Close

[p=21, null, left]        Set rs = Nothing

[p=21, null, left]

[p=21, null, left]        '隐藏原始代码Tips = "<a href=""javascript:ShowLogin();"">登录</a>"

[p=21, null, left]  Else

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

[p=21, null, left]  End If

[p=21, null, left]Else

[p=21, null, left]备注：红色未添加部分，蓝色未修改部分

http://bbs.kesion.com/forumthread-1065779.html没有乱码

先好好了解一下啊。。。。。。。。。。。。。