打开ks_cls/kesion.functioncls.asp

找到

  '价格样式
  Function GetPriceStr(PriceType,Discount,Discount_v,Price_Original,Price,Price_Market,Price_Member)
        If Price_Market=0 Then Price_Market="—" Else Price_Market="￥"&Price_Market
     If Price_Member=0 Then Price_Member="—" Else Price_Member="￥"&Price_Member
     If Price_Original=0 Then Price_Original="—" Else Price_Original="￥"&Price_Original
       Select Case PriceType
     Case 0:GetPriceStr="市场价："&Price_Market &"<br />商城价：￥"&Price &"<br />会员价：" & Price_Member
     Case 1:GetPriceStr="原价："&Price_Original
     Case 2:GetPriceStr="商城价：￥"&Price
     Case 3:GetPriceStr="原　价："&Price_Original & "<br />会员价：" & Price_Member
     Case 4:GetPriceStr="商城价：￥"&Price & "<br />会员价：" & Price_Member
     Case 5:GetPriceStr="市场价："&Price_Market & "<br />商城价：￥"&Price
     Case 6:GetPriceStr="市场价："&Price_Market &"<br />原　价："&Price_Original & "<br />会员价："&Price_Member
     Case 7:GetPriceStr="市场价："&Price_Market &"<br />原　价："&Price_Original & "<br />商城价：￥"&Price & "<br />会员价："&Price_Member
    End Select
    If Cbool(Discount)=true Then GetPriceStr=GetPriceStr & "<br />折扣率："&FormatPercent(Discount_v/10,0)
  End Function

改成

  '价格样式
  Function GetPriceStr(PriceType,Discount,Discount_v,Price_Original,Price,Price_Market,Price_Member)
        If Price_Market=0 Then Price_Market="—" Else Price_Market="￥"&FormatNumber(Price_Market,2,-1)
     If Price_Member=0 Then Price_Member="—" Else Price_Member="￥"&FormatNumber(Price_Member,2,-1)
     If Price_Original=0 Then Price_Original="—" Else Price_Original="￥"&FormatNumber(Price_Original,2,-1)
     Price=FormatNumber(Price,2,-1)
       Select Case PriceType
     Case 0:GetPriceStr="市场价："&Price_Market &"<br />商城价：￥"&Price &"<br />会员价：" & Price_Member
     Case 1:GetPriceStr="原价："&Price_Original
     Case 2:GetPriceStr="商城价：￥"&Price
     Case 3:GetPriceStr="原　价："&Price_Original & "<br />会员价：" & Price_Member
     Case 4:GetPriceStr="商城价：￥"&Price & "<br />会员价：" & Price_Member
     Case 5:GetPriceStr="市场价："&Price_Market & "<br />商城价：￥"&Price
     Case 6:GetPriceStr="市场价："&Price_Market &"<br />原　价："&Price_Original & "<br />会员价："&Price_Member
     Case 7:GetPriceStr="市场价："&Price_Market &"<br />原　价："&Price_Original & "<br />商城价：￥"&Price & "<br />会员价："&Price_Member
    End Select
    If Cbool(Discount)=true Then GetPriceStr=GetPriceStr & "<br />折扣率："&FormatPercent(Discount_v/10,0)
  End Function