关于ASP批量修改文件名的问题
请问为什么我这段代码可以显示已修改成功pic文件夹中的图片,但实际上文件夹中的文件名称还是好好的。望高手帮忙改改啊。
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile ="pic/"&request.form("xg1")
NFile ="pic/"&request.form("xg2")
on Error Resume Next
fs.MoveFile SFile, NFile
If Err.Number = 53 Then
Response.Write File & "文件不存在!"
Response.End
Elseif Err.Number = 58 Then
Response.Write File & "文件已存在!"
Response.End
Else
%>
<%
FsFolder="pic"
ServerFsFolder=Server.MapPath(""&FsFolder&"")
%>
<%
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(ServerFsFolder)
Set fc = f.Files
filenum=fc.count
%>
<form id="form1" name="form1" method="POST" action="index.asp" onSubmit="return chksubmit();">
<%
i=0
For Each f1 in fc
Filenames= f1.name
i=i+1
%>
<p>
原名<input name="xg1" type="text" id="xg1" value="<%=Filenames%>" size="25" />
</p>
<p>
改为<input name="xg2" type="text" id="xg2" value="<%=i%>.jpg" size="25" />
</p>
<%Next
Set Files=Nothing
Set Folder=Nothing
Set FSO=Nothing
%>
<p>
<input type="submit" name="Submit" value="提交" />
</p>
<input name="Action" type="hidden" id="Action" value="Add" />
<%
if request.form("xg1")="" then
response.write ""
else
Response.Write "成功重命名文件!" & SFile &"为" &NFile& ""
End If
end if%>