高分+50：asp从Access数据库里读取并转移图片附件到指定目录

<!--#include file="connasp"-->
<%
Function CopyFiles(CopyFrom,CopyTo)
Dim fso
Set fso = ServerCreateObject("ScriptingFileSystemObject")
IF fsoFileExists(CopyTo) then
CopyFiles = "目标文件 <b>" & CopyTo & "</b> 已存在，请先删除!"
Set fso =Nothing
Exit Function
End IF
IF not fsoFileExists(CopyFrom) Then
CopyFiles = "要复制的文件 <b>"&CopyFrom&"</b> 不存在!"
Set fso =Nothing
Exit Function
End If
fsoCopyFile CopyFrom,CopyTo
CopyFiles = "已经成功复制文件 <b>"&CopyFrom&"</b> 到 <b>"&CopyTo&"</b>"
Set fso = Nothing
End Function
FromPath = "OldFolder/" '假设原来的放在OldFolder文件夹
ToPath = "NewFolder/" '假设要把复制到NewFolder文件夹
'如果不存在NewFolder文件夹，则建立NewFolder文件夹
Set fso = ServerCreateObject("ScriptingFileSystemObject")
IF not fsoFolderExists(serverMapPath(ToPath)) then
fsocreateFolder(serverMapPath(ToPath))
end if
Set fso = nothing
'逐个复制数据库中记录的
sql = "select from abcd"
set rs = connexecute(sql)
if not rseof then
do while not rseof
if not isnull(rs("1234")) and rs("1234")<>"" and rs("1234")<>"0" and rs("1234")<>"nojpg" then
responseWrite(CopyFiles(serverMapPath(FromPath & rs("1234")),serverMapPath(ToPath & rs("1234"))) & "<br />")
end if
rsmovenext
loop
end if
rsclose
set rs = nothing
%>

以上就是关于高分+50：asp从Access数据库里读取并转移图片附件到指定目录全部的内容，包括:高分+50：asp从Access数据库里读取并转移图片附件到指定目录、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！