Just nu i M3-nätverket
Jump to content

MGET för Http


Martin18

Recommended Posts

Hej på er!

Jag undrar om det finns en motsvarighet till FTPns mget för http?

Och om det finns hur använder jag den.

MVH

Martin

 

Link to comment
Share on other sites

NumeriusNegidius

Om du vill hämta filer via http och placera dem på servern, eller skicka dem till en användare använder du med fördel någon av komponenterna MSXML eller ASPTear.

 

Här är en gammal sub jag använt:

 

[log]public sub get_files(location,filename)

set retriever = server.createObject("MSXML2.ServerXMLHTTP")

retriever.SetTimeouts 5000,5000,3600000,3600000

retriever.open "GET", location

retriever.send

if retriever.Status = 200 Then

set myStream = server.createobject("ADODB.Stream")

myStream.Open

myStream.Type = 1 'adTypeBinary

 

myStream.Write retriever.ResponseBody

myStream.Position = 0 'Set the stream position to the start

 

set fso = server.createobject("Scripting.FileSystemObject")

if fso.Fileexists(filename) then

fso.DeleteFile filename

end if

set fso = Nothing

 

myStream.SaveToFile filename

myStream.Close

Set myStream = Nothing

end if

set retriever = nothing

end sub

[/log]

 

/Nisse

---

"Trying is the first step towards failure" - Homer Simpson

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...