Trådstart 22 okt. 2001 19:14 #1 Vad är det för fel på denna:
Response.Write " <table width='100%'><tr><td width='33%'><font face='Verdana' Size='1'><a href='" & strUrl & "' target='_blank'>" & strProname & "</a></font></td><td width='18%'><font face='Verdana' Size='1'>" & strType & "<!-- #fsize virtual="" "& strUrl &" "" --></font></td><td width='19%'><font face='Verdana' Size='1'>" & strType2 & "</font></td><td width='14%'><font face='Verdana' Size='1'>" & strServer & "</font></td><td width='16%'><font face='Verdana' Size='1'>" & strUploader & "</font></td></tr></table>"
Det är med denna jag har problem:
<!-- #fsize virtual="" "& strUrl &" "" -->
I HTML koden står det bara:
<!-- #fsize virtual="/bypath/Cd-Covers/Aalyah_-_Aalyah-back.jpg" -->
Vad är det för fel jag gör?
Som ni kanske har förstått så försöker jag frå fram filstorleken med detta SSI kommando..
H
Finns det nåt sätt att lösa detta på?
Kör med PatrikB's Zpagin II script
[Redigerat av cHeMiCaL-X den 22 okt 2001]
L LarsG Medlem sedan dec. 2000 12 464 inlägg <%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(strUrl)
storlek = fil.size
%>
Då skall alltså koden se ut så här?:
For I = intStartID To ((intStartID + intPageSize) -1)
intId = arrRecords(0,I)
strProname = arrRecords(1,I)
strType = arrRecords(2,I)
strUname = arrRecords(3,I)
strServer = arrRecords(4,I)
strType2 = arrRecords(5,I)
strUrl = arrRecords(6,I)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(strUrl)
storlek = fil.size
Response.Write " <table width='100%'><tr><td width='33%'><font face='Verdana' Size='1'><a href='" & strUrl & "' target='_blank'>" & strProname & "</a></font></td><td width='18%'><font face='Verdana' Size='1'>" & strType & "size:" & storlek & "</font></td><td width='19%'><font face='Verdana' Size='1'>" & strType2 & "</font></td><td width='14%'><font face='Verdana' Size='1'>" & strServer & "</font></td><td width='16%'><font face='Verdana' Size='1'>"&strUploader&"</font></td></tr></table>"
Sidan står bara och laddar när jag kör med ovanstående exempel
L LarsG Medlem sedan dec. 2000 12 464 inlägg Hmm, det kanske blir problem om man anger något filnamn som är felaktigt
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileExists(strurl) then
Set fil = fso.GetFile(strUrl)
storlek = fil.size
else
storlek = 0
end if
hur anger du filnamnet? Absolut eller relativt?
Hmm, det kanske blir problem om man anger något filnamn som är felaktigt
hmm
i databasen är url'n formaterad sp här: /bypath/Cd-Covers/bild.jpg
L LarsG Medlem sedan dec. 2000 12 464 inlägg Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileExists(server.mappath(strurl)) then
Set fil = fso.GetFile(server.mappath(strUrl))
storlek = fil.size
else
storlek = 0
end if
så blir det realtivt din applikationsroot.
Tror jag skiter i det här tills jag kan mer om asp..
Scriptet verkar ha en tendens att göra så att IIS hänger sig och sedan får jag starta om datorn...
Men tack för hjälpen, jag är skyldig dig många tack för all annan hjälp jag har fått av dig LarsG
tack vare tigger hjälp kan jag nu också köra filesystemobject på min IIS.
Men hur gör jag för att formatera storleken i kilobyte?
@nders Medlem sedan juni 2000 32 967 inlägg En kilobyte är ju 1024 bytes. Så det borde inte vara svårare än att dela filstorleken och göra till ett heltal.
storlek = clng(storlek/1024)
Mvh,
det har jag också tänkt på.. ( delat med 1024 ) men jag visste ite hur jag skulle ställa upp det...
Tack!