XMLhttp

morgon.

Finns det någon här som är haj på den funktionen?
Suttit och sökt på nätet men inte fått fram någon text som säger mig något..
Vad jag undrar är om det är möjligt att hämta en jpg fil från en annan server med denna metod??

Mvh

Varför int bara länka den rakt av?

Nu fick man experimentera lite. Med den här koden sparas den valda bilden i samma mapp som asp-filen ligger i på servern.

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.sida.com/bild.jpg", False
objHTTP.Send
strBild = objHTTP.ResponseBody
Set objHTTP = Nothing

For i = 1 To LenB(strBild)
  strTemp = strTemp & Chr(AscB(MidB(strBild, i, 1)))
Next

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.CreateTextFile(Server.MapPath("bild.jpg"))
objTS.Write(strTemp)
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing

Tack

Ska prova imorgon om koden fungerar, hur som helst jätte tack.

Anledning är att jag ska hämta en tryck bild från en ftp och lägga på en http, använda aspjpeg för att omforma bilden och spara den som en mindre för visning på hemsidan!!

Hallo sebbe..

Jag tror det funkar ?? saken är den att jag fär följande fel...

Feltyp:
Active Server Pages, ASP 0113 (0x80004005)
Den maximala tiden att köra ett skript överskreds. Du kan ändra den här gränsen genom att ange ett nytt värde för Server.ScriptTimeout eller genom att ändra värdet i IIS-administrationsverktyget.
/dev/Default.asp

Kan man göra på något annat sätt så inte iis servern bryr sig om hur lång tid det tar ???

Hitta ett annat exempel:

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
	
  xml.Open "GET", _
      "http://www.4guysfromrolla.com/webtech/code/mitchell-pres.zip", _
      False

  xml.Send
	
  ' Add a header to give it a file name:
  Response.AddHeader "Content-Disposition", _
                     "attachment;filename=mitchell-pres.zip"
	
  ' Specify the content type to tell the browser what to do:
  Response.ContentType = "application/zip"
	
  ' Binarywrite the bytes to the browser
  Response.BinaryWrite xml.responseBody

  Set xml = Nothing
%>

Funderar på om man kan använda din metod med FSO för att skapa filen, men jag vill ha med information med binarywrite! Men jag kan inte få det att fungera???