---
title: "Hämta fil från annan server"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/179507-hämta-fil-från-annan-server"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fireh"
published: "2009-07-24T16:44:21.000Z"
updated: "2009-08-04T17:51:02.000Z"
replies: 4
views: 584
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/179507-hämta-fil-från-annan-server"
---

# Hämta fil från annan server

## #1 — Fireh, 2009-07-24T16:44Z

Hej,
jag hittade ungefär det jag letar efter fast för PHP ([här](http://www.webforum.nu/showthread.php?t=108020)). Nu undrar jag om det finns något smidigt sätt att göra samma i ASP. Genom ett anrop till en extern webbserver skapas ett PDF-dokument i en temp-mapp på den servern. Den filen skulle jag automatiskt vilja spara ner på min webbserver.

Jag har något skript som jag använt tidigare för att ladda upp en fil från en webbsida, kan man modifiera det annars?

Det börjar så här:

```
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("Bild").Item("ContentType")
filepathname = UploadRequest.Item("Bild").Item("FileName")
Filnamn = Right(filepathname, Len(filepathname) - InStrRev(filepathname, "\"))
Ext = LCase(Right(Filnamn, Len(Filnamn) - InStrRev(Filnamn, ".")))
value = UploadRequest.Item("Bild").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(Filnamn))

For i = 1 to LenB(value)
  MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close
```

Permalänk: https://www.webforum.nu/p/179507

## #2 — Fireh, 2009-07-24T22:53Z

Kanske skulle poängtera att jag efter anropet till den externa servern får i retur den sökväg till var PDF-dokumentet finns, t.ex. <http://www.server.se/temp/123456789.pdf>. Så frågan är då om det går att plocka den på något sätt.

Permalänk: https://www.webforum.nu/p/2193898

## #3 — Melitta, 2009-08-04T17:17Z

Nått liknande detta:
<http://beta.hjd.se/playground/getimage/>
Tar bara bilder just för tillfället men enkelt att modifiera.

Permalänk: https://www.webforum.nu/p/2197767

## #4 — Fireh, 2009-08-04T17:43Z

Funkar ju klockrent - tack så mycket!

Jag tog bort formulär och kontroll av filändelse helt då detta körs automatiskt mot en url som hämtas via ett anrop. Nedan kod räcker för att hämta och spara filen.

```
Set xmlhttp = CreateObject("Msxml2.SERVERXMLHTTP")
xmlhttp.Open "GET", FileURL, false
xmlhttp.Send(Now)
  
Set adodbStream = CreateObject("ADODB.Stream")
adodbStream.Open 
adodbStream.Type = 1
adodbStream.Write xmlhttp.responseBody
adodbStream.SaveToFile server.MapPath("fil.pdf"), 2
adodbStream.Close
  
Set adodbStream = Nothing
Set xmlhttp = Nothing
```

Permalänk: https://www.webforum.nu/p/2197771

## #5 — Melitta, 2009-08-04T17:51Z

Var så lite :)

Permalänk: https://www.webforum.nu/p/2197772

---

Tråden på webben: https://www.webforum.nu/amne/asp/179507-hämta-fil-från-annan-server