check om billedet eksisterer

Det kræver at du har adgang til FileSystemObject:

<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If (objFSO.FileExists(Server.MapPath("filnavn.jpg")) = True  Then
  ' billedet eksisterer
Else
  ' billedet eksisterer IKKE!
End If

Set objFSO = Nothing
%>

hvor har ejg fx. adgang til filesystem object?

Dit webhotel bestemmer om du skal ha' adgang til FSO. Da FSO udgør en sikkerhedsrisiko for et webhotel, er det tit slå fra, dvs ingen/begrænset adgang..
Hvis det er på din egen computer, har du adgang til FSO.. med mindre at der er et eller andet galt, eller at der er restriktioner via Windows 2000/XP..

her er en test.. kopier alt koden under "Denne kode er brugt:" og put det i en asp fil.. se filen via din browser.. hvad skriver den til dig?

url: http://www.frip.dk/thesurfer/test.asp

har frip adgang til fso ?

thesurfer på din side står der øverst:
Scripting.FileSystemObject not full supported.
Creating of files not supported...
Deleting and Modifying of files not supported...

Nej, frip har ikke adgang til FSO.. du kan se at min side siger:
Scripting.FileSystemObject not full supported.
Creating of files not supported...
Deleting and Modifying of files not supported...

Du skal gemme koden på din server.. ikke kigge på min side :)

jamen den loader aldrig

hvad mener du?
Har du kopieret koden fra min test side, puttet det i en asp fil, og oploadet den til din server?

Når man skal mixe JavaScript og ASP kode, skal man nogle gange bare være lidt kreativ.. :)
Man kan nemlig ikke share/dele variabler mellem de 2 sprog..

Forkert vindue :)
Glem mit sidste indlæg :)

jeg har min egen computer som server...

ahh.. der mangler en ")":

If (objFSO.FileExists(Server.MapPath("filnavn.jpg")))

Den skal slutte med 3x ")"..

men har du et eksempel på et sted der understøtter fso, uden at man skal betale :D ?

Man kunne engang oprette en gratis konto hos www.brinkster.com .. eller noget i den stil.. kan ikke huske urlen..
Men på sitet har de det der sikkerhedsproblem.. dvs man kunne se alle de andres filer, og downloade dem.. man kan vist også slette dem..
Man kan jo få en del File Manager scripts på nettet..

Så, sitet jeg taler om, kan ikke anbefales!

har denne kode
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Function Exist(fil)
If (fs.FileExists(Server.MapPath(fil)))=true Then
      Response.Write("<img src=""" & fil & """>")
Else
      Response.Write("")
End If
end function

pic = 0
Do while pic => 0 and pic < 1000
Exist("http://hhsrv.n.dk/chat/gfx/actors/white/boy/clothes/" & pic & ".gif")
pic = pic + 1
Loop
set fs=nothing
%>
men siden kan ikke hentes

Du har fuld FSO på din computer.. Hvilken Windows kører du med?

XP

XP pro

ahhh... du kan ikke gøre sådan der :)
Med FSO kan du kun checke om billedet eksisterer den samme server som asp filen er..
Til det der, skal du bruge XMLHTTP.. finder lige noget kode til dig..

åh, du er min helt :D

der går nok lidt tid før jeg melder tilbage da jeg skal indtage et solidt måltid mad med resten af min kære familie :D

Al min FSO kode skal slettes.

<%

' Disse 2 linier må IKKE stå i loopen!:
dim objXMLHTTP, url
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

' ... din kode her med oprettelse af database forbindelse osv.. indtil:

pic = 0
Do while pic => 0 and pic < 1000

url = "http://hhsrv.n.dk/chat/gfx/actors/white/boy/clothes/" & pic & ".gif"

objXMLHTTP.Open "GET", url, false 
On Error Resume Next
objXMLHTTP.Send

  Select Case objXMLHTTP.Status

      Case 200 'Billedet er fundet!
        "<img src=""" & url & """>"

      Case 404 'Billedet er IKKE fundet!
        Response.Write url & " could not be found (404 Error)"

      Case Else 'Der opstod en fejl!
        Response.Write "Der opstod en fejl: " & objXMLHTTP.Status

  End Select


pic = pic + 1
Loop

' resten af koden her...


Set objXMLHTTP = Nothing
%>

men.. jeg ved ikke om det er en god ide.. Det tager lidt tid at finde ud af, om billedet eksisterer.. jeg ved ikke lige hvor hurigt den prøver på at gå videre, og udfører koden igen..
Du vil sikkert få en eller anden fejl om at den er ibrug eller noget i den stil.. hvis du får den fejl, er det nok fordi den er ved at check en forespørgsel, og får at vide (af loopen) at den skal check en anden forespørgsel..

men hvis du får fejl, skriv:
- fejlmeddelelsen (kopier den og sætte den ind her)
- linie og linie nummer

får fejl i din kode, fejlen:
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/asp/TMP80uurc6af.asp, line 25
"<img src=""" & url & """>"

doh! der skulle stå:
response.write "<img src=""" & url & """>"

du får 60 meget velfortjente point, drop et svar :D

Et svar er droppet :)

Takker for points :)