台州温岭做网站请找我们 (专业建站 | 诚信服务) 13958630945 在线客服 联系技术

佳源设计|台州网站建设|佳源网页设计

网站当前位置: 首页>>网站数据库安全与维护>>Asp移动文件从一个文件夹移动到另外个文件夹插件代码
网站空间知识
 
网站服务器安全
 
网站数据库安全与维护
 
网站数据库安全与维护
Mysql命令
SQL Server企业管理器
CSS定义首个文字大写
Sql Server清空原有表
Sql Server如何创建索
Asp移动文件从一个文件夹移动
SQL Server 安装:以
实现从数据库当中随机的读出5条
MSSQL以前进行的程序创建了
sqlserve2000 关于
如何把ACCESS转成SQL数
修改Mysql数据表从inno
sql server 2000
Sql Server2000安
识别SQL Server 20
SQL中CONVERT转化函数
PHP出现空白页面与无法载入m
磁盘打不开点击显示直接问是否格
Mysql Error
QL Server 2000数
Sql Server表的复制
php加载不进mysql
PHP MySql 模糊查询j
Sql Server测算Sql
 
 建站知识搜索
 
 网站数据库安全与维护 > Asp移动文件从一个文件夹移动到另外个文件夹插件代码

Asp移动文件从一个文件夹移动到另外个文件夹插件代码

3656次浏览
2013-05-23

网站建设涉及到的代码插件:Asp程序将数据库读取的图片文件从一个文件夹移动到另外一个文件夹
转载请说明出处:www.52-life.net
<%
Set conn=Server.Createobject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.Mappath("wddf/#dfdb_cn.mdb")


dim fso
set fso = server.createobject("scripting.filesystemobject")

Set Rs=server.CreateObject("Adodb.Recordset")
Rs.open "Select pic from cname order by cp_id asc",conn,1,1
IF Not (Rs.Eof And Rs.Bof) Then
rcd_count=rs.recordcount
For i=1 to rcd_count
If rs.eof then exit for
if fso.fileexists(server.mappath(rs(0))) then
fso.copyfile server.mappath(rs(0)),server.mappath("/pic1/"&rs(0)),true
else
response.write server.mappath(rs(0))&"文件不存在无法进行复制"
end if
Rs.movenext
Next
End IF

set fso = nothing
Rs.Close
Set rs=Nothing
conn.close
set conn=nothing
%>

功能实现:实现从固定文件夹下取出实际有用的文件,可以当做清理垃圾文件使用


页面所在本站地址: http://www.52-life.net/Nshow_reurl.asp?reurl=Asp_copy_file
上一篇 >>SQL Server企业管理器打开提示:MMC不能打开文件
下一篇 >>磁盘打不开点击显示直接问是否格式化