Tjekke et billedes størrelse?
Hej,Hvis vi nu leger, at jeg uploader billeder til en Access database med følgende:
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.Save Server.Mappath("upload")
' Obtain file object
Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
' Build ODBC connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data.mdb")
' Build SQL INSERT statement
SQL = "INSERT INTO Image(image_blob, filename, description, filesize) VALUES(?, '"
SQL = SQL & filen & "', '"
SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
SQL = SQL & File.Size & ")"
' Save to database
File.ToDatabase Connect, SQL
Set RS = MyConn.Execute("SELECT max(id) from Image")
newid = RS(0)
Else
newid = 0
End if
Hvordan skal det så se ud, hvis jeg vil sige, at billedet max må være 350px høj og 270px bred?
Kan man overhovedet det?
På forhånd tak.
;)
