savefile.asp

来自「这是一套基于WEB的网站管理系统」· ASP 代码 · 共 35 行

<%
Public Function SaveRemoteFile(s_LocalFileName, s_RemoteFileUrl)
	Dim oStream, Retrieval, GetRemoteData
	Dim bError
	bError = False
	SaveRemoteFile = False
	On Error Resume Next
	Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
	With Retrieval
		.Open "Get", s_RemoteFileUrl, False, "", ""
		.Send
		GetRemoteData = .ResponseBody
	End With
	Set Retrieval = Nothing

	If LenB(GetRemoteData) > 100 Then
		Set oStream = Server.CreateObject("Adodb.Stream")
		With oStream
			.Type = 1
			.Open
			.Write GetRemoteData
			.SaveToFile Server.MapPath(s_LocalFileName), 2
			.Cancel
			.Close
		End With
		Set oStream = Nothing
	End If

	If Err.Number = 0 And bError = False Then
		SaveRemoteFile = True
	Else
		Err.Clear
	End If
End Function
%>