把shop系统的KS_Cls/Kesion.Label.CommonCls.asp中以下代码复制到cms,可以显示现在看到的效果。
'================================商城系统开始================================
case "getproductname" echo GetNodeText("title")
case "getproductintro" echo KS.ReplaceInnerLink(GetNodeText("prointro"))
case "getproductid" echo GetNodeText("proid")
case "getproducturl" echo KS.GetItemURL(ModelID,GetNodeText("tid"),ItemID,GetNodeText("fname"))
case "getproductmodel" echo GetNodeText("promodel")
case "getbrandid" echo GetNodeText("brandid")
case "getbrandname" echo KS.C_B(KS.ChkClng(GetNodeText("brandid")),"brandname")
case "getbrandename" echo KS.C_B(KS.ChkClng(GetNodeText("brandid")),"brandename")
case "getbrandphoto"
Dim BrandPhoto:BrandPhoto=KS.C_B(KS.ChkClng(GetNodeText("brandid")),"photourl")
If KS.IsNul(BrandPhoto) Then BrandPhoto="/Images/nopic.gif"
echo BrandPhoto
case "getproductspecificat" echo GetNodeText("prospecificat")
case "gettrademarkname" echo GetNodeText("trademarkname")
case "getserviceterm" echo GetNodeText("serviceterm")
case "getproducername" echo GetNodeText("producername")
case "getproducttype" echo GetProductType(GetNodeText("producttype"))
case "gettotalnum" echo "<script src='" & DomainStr & "shop/getstock.asp?id=" & GetNodeText("id") &"'></script>"
case "getproductunit" echo GetNodeText("unit")
case "gethassold" echo "<script src='" & DomainStr & "shop/getstock.asp?action=HasSold&id=" & GetNodeText("id") &"'></script>"
'conn.execute("select sum(amount) from ks_orderitem i inner join ks_order o on i.orderid=o.orderid where (o.status=1 or o.status=2)")(0)
case "getprice_market" echo formatnumber(GetNodeText("price_market"),2,-1)
case "getprice" if ModelID=5 Then echo formatnumber(GetNodeText("price"),2,-1) Else Echo GetNodeText("price")
case "getprice_member" echo formatnumber(GetNodeText("price_member"),2,-1)
case "getprice_original" echo formatnumber(GetNodeText("price_original"),2,-1)
case "getgroupprice" echo "<script src=""" & DomainStr &"shop/GetGroupPrice.asp?ProID=" & ItemID & """ type=""text/javascript""></script>"
case "getdiscount" If GetNodeText("producttype")="3" Then echo GetNodeText("discount") Else Echo "---"
case "getscore" echo GetNodeText("point")
case "getaddcarattribute"
echo "<div class=""carbox"">"
echo "<form name=""cartform"" id=""cartform"" method=""post"" action=""" & DomainStr & "shop/shoppingcart.asp"">"
echo "<input type=""hidden"" name=""action"" value=""Add"">"
dim attr,attrarr,attrvalue,attrname,varr,k,vlen,alen
attr=GetNodeText("attributecart") : alen=0 : vlen=0
If Not KS.IsNul(attr) Then
attrarr=split(attr,"