网站上的图片修改多数需要使用FTP来实现，现在只需一步就告别使用FTP上传图片的烦恼。

本次开发主要是解决修改最为频繁的Images文件为例。

一、使用方法：

1、基本信息设置：选择新增的选项

2、编辑器添加图片图片

3、先删除要修改的文件

4、上传（上传前去掉自动更名前的勾）

OK，图片替换成功!

5、复原上传文件目录选项（图片修改完后一定要，将选项改回去。不然客户上传的图片全跑Images文件夹里）

二、代码修改（需修改五个asp文件）

1、asp文件

admin/KS.Setting.asp

If Setting(96) = "2" Then .Write (" checked")

.Write " >总上传目录/年-月-日/管理员ID<br/>"

.Write "         <input type=""radio"" name=""Setting(96)"" value=""4"" "

If Setting(96) = "4" Then .Write (" checked")

.Write " >总上传目录/管理员ID"

IF KS.C("AdminName")="admin" Then '只有admin拥有此选项

.Write "<br/>"

.Write "         <input type=""radio"" name=""Setting(96)"" value=""5"" "

If Setting(96) = "5" Then .Write (" checked")

.Write " >上传目录Images(超级管理员修改网站图片专用)"

End IF

.Write "    </td> </tr>"

   .Write "     <tr valign=""middle""  class=""tdbg""this.className='tdbgmouseover'""this.className='tdbg'"">"

2、asp文件

KS_Cls/Kesion.CommonCls.asp

'取上传目录6.0改为按日期存放

Function GetUpFilesDir()

  Dim DateFolder

  Dim UserFolder:UserFolder=ChkClng(C("UserID"))

  Select Case ChkClng(Setting(96))

   case 1 DateFolder=Setting(3) & Setting(91) & Year(Now) & "-" & Right("0"&Month(Now),2) & "/" & UserFolder   

   case 2 DateFolder=Setting(3) & Setting(91) & Year(Now) & "-" & Right("0"&Month(Now),2) & "-" & Right("0"&Day(Now),2) & "/" & UserFolder   

   case 3 DateFolder=Setting(3) & Setting(91) & Year(Now) & "/" & UserFolder

case 5 DateFolder=Setting(3) & "images/"

   case Else DateFolder=Setting(3) & Setting(91) & UserFolder   

  End Select

  CreateListFolder(DateFolder)

  GetUpFilesDir=DateFolder

End Function

3、asp文件

admin/Kesion.CommonCls.asp

'上传文件带进度条

Sub UpFileByBar()

dim CurrPath:CurrPath=KS.G("CurrPath")

if currpath<>"" then

IF KS.C("AdminName")="admin" and KS.Setting(96)=5 Then

   Dim SettImg:SettImg="images/"

if left(lcase(currpath),len(KS.Setting(3) & SettImg))<>lcase(KS.Setting(3) & SettImg) then currpath=KS.GetUpFilesDir

Else

   if left(lcase(currpath),len(KS.Setting(3) & KS.Setting(91)))<>lcase(KS.Setting(3) & KS.Setting(91)) then currpath=KS.GetUpFilesDir

End IF

end if

4、asp文件

admin/Include/SelectPic.asp

If InstallDir<>"/" then

if instr(CurrPath,InstallDir)=0 Then

CurrPath = Replace(InstallDir & CurrPath,"//","/")

End If

End iF

IF KS.C("AdminName")="admin" and KS.Setting(96)=5 Then

   Dim SettImg:SettImg="images/"

if left(lcase(currpath),len(KS.Setting(3) & SettImg))&"/"<>lcase(KS.Setting(3) & SettImg) then currpath=KS.GetUpFilesDir

If KS.C("SuperTF")="1" Then CurrPath=KS.Setting(3) & left(SettImg,len(SettImg)-1)

Else

   if left(lcase(currpath),len(KS.Setting(3) & KS.Setting(91)))&"/"<>lcase(KS.Setting(3) & KS.Setting(91)) then currpath=KS.GetUpFilesDir

If KS.C("SuperTF")="1" Then CurrPath=KS.Setting(3) & left(ks.setting(91),len(ks.setting(91))-1)

End IF

'ks.die CurrPath&"++"&KS.GetUpFilesDir '检测路径

if currpath="/" then currpath =ks.setting(3) & left(ks.setting(91),len(ks.setting(91))-1)

5、asp文件

admin/Include/swfupload.asp

if UpFileObj.Form("from")="getfile" then

FormPath=UpFileObj.Form("currpath")

if right(FormPath,1)<>"/" then FormPath=FormPath &"/"

End If

IF KS.C("AdminName")="admin" and KS.Setting(96)=5 Then

   Dim SettImg:SettImg="images/"

if left(lcase(FormPath),len(KS.Setting(3) & SettImg))<>lcase(KS.Setting(3) & SettImg) then FormPath=KS.GetUpFilesDir '判断上传目录合法性

Else

   if left(lcase(FormPath),len(KS.Setting(3) & KS.Setting(91)))<>lcase(KS.Setting(3) & KS.Setting(91)) then FormPath=KS.GetUpFilesDir '判断上传目录合法性

End IF

'上传路径FormPath 服务器路径FilePath

'Response.Write  FormPath&"|"&KS.GetUpFilesDir '测试路径

'Response.end

        if right(FormPath,1)="/" then FormPath=left(FormPath,len(FormPath)-1)

备注：红色为修改部分

感谢分享，能力强。无私，好样的