copyfile.asp

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

ASP
24
字号
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SourceFile = Server.MapPath( "/Counter.txt" )
TargetFile = Server.MapPath( "/Counter2.txt" )

On Error Resume Next	' 若有错误依然向下执行
fs.CopyFile SourceFile, TargetFile
If Err.Number = 53 Then
    Response.Write SourceFile & " 不存在!"
    Response.End
ElseIf Err.Number = 70 Then
    Response.Write TargetFile & " 为只读文件或已被锁定﹚!"
    Response.End
ElseIf Err.Number <> 0 Then 
    Response.Write "其他未知的错误,错误编号=" & Err.Number
    Response.End
End If
%>
<HTML>
<BODY>
<%=SourceFile%> 已成功地复制到<%=TargetFile%>!
</BODY>
</HTML>

⌨️ 快捷键说明

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