ASP复制文件

<% 

dim fs,oldpath,newpath

Set fs=Server.CreateObject("Scripting.FileSystemObject")

oldpath=server.mappath("test.asp")     '原文件路径

newpath=server.mappath("test2.asp") '复制以后的文件路径

fs.CopyFile oldpath,newpath

set fs=nothing

%>