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

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

<!--#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数据库里读取并转移图片附件到指定目录、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/10192320.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-06
下一篇 2023-05-06

发表评论

登录后才能评论

评论列表(0条)

保存