/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
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 "



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