asp

<form id="form1" name="form1" method="get" action="xiugai.asp">
  请输入文件夹路径：
    <input name="SourceFolder" type="text" id="SourceFolder" />
   
  修改为的后缀名：
  <input name="FileH" type="text" id="FileH" size="6" />
  <label>
    <input type="submit" name="Submit" value=" 修 改 " />
  </label>
    <input name="Action" type="hidden" id="Action" value="xiugai" />
</form>
<%
dim Action,SourceFolder,FileH
Action=Request.QueryString("Action")
FileH=Request.QueryString("FileH")
SourceFolder=Request.QueryString("SourceFolder")
if Action="xiugai" then
   if SourceFolder="" or FileH="" then
      Response.Write "<script>alert('源文件目录或后缀名没有填写');</script>"
   Response.End()
   else
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      Set Folder=fso.GetFolder(Server.MapPath(SourceFolder))
  
      For Each Item In Folder.Files
         Set f = fso.GetFile(Item)
      dim FileName,TrueFileName
      FileName=mid(Item,InStrRev(Item, "/")+1)'============获取整个文件名
      TrueFileName=Left(FileName,InStrRev(FileName, ".")-1)'============获取文件名
      fso.MoveFile item,Server.MapPath(SourceFolder)&"/"&TrueFileName&"."&FileH
      Next
      Response.Write "<script>alert('修改完毕');</script>"
   Response.End()
   end if
end if

%>