如果你的图片频道没有绑定二级域名可以不用修改

打开ks_cls/kesion.label.commoncls.asp，找到如下代码，并增加红色

case 4 '不分页

         Dim BigImgSrc,IntroList,BigPic

      For n=1 To TotalPage

        ThumbPic=Split(ContentArr(n-1),"|")(2) : If lcase(Left(ThumbPic,4))<>"http" Then ThumbPic=KS.Setting(2) & ThumbPic

        BigPic=Split(ContentArr(n-1),"|")(1) : If lcase(Left(BigPic,4))<>"http" Then BigPic=KS.Setting(2) & BigPic

        IntroList=IntroList & Split(ContentArr(n-1),"|")(0) &"|"

        BigImgSrc=BigImgSrc & BigPic &"|"

        If CurrPage = N Then

         ThumbList=ThumbList &"<li><a id=""t" & n & """ class=""currthumb"" href=""javascript:void(0)""showImg(" & n & ");""><img src=""" & ThumbPic &""" border=""0""/></a></li>"

        Else

         ThumbList=ThumbList &"<li><a id=""t" & n & """ class=""normalthumb"" href=""javascript:void(0)""showImg(" & n & ");""><img src=""" &ThumbPic &""" border=""0""/></a></li>"

        End If

      Next

        DefaultImageSrc=Split(ContentArr(0), "|")(1)

        If lcase(Left(DefaultImageSrc,4))<>"http" Then DefaultImageSrc=KS.Setting(2) & DefaultImageSrc

        DefaultImageIntro=Split(ContentArr(0), "|")(0)

        Tp=LFCls.GetConfigFromXML("picturelabel","/labeltemplate/label","style4")

        Tp=Replace(Tp,"{$TotalPage}",TotalPage)

        Tp=Replace(Tp,"{$ImgArr}",BigImgSrc)

        Tp=Replace(Tp,"{$IntroArr}",Replace(Replace(IntroList,"'","\'"),chr(10),"<br/>"))

        Tp=Replace(Tp,"{$ShowThumbList}",ThumbList)

        Tp=Replace(Tp,"{$DefaultImageSrc}",DefaultImageSrc)

        Tp=Replace(Tp,"{$DefaultImageIntro}",DefaultImageIntro)