'==============================
' Function name: CopyFiles
' Function: Copy files
' Parameters: File Source address SourcePath, file copied to address Copytopath
'==============================
Function CopyFiles (Sourcepath,copytopath)
Set fso=server.createobject ("Scri" & "Pting"). File "& Sys" & "Temobject")
Fso.copyfile Server.MapPath (SourcePath), Server.MapPath (Copytopath)
Set fso=nothing
End Function
'==============================
' Function name: saveremotefile
' Function: Save remote picture
' Parameters: Image source URL sourceURL, picture save address Savepath
'==============================
Sub Saveremotefile (Sourceurl,savepath)
On Error Resume Next
Set Temp = Server.CreateObject (Mic & Roso "&" ft.) XML "& HT" & "TP"
With Temp
. Open "Get", sourceURL, False, "", ""
. Send
If err.number<>0 Then
Exit Sub
End If
F =. Responsebody
End With
Set Temp = Nothing
Set Objadostream = Server.CreateObject ("A" & "DoD" & "B.st" & "R" & "Eam")
With Objadostream
. Type = 1
. Open
. Write F
. SaveToFile Server.MapPath (Savepath), 2
. Cancel ()
. Close ()
End With
Set objadostream=nothing
End Sub
End Class