<% Global MaberaUser, aktualis #timeout 900 if MaberaUser = "mabera" then Dim f, i, n, n1 n = request.item("kepszam") if Right(n, 4) = ".jpg" then DeleteFile "issues/" & aktualis & "/" & n n = NthField(NthField(n, ".", 1), "-", 1) end if %>



 

<% if request.item("feltolt") = "igen" then function formatBytes(bytes) dim unit unit = "bytes" bytes = 0 + bytes if bytes > 1024 then bytes = bytes / 1024 unit = "Kbyte" else return bytes & " " & unit end if if bytes > 1024 then bytes = bytes / 1024 unit = "MByte" end if return format(bytes, "# ##0.00") & unit end function Dim i, x, nx nx = upload.count() %> The image:
<% dim theFileName, w, h, img, img2 if nx > 0 then for i = 1 to nx x = upload.itemkey(i) theFileName = upload.filename(x) ="
" & formatBytes(upload.size(x)) & "
" if left(upload.type(x), 6) = "image/" then if upload.size(x) > 0 and formatBytes(upload.size(x)) < 1500000 then DeleteFile "uploads/"&theFileName upload.move x, "uploads/" & theFileName img = OpenImage("uploads/" & theFileName) w = GetImageWidth(img) h = GetImageHeight(img) if w > 400 then w = 400 h = Int(w * GetImageHeight(img) / GetImageWidth(img)) end if img2 = newimage(w, h, 16) DrawImage img2, img, 0, 0, w, h n1 = "issues/" & aktualis & "/" &n&"-"&SecondsToDate(now(), "ddhhnnss")&".jpg" SaveImage img2, n1, "JPEG", 512 FreeImage img2 FreeImage img else = " Sorry, the image file is too big. (It is bigger than 1,5M.) " end if else =" Sorry, the file type is not supported. Please use JPG images." end if DeleteFile "uploads/"&theFileName next end if %>

>

(If you have uploaded a wrong image, please go back to the manage page, click on it and upload again.)

Back to the manag page.

<% end if %>

 


<% else %>


Please login.
<% end if %>