[asp]Alle files op andere server via http displayen

[TeeDee]

Hoi,

ik heb een klein probleempje en dit heeft met mijn motto te maken: "Ben van nature lui :)". Okay, genoeg geblaat. Hier is het probleem:

Ik heb 1 "frontend" server die alle html pages serveert. De andere server handelt alle request e.d. af. Op deze server staan ook allerlei files. Kleine 100. Nu komt dus iemand op server 1, klikt op file listing om deze eventueel aan te passen. Iemand klikt dus op een link op server1 (die linkt naar het file op de 2e server), wordt naar de 2e server gestuurd en de actie wordt uitgevoerd.

Vanwege mijn motto ben ik eigenlijk te lui om die 100 files op de frontend met de hand te gaan linken. Nu wilde ik eigenlijk dit doen:

ASP:

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f= fso.Getfolder("http://files.domein.nl/gebruiker/templates/pag/")
Set fc = f.files
For each fl in fc
     FullName = fl.name
response.write FullName&"<br>"&vbcrlf
Next

Deze code werkt dus niet, maar misschien wordt hiermee de bedoeling iets duidelijker. Is dit mogelijk? Zoja, waar zou ik dit mee kunnen doen dan?

[ Voor 5% gewijzigd door TeeDee op 28-02-2003 15:40 . Reden: layout verneuking aangepast ]

[gorgi_19]

Kort antwoord: nee.
Verder: een heel kort ander antwoord

[TeeDee]

hmm, die link naar asp101 is alleen om html ergens vandaan te halen...
maar ik krijg nu een ander ideetje hierover. Thanks!
/edit:

stuk ongeduld: ben nog ffies bezig... binnen 10 mins denk ik dat ik wat heb

[ Voor 27% gewijzigd door TeeDee op 28-02-2003 15:48 ]

[gorgi_19]

TeeDee schreef op 28 February 2003 @ 15:44:
hmm, die link naar asp101 is alleen om html ergens vandaan te halen...
maar ik krijg nu een ander ideetje hierover. Thanks!

En dat is?

* gorgi_19 is nieuwsgierig..

[TeeDee]

komt ie:

maak op server 2 dat file die zegt van:

ASP:

Set fso = Server.CreateObject("Scripting.FileSystemObject")
' dit is dus op de files. server!!
Set f= fso.Getfolder("e:\inetpub\gebruiker\templates\pag\")
Set fc = f.files
For each fl in fc
     FullName = fl.name
response.write "hier links e.d. naar fullname" (alleen relatief aan de frontend!!)"
Next

En dan middels die code van asp101 over halen naar je frontend!! Briljant

ASP:

Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
' templates.asp bevat dus de filelistings van de 2e server!! 
'relatief aan de 1e server!
objXmlHttp.open "GET", "http://files.domein.nl/gebruiker/templates.asp", False
objXmlHttp.send
strHTML = objXmlHttp.responseText
Set objXmlHttp = Nothing

[ Voor 32% gewijzigd door TeeDee op 28-02-2003 15:54 . Reden: code toegevoegd ]