有二种方法，一个是用fso的复制方法
copyfile(原文件路径,目录文件路径,false or true)
然后用deletefile(文件名,false)删除原文件
另一个是写文件写到别的一个新建文件，再删除原文件
set MyFileObject=server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("文件名")
Set myTextFile=MyFileObject.OpenTextFile(filename)
While not myTextFile.AtEndOfStream
Mytext=mytext+MytextFile.Readall
Wend
再创建一个文件
filename=server.MapPath("新文件名")
Set myTextFile=MyFileObject.OpenTextFile(filename,2,true,-2)
'the 2 meaning forwriting
'the ture meaning 如果页面不存在，就创建一个新的页面
mytextfile.writeline mytext
然后再用deletefile("原文件名",false)删除原文件
