让自由js可以调用图片，我想这个功能还是有点用的，因为前面有些帖子是说这个问题的。

我是这样修改的。

在 admin\Include\JS\AddWordJS.asp文件里面 大约216行

         Response.Write ("<option value=""D""" & SelStr & ">样式D</option>")
         If WordCss = "E" Then
           SelStr = " Selected"
           Else
           SelStr = ""
           End If
         Response.Write ("<option value=""E""" & SelStr & ">样式E</option>")
这下面 加上

        If WordCss = "F1" Then
           SelStr = " Selected"
           Else
           SelStr = ""
           End If
         Response.Write ("<option value=""F1""" & SelStr & ">样式F1</option>")
        If WordCss = "F2" Then
           SelStr = " Selected"
           Else
           SelStr = ""
           End If
         Response.Write ("<option value=""F2""" & SelStr & ">样式F2</option>")
         If WordCss = "F3" Then
           SelStr = " Selected"
           Else
           SelStr = ""
           End If
        Response.Write ("<option value=""F3""" & SelStr & ">样式F3</option>")

这里面F1 F2 F3是图片gif的名字 放在 admin\Images\View 文件夹里面

接着 KS_Cls/Kesion.Label.FunctionCls.asp 里面 大约 3064行

      If Not RS.EOF Then
      Dim TempStr, TempTitle, NaviStr,ArticleContent, I, ColSpanNum,PhotoUrl (红色为新加定义)

在3073行

       TempTitle = "<a " & KS.GetCss(T_Css) & " href=""" & KS.GetItemUrl(channelid,rs("tid"),rs("id"),rs("fname")) & """" & KS.G_O_T_S(OpenType) & " title=""" & RS("Title") & """>" & TempTitle & "</a>"
       R_H = KS.G_R_H(R_H)
       NaviStr = KS.GetNavi(NavType, Nav)

这些下面增加

             PhotoUrl = "<a " & KS.GetCss(ContentCss) & " href=""" & KS.GetItemUrl(channelid,rs("tid"),rs("id"),rs("fname")) & """" & KS.G_O_T_S(OpenType) & " title=""" & RS("Title") & """><img src=""" & RS("PhotoUrl") & """/></a>"

然后在3125行左右

      Case "E"
         TempStr = TempStr & "<table width=""100%"" height=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">"
         TempStr = TempStr & "<tr><td><table width=""100%"" height=""100%""><tr><td><span " & KS.GetCss(ContentCss) & ">&nbsp;&nbsp;&nbsp;&nbsp;" & KS.GotTopic(Replace(Replace(Replace(KS.LoseHtml(ArticleContent), vbCrLf, ""), "[NextPage]", ""), "&nbsp;", ""), C_Len) & "……</span></tr>" & KS.GetMoreLink(1,1, R_H, MoreType, MoreLink, KS.GetItemUrl(channelid,rs("tid"),rs("id"),rs("fname")), KS.G_O_T_S(OpenType)) & "</table></td>"
         TempStr = TempStr & "<td> " & NaviStr & "<br><span" & KS.GetCss(T_Css) & " >" & KS.ListTitle1(Trim(RS("Title")), T_Len) & "</span></td></tr>"
         TempStr = TempStr & KS.GetSplitPic(SplitPic, ColSpanNum)
         TempStr = TempStr & "</table>"

这些下面 增加

      Case "F1"
       TempStr = TempStr & "<table width=""100%"" height=""" & R_H & """ cellpadding=""0"" cellspacing=""0"" border=""0"">"
       TempStr = TempStr & "<tr><td> " & PhotoUrl & "</td>"
       TempStr = TempStr & "</tr>"
       ColSpanNum = 1
         If SplitPic <> "" Then
         TempStr = TempStr & KS.GetSplitPic(SplitPic, ColSpanNum)
         End If
         TempStr = TempStr & "</table>"
      Case "F2"
       TempStr = TempStr & "<table width=""100%"" height=""" & R_H & """ cellpadding=""0"" cellspacing=""0"" border=""0"">"
       TempStr = TempStr & "<tr><td> " & PhotoUrl & NaviStr & "<br><span " & KS.GetCss(T_Css) & ">" & KS.ListTitle1(Trim(RS("Title")), T_Len) & "</span></td>"
       TempStr = TempStr & "</tr>"
       ColSpanNum = 1
         If SplitPic <> "" Then
         TempStr = TempStr & KS.GetSplitPic(SplitPic, ColSpanNum)
         End If
         TempStr = TempStr & "</table>"
      Case "F3"
         TempStr = TempStr & "<table width=""100%"" height=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">"
         TempStr = TempStr & "<tr><td> " & PhotoUrl & "</td>"
         TempStr = TempStr & "<td><table width=""100%"" height=""100%""><tr><td> " & NaviStr & "<br><span " & KS.GetCss(T_Css) & ">" & KS.ListTitle1(Trim(RS("Title")), T_Len) & "</span></td></tr><tr><td><span " & KS.GetCss(ContentCss) & ">&nbsp;&nbsp;&nbsp;&nbsp;" & KS.GotTopic(Replace(Replace(Replace(KS.LoseHtml(ArticleContent), vbCrLf, ""), "[NextPage]", ""), "&nbsp;", ""), C_Len) & "……</span></tr>" & KS.GetMoreLink(1,1, R_H, MoreType, MoreLink, KS.GetItemUrl(channelid,rs("tid"),rs("id"),rs("fname")), KS.G_O_T_S(OpenType)) & "</table></td></tr>"
         TempStr = TempStr & KS.GetSplitPic(SplitPic, ColSpanNum)
         TempStr = TempStr & "</table>"

现在你自由js就可以调用文章中有 “图片地址” 的图片了 不过 “图片地址”中要是空的 就会显示错误的 那就的修改判断一下了 有时间自己修改吧