图片另存问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 16:03:29
在服务器端的目录下有两个文件夹firstnew和news，里面存的是上传的图片，图片的路径保存在数据库中，现在要实现单击“另存”按钮，把firstnew中的一张图片保存到news中，应该怎么做呢？

'-------------------------------------------------------
'参数:FileName:文件名;SourceDir:原目录;TargetDir:目标目录
'--------------------------------------------------------
Function CopyFileTo(FileName,SourceDir,TargetDir)
On Error Resume Next
Dim FSO,File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile(Server.MapPath(SourceDir&FileName))
File.Copy(Server.MapPath(TargetDir&FileName));
If Err.number<>0 Then
Response.Write("错误信息:" & Err.number & "" & Err.Description)
Err.Clear
End If
Set FSO=Nothing
End Function

用服务器的权限登陆进去 直接移过去不就好了么