你到ks_cls/kesion.label.commoncls.asp里改下,做下判断就行

'下载缩略图(带参数)
    If InStr(F_C, "{=GetDownPhoto") <> 0 Then
     Dim HtmlLabel: HtmlLabel = KSLabel.GetFunctionLabel(F_C, "{=GetDownPhoto")
     Dim HtmlLabelArr:HtmlLabelArr=Split(HtmlLabel,"@@@")
     For I=0 To Ubound(HtmlLabelArr)
      Dim Param: Param = KSLabel.GetFunctionLabelParam(HtmlLabelArr(I), "{=GetDownPhoto")
      Dim LogoWidth: LogoWidth = Split(Param, ",")(0)
      Dim LogoHeight: LogoHeight = Split(Param, ",")(1)
      Dim PhotoUrl:PhotoUrl=RS("PhotoUrl")
      If Not (IsNull(PhotoUrl) Or PhotoUrl = "") Then
       F_C = Replace(F_C,HtmlLabelArr(I), "<div align=""center""><img src=""" & PhotoUrl & """  width=""" & LogoWidth & """ height=""" & LogoHeight & """ border=""0""></div>")
      Else
       F_C = Replace(F_C, HtmlLabelArr(I), "<div align=""center""><img src=""" & DomainStr & "images/nopic.gif""  width=""" & LogoWidth & """ height=""" & LogoHeight & """ border=""0""></div>")
      End If
       Next
      End If

实现了

http://www.6sc6.cn/DownLoad/ShowInfo.asp?ID=126

谢谢

高手呢？