[Quote]  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) 
'''''''''以下代码部分省略'''''''''[/Quote]

顺便给大家推荐本人使用的idc   http://idc.nuodou.com  高性价比 7天免费试用 30天可退款  安全有保障！