13. juni 2001 - 22:08Der er
27 kommentarer og 4 løsninger
FSO ?
Jeg har et problem jeg har lavet et system så man kan uploade billeder...men så skal jeg have en billed side hvor man kan se dem...men jeg har prøvet at smide noget information om billedet ind når jeg uploader det uden held men så tænkte jeg om man kan lave tumbnails og links til store billeder af tumbnailsne ud fra FSO ? og hvis man kan ville jeg meget gerne have et eksempel
Jeg er sgu ik med hvad på hvad du mener chris, hvad tager kortest tid : At lave en tumbnail af alle billederne og uploade det plus det originale ELLER uploade det originale ?
for k = 0 to ubound(myarr) - 1 minindex = k for j= k+1 to ubound(myarrdato) if myarrdato(j) > myarrdato(minindex) then minindex = j end if next tmp = myarr(k) myarr(k) = myarr(minindex) myarr(minindex) = tmp tmp2 = myarrdato(k) myarrdato(k) = myarrdato(minindex) myarrdato(minindex) = tmp2 next
end function
antal = 0 start = request.querystring(\"start\") if start = \"\" then start = 0 end if
Set fs = CreateObject(\"Scripting.FileSystemObject\") Set f = fs.GetFolder(server.mappath(\".\")) Set fc = f.Files thisfile = right(request.servervariables(\"script_name\"), len(request.servervariables(\"script_name\")) - instrrev(request.servervariables(\"script_name\"), \"/\")) For Each billed in fc
if billed.name <> thisfile then arrayBuild = arrayBuild & billed.name & \"|\" arraybuild2 = arraybuild2 & billed.datelastmodified & \"|\" end if next arrayBuild = left(arrayBuild, (len(arrayBuild) - 1)) myArray = Split(arrayBuild, \"|\") myArray2 = Split(arrayBuild2, \"|\")
call sortArr(myArray, myarray2)
Antalsider = int(ubound(myarray) / 6)
for i = start to (start + 5) if not i >= ubound(myarray) then
if antal = 0 then Response.Write \"<TR>\" end if %> <td bordercolor=\"#000000\"> <p align=\"center\"> <a href=\"<%=request.servervariables(\"script_name\")%>?action=viewbig&billede=<%=myarray(i)%>\"><IMG SRC=\"<%=myarray(i)%>\" alt=\"Klik på billedet for at se den i den størrelse som det bliver sendt i...\" WIDTH=\"150\" HEIGHT=\"112\" border=\"0\" style=\"border: 1 solid #000000\"></a></p> </td> <% end if
if antal = 2 then Response.Write \"</TR>\" antal = 0 else antal = antal + 1 end if next
<% if start <> 0 then response.write(\"<a href=\'\"&request.servervariables(\"script_name\")&\"?start=\" & (start - 6) & \"\'\'><font face=\'Arial\' size=\'2\' color=\'#000000\'>Forrige side</font></a>\") end if
if start <> 0 AND ubound(myarray) > start + 6 then response.write(\" \") end if
if ubound(myarray) > start + 6 then response.write(\"<a href=\'\"&request.servervariables(\"script_name\")&\"?start=\" & (start + 6) & \"\'\'><font face=\'Arial\' size=\'2\' color=\'#000000\'>Næste side</font></a>\") end if
%> <%end if%> </font> <center>
Så fortæl mig om det er HTML der laver arbejdet, popsmarte fætter !!!!! LUK.
Chrish2k har ret - dit script laver jo ikke en mindre version af billedet, det sætter bare en fast bredde og størrelse op. Det der ville være interessant var et script der udnyttede f.eks ASPImages muligheder for at lave billeder on the fly, så at den selv laver et lille billede ud af det man uploader.
HTML er client side og gør man billede mindre ved at bruge WIDTH i sit IMG-tag, så viser man bare billedet i mindre format, men billedet fylder stadig det samme antal kb! =)
det gør ikke noget....jeg har fundet ud af at lave det så den smider stien til billedet ind i en Access db...så det er intet problem længre!!! så jeg deler pointe mellem jer :)
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.