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(' <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(' <font size=2>" & UpType & "图片上传成功!</font>');")
End If