Læse ekstern fil

Det kan du ikke.. og dog..

Du kan kun gøre det, hvis du har et script på den "anden" (#2) server.

Scriptet skal læse en fil, hvor filnavnet hentes via urlen, og udskriver det. Så kan du bruge XMLHTTP, til at hente indholdet.

Eksempel:

#2:
<%
dim fil, fs, t, tmp
fil = request.querystring("fil")
if fil <> "" then
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    if fs.FileExists(server.mappath(fil)))=true Then
        set t=fs.OpenTextFile(server.mappath(fil),1,false)
        tmp=t.ReadAll
        t.close
        Response.Write tmp
    else
        response.write "Filnavnet '" & fil & "' findes ikke!"
    end if
else
    response.write "Filnavnet mangler!"
end if
%>

#1:
<a href="<% response.write request.servervariables("script_name") %>?filnavn=">klik på dette link, og skriv derefter filnavnet, i urlen i adresse-linien</a>
<hr>
<%
if request.querystring("filnavn") <> "" then
    dim xml, strBody
    Set xml = Server.CreateObject("Microsoft.XMLHTTP")
    url = "http://www.andenserver./readfile.asp?fil=" & filnavn
    xml.Open "GET", url, False
    xml.Send
    strBody = xml.responseText
    set xml = nothing

    response.write strBody
end if
%>

Eksemplet er ikke testet, men skrevet direkte her på Eksperten.. Det burde virke, med mindre at jeg har lavet en fejl :-)

Men ideen er god nok :-)

/theSurfer

Du retter bare "http://www.andenserver.dk/readfile.asp" til det du har..

/theSurfer

Hejsa,

Tak for hjælpen. Det blev idt noget rod at bruge XMLHTTP synes jeg, men jeg fandt frem til noget der hedder AspHTTP, som kunne løse problemet for mig.