<p>asp 复制文件与保存远程服务器文件<br />
'==============================<br />
'函 数 名：CopyFiles<br />
'作 用：复制文件<br />
'参 数：文件来源地址SourcePath，文件复制到地址CopyToPath<br />
'==============================<br />
Function CopyFiles(SourcePath,CopyToPath)<br />
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")<br />
Fso.CopyFile Server.MapPath(SourcePath),Server.MapPath(CopyToPath)<br />
Set Fso=nothing<br />
End Function<br />
<br />
'==============================<br />
'函 数 名：SaveRemoteFile<br />
'作 用：保存远程图片<br />
'参 数：图片来源网址SourceUrl，图片保存地址SavePath<br />
'==============================<br />
Sub SaveRemoteFile(SourceUrl,SavePath)<br />
On Error Resume Next<br />
Set Temp = Server.CreateObject("Mic"&"roso"&"ft.XML"&"HT"&"TP")<br />
With Temp<br />
.Open "Get", SourceUrl, False, "", ""<br />
.Send<br />
If Err.number<>0 Then<br />
Exit Sub<br />
End If<br />
F = .ResponseBody<br />
End With<br />
Set Temp = Nothing<br />
Set objAdoStream = Server.CreateObject("A"&"dod"&"b.St"&"r"&"eam")<br />
With objAdoStream<br />
.Type = 1<br />
.Open<br />
.Write F<br />
.SaveToFile Server.MapPath(SavePath), 2<br />
.Cancel()<br />
.Close()<br />
End With<br />
Set objAdoStream=nothing<br />
End Sub<br />
End Class</p>