Søg
Avatar billede wandaxp Praktikant
15. august 2007 - 23:38 Der er 1 løsning

FileExists på 2 eksterne servere?

Hej

Er der nogen der kender til en løsning på dette:
Jeg har et domæne ved firmaet struernethosting, de tager sig godt betalt for plads og da jeg bruger mange billeder og i høj opløsning render det hurtigt op, derfor har jeg 2 servere andre steder hvor jeg gemmer alle billeder på, men jeg vil gerne have at hvis den ene server/domæne er nede når en vil se billedet så skal den selv finde ud af dette og vælge den anden server, er dette muligt?

Jeg har forsøgt med :

if fs.FileExists(\"http://www.XXX.dk/images/billede.jpg\")=true then
response.write \"Billedet eksisterer\"
else
fs.FileExists(\"http://www.XXX2.dk/images/billede.jpg\")=true then
response.write \"Billedet eksisterer\"
end if

Om det er fil eller bare navnet på filen den kan finde på den eksterne server er lige gyldingt, det er bare for lige at tjecke om den kan få fat på serveren og gerne om den har filen med det aktuelle navn.
Avatar billede thesurfer Nybegynder
16. august 2007 - 03:08 #1
function checkstatus(url)
on error resume next

dim status

Dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
' Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

objXMLHTTP.Open "GET", url, False

objXMLHTTP.Send

status = objXMLHTTP.status

Set objXMLHTTP = Nothing

if err.number <> 0 then
    status = false ' der opstod en fejl, meld FALSE
else
    if status = 200 then ' 200 = ok / findes
        status = true ' adressen findes
    else
        status = false ' adressen findes IKKE
    end if
end if

checkstatus = status
end function

Kaldes sådan:

if checkstatus("http://www.XXX.dk/images/billede.jpg") = true then


Husk at du ikke skal escape "-tegnene.. Dvs, der skal ikke stå \", men bare "..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:03 Forlænge ringetid Af 1Dorte i Apps til Android
17/0117:38 Video ikoner Af Malm i Windows
17/0117:27 Video ikoner Af logbuilders i Windows
16/0110:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
White papers
Flere white papers »