Kandu.dk - Fil Check


/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg

Glemt dit kodeord?

Brugernavn*

Kodeord *

Husk mig

Brugerservice

Kom godt i gang

Bliv medlem

Seneste indlæg

Find en bruger

Stil et spørgsmål

Skriv et tip

Fortæl en ven

Pointsystemet

Kontakt Kandu.dk

Emnevisning

Kategorier

Alfabetisk

Karriere

Interesser

Teknologi

Reklame

Top 10 brugere

ASP

#	Navn	Point
1	smorch	9259
2	Harlekin	1866
3	molokyle	1040
4	Steffanst..	758
5	gandalf	657
6	smilly	564
7	gibson	560
8	cumano	530
9	MouseKeep..	480
10	Random	410

Fil Check
Fra : Kenneth Fuglsang

Dato : 02-06-01 22:05

Hej

Hvordan skal jeg lave sådan så at mit script først checker om billed filen
eksisterer før det prøver på at vise billedet og hvis billedet ikke
eksisterer skal den skrive at billedet ikke kunne findes

--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

Jakob Andersen (03-06-2001)

Kommentar
Fra : Jakob Andersen

Dato : 03-06-01 10:18

"Kenneth Fuglsang" <kenneth-fuglsang@pc.dk> wrote in message
news:9fbke5$et2$1@news.inet.tele.dk...
> Hvordan skal jeg lave sådan så at mit script først checker om billed filen
> eksisterer før det prøver på at vise billedet og hvis billedet ikke
> eksisterer skal den skrive at billedet ikke kunne findes

Vha. filesystemobjektets fileExists() metode.
<http://msdn.microsoft.com/scripting/vbscript/doc/vsmthfileexists.htm>

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar Glad

Kenneth Fuglsang (03-06-2001)

Kommentar
Fra : Kenneth Fuglsang

Dato : 03-06-01 14:54

Hej

Nu sidder jeg så med dette script men der sker ingenting.

<html>
<head>
<title>Billed galleri</title>
</head>
<body>
<%
Function ReportFileStatus(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/billede.jpg")
If (fso.FileExists(filespec)) Then
Response.Write "<img src='/billede.jpg' width='100%' title='Billede'>"
Else
Response.Write "<h2 align='center'>Billedet eksisterer ikke.</h2>"
End If
End Function

%>
</body>
</html>

--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

Lauritz Jensen (03-06-2001)

Kommentar
Fra : Lauritz Jensen

Dato : 03-06-01 15:15

Kenneth Fuglsang wrote:
>
> Nu sidder jeg så med dette script men der sker ingenting.

Fra den kode du viste (som angiveligt er hele html-filen (der var ihvert
fald meget html)), kaldte du ikke funktionen. Er den grunden til der
ikke sker noget?

> Function ReportFileStatus(filespec)
> Dim fso
> Set fso = CreateObject("Scripting.FileSystemObject")
> filespec = Server.Mappath("/billede.jpg")
> If (fso.FileExists(filespec)) Then
> Response.Write "<img src='/billede.jpg' width='100%' title='Billede'>"
> Else
> Response.Write "<h2 align='center'>Billedet eksisterer ikke.</h2>"
> End If
> End Function

Mener du ikke:
> filespec = Server.Mappath(filespec)
> If fso.FileExists(filespec) Then
> Response.Write "<img src='"&filespec&"' width='100%' title='Billede'>"

--
Lauritz

Kenneth Fuglsang (03-06-2001)

Kommentar
Fra : Kenneth Fuglsang

Dato : 03-06-01 15:23

Hej

Den skal jo vide hvilken fil jeg vil vise. Hvor skal dette angives, det er
sådant set det der er mit problem.

--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

Lauritz Jensen (03-06-2001)

Kommentar
Fra : Lauritz Jensen

Dato : 03-06-01 15:38

Kenneth Fuglsang wrote:
>
> Den skal jo vide hvilken fil jeg vil vise. Hvor skal dette angives,
> det er sådant set det der er mit problem.

Call ReportFileStatus("/billede.jpg")
Her: ------------------^^^^^^^^^^^^

--
Lauritz

Thygesen (03-06-2001)

Kommentar
Fra : Thygesen

Dato : 03-06-01 11:29

"Kenneth Fuglsang" <kenneth-fuglsang@pc.dk> skrev i en meddelelse
news:9fbke5$et2$1@news.inet.tele.dk...
> Hej
>
> Hvordan skal jeg lave sådan så at mit script først checker om billed filen
> eksisterer før det prøver på at vise billedet og hvis billedet ikke
> eksisterer skal den skrive at billedet ikke kunne findes

Følgende kan gøre det:

Dim objFSO
Function FindesFilen(strSti)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strSti) then
FindesFilen = "YES"
Else
FindesFilen = "NO"
End If
Set objFSO = Nothing
End Function

if FindesFilen(Server.Mappath("image.jpg")) = "YES" then
respose.write "<img src='image.jpg'>"
else
response.write "billedet ikke kunne findes"
end if

Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk

Søg

Reklame

Statistik

Spørgsmål :	177557
Tips :	31968
Nyheder :	719565
Indlæg :	6408872
Brugere :	218888

Månedens bedste

Årets bedste

Sidste års bedste