asp-涂

最新推荐文章于 2024-05-23 20:30:26 发布

johnzen

最新推荐文章于 2024-05-23 20:30:26 发布

阅读量783

点赞数

文章标签： action path input function each

本文链接：https://blog.csdn.net/johnzen/article/details/942909

版权

<%
Function OneFolder(Folder1,path)
dim FileName,TrueFileName,item1,item
  response.write "<span style='color:red;'>目录："&path&"</span><br>"
For Each Item In Folder1.Files
     FileName=Item.name     '============获取整个文件名
  TrueFileName=Left(FileName,InStrRev(FileName, ".")-1)'============获取文件名
      if right(FileName,4)=".rar" then
  Response.Write "文件："&path&"/"&TrueFileName&".rar 改名为 "&path&"/"&TrueFileName&"."&FileH&"<br>"
  item.Move path&"/"&TrueFileName&"."&FileH
   end if
Next
For Each Item1 In Folder1.SubFolders
OneFolder Item1,path&"/"& item1.name
    Next
End Function
%>
<%

dim Action,SourceFolder,FileH,path
Action=Request.form("Action")
FileH=Request.form("FileH")
SourceFolder=Request.form("SourceFolder")
%>

<form id="form1" name="form1" method="post" action="name.asp">
请输入文件夹路径：
    <input name="SourceFolder" type="text" id="SourceFolder" value="<%=SourceFolder%>" />

修改为的后缀名：
<input name="FileH" type="text" id="FileH" size="6" value="<%=FileH%>"/>
<label>
    <input type="submit" name="Submit" value=" 修改 " />
</label>
    <input name="Action" type="hidden" id="Action" value="xiugai" />
</form>
<%
if Action="xiugai" then
   if SourceFolder="" or FileH="" then
      Response.Write "<script>alert('源文件目录或后缀名没有填写');</script>"
   else
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
  path=Server.MapPath(SourceFolder)
  Set Folder=fso.GetFolder(path)
  OneFolder Folder,path
      Response.Write "<script>alert('修改完毕');</script>"
   end if
end if
%>