The code copy is as follows:
TempSource, TempEnd must use absolute path
rootPath=Request.ServerVariables("APPL_PHYSICAL_PATH")' Get the absolute path of the current program
FunctionCopyFiles(TempSource,TempEnd)
DimFSO
SetFSO=Server.CreateObject("Scripting.FileSystemObject")
IFFSO.FileExists(TempEnd)then
Response.Write"Target backup file<b>"&TempEnd&"</b> already exists, please delete it first!"
SetFSO=Nothing
ExitFunction
EndIF
IFFSO.FileExists(TempSource)Then
Else
Response.Write "The source database file to be copied <b>"&TempSource&"</b> does not exist!"
SetFSO=Nothing
ExitFunction
EndIf
FSO.CopyFileTempSource,TempEnd
Response.Write" has successfully copied the file <b>"&TempSource&"</b> to <b>"&TempEnd&"</b>"
SetFSO=Nothing
EndFunction