使用fso修改文件名同时更新数据库

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
sql="select * from suse" 'sql语句
set rs=server.createObject("ADODB.Recordset") '创建ado组件
rs.open sql,conn,1,3 '更新数据库要使用1，3
Set fso = Server.CreateObject("Scripting.FileSystemObject") '创建fso对象
for i=1 to rs.recordcount-1 '循环读取数据
if fso.fileExists (Server.MapPath(rs("tp"))) then '判断文件是否存在
fso.movefile Server.MapPath(rs("tp")),Server.MapPath("imgg/"&i&".jpg") '移动文件
rs("tp")="img/"&i&".JPG" ' 数据库赋值
end if '结束IF循环
rs.movenext '指针向下
next '结束FOR循环
rs.update '更新语句
%>

原文标题：使用fso修改文件名同时更新数据库--QQ技术交流群:90991311
原文网址：http://www.jixinfz.cn/asp/6.asp?id=134