Gemme billede korrekt ved upload og begrænsning
Hej eksperterJeg bruger denne geniale upload+resize funktion:
<%
function resize(sti,navn,nyX)
Set objImg = Server.CreateObject("AspImage.Image")
objImg.PadSize = 0
objImg.LoadImage Server.MapPath(sti & navn)
objImg.GetImageFileSize Server.MapPath(sti & navn), X, Y
ResizedX = nyX
objImg.MaxX = X
objImg.MaxY = Y
if X > ResizedX then
ResizedY = (ResizedX / objImg.MaxX) * objImg.MaxY
objImg.ResizeR ResizedX, ResizedY
objImg.FileName = (Server.MapPath(sti & navn))
objImg.SaveImage
end if
Set objImg = Nothing
end function
If Request("s") = "upload" Then
Dim mySmartUpload
Dim file1
Dim intCount
intCount=0
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file1 In mySmartUpload.Files
If not file1.IsMissing Then
file1.SaveAs("/upload/" & Session("Bruger") & "/" & file1.FileName)
SQL = "INSERT INTO Upload(Bruger, Billede)"
SQL = SQL & "Values("
SQL = SQL & "'" & Session("Bruger") & "',"
SQL = SQL & "'" & file1.FileName & "'"
SQL = SQL & ")"
Conn.Execute(SQL)
Response.Write("<font face='Verdana' color='#000000' size='2'>Du har netop uploadet dette billede: " & file1.FileName & "</font><p>")
call resize("/upload/" & Session("Bruger") & "/",file1.FileName,260)
Response.Write("<font face='Verdana' color='#000000' size='2'><img src=""/upload/" & Session("Bruger") & "/" & file1.FileName & """ title=""Dit billede er nu uploadet""></font><br>")
intCount = intCount + 1
End If
Next
Response.Write("<p><a href='adminsideupload.asp'><font face='Verdana' color='#666666' size='2'>>> Upload nyt billede</font></a><p>")
Else
%>
Der er dog opstået 2 mindre problemer, som bare driller mig :-)
1) Der må kun uploades .jpg-filer
2) Det giver lidt problemer, hvis en bruger har gemt billedet på harddisken med et mellemrum i filnavnet
Så hvordan skal koden ændres, så der kun kan uploades .jpg-filer + ændre filnavnet, hvis billedefilen har et mellemrum, f.eks. erstatte mellemrum med _.
På forhånd tak.
