添加/编辑文章，浏览上传图片后，图片可以自动插入到正文光标处。

如果把这个对勾 生成缩略图 拿掉，自动插入就失效了，要手动加进去才行。

试试看，是不是这样？

侃侃

这么快，强！

admin/include/upfilesave.asp,约183行

if DefaultThumb=0 then
         Response.Write("parent.document.all.PicUrl.value='" &  replace(TempFileStr,"|","") & "';")
        else
         If KS.CheckFile(ThumbPathFileName)=true Then        '检查是否存在缩略图
          Response.Write("parent.document.all.PicUrl.value='" & ThumbPathFileName & "';")
         Else
          Response.Write("parent.document.all.PicUrl.value='" & replace(TempFileStr,"|","") & "';")
         End If
         If Split(Split(KS.C_S(ChannelID,5),"@@@")(0),"|")(9)=1 Then
          If KS.C_S(ChannelID,34)=0 Then
          Response.Write("parent.ArticleContent.InsertPictureFromUp('" & replace(TempFileStr,"|","") &"');")
          Else
          Response.Write ("parent.insertHTMLToEditor('<img src=" & replace(TempFileStr,"|","") &" />');")
          End IF
         End If
         Response.Write("document.write('&nbsp;&nbsp;&nbsp;&nbsp;<font size=2>" & UpType & "图片上传成功！</font>');")
        end if
      End If

改成

if DefaultThumb=0 then
         Response.Write("parent.document.all.PicUrl.value='" &  replace(TempFileStr,"|","") & "';")
        else
         If KS.CheckFile(ThumbPathFileName)=true Then        '检查是否存在缩略图
          Response.Write("parent.document.all.PicUrl.value='" & ThumbPathFileName & "';")
         Else
          Response.Write("parent.document.all.PicUrl.value='" & replace(TempFileStr,"|","") & "';")
         End If
        
        end if
        If Split(Split(KS.C_S(ChannelID,5),"@@@")(0),"|")(9)=1 Then
          If KS.C_S(ChannelID,34)=0 Then
          Response.Write("parent.ArticleContent.InsertPictureFromUp('" & replace(TempFileStr,"|","") &"');")
          Else
          Response.Write ("parent.insertHTMLToEditor('<img src=" & replace(TempFileStr,"|","") &" />');")
          End IF
         End If
         Response.Write("document.write('&nbsp;&nbsp;&nbsp;&nbsp;<font size=2>" & UpType & "图片上传成功！</font>');")
      End If