asp-涂

来源:互联网 发布:java权限设计方案 编辑:程序博客网 时间:2024/03/29 08:24

<%
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
%>
 

原创粉丝点击