批量更改图片名称及处理数据库相关图片名称

<form name="form1" method="get" action="refile.asp">
              <p>
                <input name="path" type="hidden" id="path" value="<%=UploadDir%>">
                  <input name="url" type="hidden"  value="FileManage_Down.asp">
                  <input name="tname" type="hidden" id="tname" value="<%=theFile.Name%>"><input name="newname" type="text" id="newname" value="<%=theFile.Name%>"><input type="submit" name="Submit" value="修改">
              </p>
          </form>

<%
Dim fso,tname,path,newname,url
url=request("url")
newname=request("newname")
path=request("path")
tname=request("tname")
   Set fso = CreateObject("Scripting.FileSystemObject")
  fso.MoveFile server.mappath(path&tname),server.mappath(path&newname)
   Set fso=Nothing
  
Set Conn   = Server.CreateObject("ADODB.Connection")
Conn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/com02.mdb")
Set rs = Server.Createobject("ADODB.Recordset")
sql="Select * from [Download]"
rs.open sql,conn,1,3
while not rs.eof
rs("DownloadUrl")=replace(rs("DownloadUrl"),tname,newname)
rs("Content")=replace(rs("Content"),tname,newname)
rs("PhotoUrl")=replace(rs("PhotoUrl"),tname,newname)

rs.update
rs.movenext
wend
rs.close
set rs=nothing
Set rs = Server.Createobject("ADODB.Recordset")
sql="Select * from [news]"
rs.open sql,conn,1,3
while not rs.eof
rs("Content")=replace(rs("Content"),tname,newname)
rs.update
rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing


   response.Redirect(url)
   response.end
%>