• 欢迎@方程式 @小云 加入我们
  • Register

科汛KesionCMS:商城幻灯片调用商品大图方法[原创]

使用kesioncms的商城模型时,发现如果分别上传商品的大图和小图时,商城模型的幻灯片调用的却是商品的小图,这就让人郁闷了,在论坛求助后无人问津,只好自己动手!

曾经用LB和SQL两种标签都做过幻灯片部分的优化处理,但这次对6.5新增的Flash幻灯4是没想好怎么实现,只好对系统函数动刀,原理是新增判断幻灯模型是否为商城模型,如果是则调用商品大图,很简单吧!这样无论哪种幻灯都能应用自如。下面对我的方法进行详解,不知是不是最合适的,如果你有更牛X的,欢迎分享!

首先找到文件 Kesion.Label.FunctionCls.asp,查找到通用幻灯函数GetSlide,以下是具体修改及说明,如有疑问,留言处理!ps. 红色为新增部分

  Function GetSlide(LabelStyle)

       LoadLabelParam

    If LoadSucceed = false Then GetSlide="标签加载出错!":Exit Function 

    Dim SqlStr,TableName,FieldStr

    If ModelID="0" Then 

      TableName = "[KS_ItemInfo]" : FieldStr="I.InfoID as ID,I.Title,I.ChannelID,I.Tid,I.PhotoUrl,I.Fname"

      Param = Param & " and PhotoUrl<>''" 

    Else If ModelID="5" Then   '如果是商城模型,则调出商品大图

      TableName = "[KS_Product]" : FieldStr="I.ID,I.Title,I.Tid,I.PhotoUrl,I.BigPhoto,I.Fname"
 

    Else 

      TableName = KS.C_S(ModelID,2) : FieldStr="I.ID,I.Title,I.Tid,I.PhotoUrl,I.Fname"

      If KS.C_S(ModelID,6)=1 Then Param=Param & " and I.PicNews=1" 

    End If 

    End If

    SqlStr = "SELECT TOP " & Num & " " & FieldStr & " FROM " & TableName & " I " & Param & " ORDER BY I.ID Desc" 

 

'''''''''以下代码部分省略,找到并修改函数部分 ExplainSlideLabelBody()'''''''''

    IF Cint(SlideType)<>1 Then 

      Dim ImgArrStr,LinkArrStr,TextArrStr

      N=0

      For K=0 To TotalNum-1

           Set Node=DocNode.Item(n)

           Title         = Node.SelectSingleNode("@title").text 

           'PhotoUrl      = Node.SelectSingleNode("@photourl").text : PhotoUrl= GetPicUrl(PhotoUrl)   '此行为原句,注释掉

      '修改开始:如果是商城模型则调出商品大图作为幻灯图片

      If ModelID="5" Then  

        PhotoUrl      = Node.SelectSingleNode("@bigphoto").text : PhotoUrl= GetPicUrl(PhotoUrl)

      Else

        PhotoUrl      = Node.SelectSingleNode("@photourl").text : PhotoUrl= GetPicUrl(PhotoUrl)

      End If

      '修改结束:如果是商城模型则调出商品大图作为幻灯图片
 

       

        If ModelID=0 Then CurrModelID=Cint(Node.SelectSingleNode("@channelid").text) Else CurrModelID=ModelID

        LinkUrl       = KS.GetItemURL(CurrModelID,Node.SelectSingleNode("@tid").text,Node.SelectSingleNode("@id").text,Node.SelectSingleNode("@fname").text) 

'''''''''以下代码部分省略'''''''''

 

版权声明:转载请注明来自杨俊伟博客,本文地址:http://yangjunwei.com/a/424.html
除非注明,杨俊伟博客文章均为原创,转载请注明出处和链接!
 

2 条评论 »

发表评论 

我还是想用邮箱注册

登录

忘记密码 ?

用第三方帐号快捷登录

已有账户?前往登录吧~

注册