关于ASP批量修改文件名的问题

fj800j 2009-10-22 02:23:22
请问为什么我这段代码可以显示已修改成功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%>
...全文
123 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
三楼の郎 2009-10-23
  • 打赏
  • 举报
回复
SFile =Server.mappath("pic/" & request.form("xg1"))
NFile =Server.mappath("pic/" & request.form("xg2"))
liuwei_IT_love 2009-10-23
  • 打赏
  • 举报
回复
五楼办法可行,然后注意value的值不能有空格
ayouori 2009-10-23
  • 打赏
  • 举报
回复
可能是服务器fso权限设置问题
youhao1999 2009-10-22
  • 打赏
  • 举报
回复
学习
凡夫与俗子 2009-10-22
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 lzp4881 的回复:]
value=" <%=Filenames%>"
value里面不要有空格,这怎么还有是有空格
[/Quote]

这个可能是论坛的关系。
lzp4881 2009-10-22
  • 打赏
  • 举报
回复
value="<%=Filenames%>"
value里面不要有空格,这怎么还有是有空格
lzp4881 2009-10-22
  • 打赏
  • 举报
回复
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = server.MapPath("images/"&request.form("xg1"))
NFile = server.MapPath("images/"&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%>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧