copyfil3.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 17 行

ASP
17
字号
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SourceFile = Server.MapPath( "Sample.txt" )
TargetFile = Server.MapPath( "Sample2.txt" )

Set txtf1 = fs.OpenTextFile( SourceFile )
Set txtf2 = fs.OpenTextFile( TargetFile, 2, True )

Content = txtf1.ReadAll
txtf2.Write Content
%>
<HTML>
<BODY>
<%=SourceFile%> 已成功地复制到<%=TargetFile%>!
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?