<HTML>
<HEAD>
 <TITLE>恅璃紱釬尨瞰</TITLE>
</HEAD>
<BODY>
<%
Dim fso,mytxt
Set fso = Server.CreateObject("Scripting.FileSystemObject")
path1=server.MapPath("10-03-1.txt")
path2=server.MapPath("10-03-2.txt")
path3=server.MapPath("10-03-3.txt")
%>
<P>淏婓斐膘恅璃＃＃</P>
<%
Set mytxt = fso.CreateTextFile(path1)
mytxt.Close
%>
<P>淏婓葩秶恅璃＃＃</P>
<% fso.CopyFile path1,path2 %>
<P>淏婓痄雄恅璃＃＃</P>
<% 
if not fso.fileexists(path3) then
fso.MoveFile path2, path3 
end if
%>
<P>淏婓刉壺恅璃＃＃</P>

<%
if fso.fileexists(path1) then
fso.DeleteFile path1
end if
%>
<P>紱釬硒俴俇救ㄐ</P>
</BODY>
</HTML>
