Jeg har dette script som uploader en fil, men jeg skal så når filen er uploadet til mappen "cover/" have oprettet et thumb til mappen "cover/thumb/" det skal gøres med aspimage, nogle som kan hjælpe mig med en aspimage kode til at generere et thumb billede ?
<% ' Variables ' ********* Dim mySmartUpload Dim file Dim intCount intCount=0
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload ' ****** mySmartUpload.Upload
' Select each file ' **************** For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' ************************************************************************** file.SaveAs("cover/" & file.FileName)
' Display the number of files which could be uploaded ' *************************************************** Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")
' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.<BR>")
Med OS2ai forsøger Aarhus Kommune og OS2-fællesskabet at give offentlige medarbejdere adgang til generativ AI uden at gøre kommunerne mere afhængige af amerikanske techgiganter.
Denne kode er fra en billede klasse jeg engang har kodet - den kan håndtere alle mulige forskellige billede komponenter:
Private sub MakeThumpnail_AspImage(sSourcePath, sTargetPath, iWidth, iMinHeight, iMaxHeight, iBgColor, iQuality) dim X, Y, iResizedWidth, iResizedHeight dim mObjImage set mObjImage = Server.CreateObject("AspImage.Image") mObjImage.PadSize = 0
mObjImage.LoadImage(sSourcePath)
mObjImage.ImageFormat = 1 mObjImage.JPEGQuality = iQuality X = mObjImage.MaxX Y = mObjImage.MaxY
If X > iWidth Then iResizedWidth = iWidth iResizedHeight = (iResizedWidth * Y/X) if iResizedHeight > iMaxHeight then iResizedHeight = iMaxHeight iResizedWidth = round(iResizedHeight * X/Y) end if End if
if iResizedHeight < iMinHeight then dim image1 Set Image1 = Server.CreateObject("AspImage.Image") Image1.PadSize = 0 Image1.MaxY = iMinHeight Image1.MaxX = iWidth Image1.BackgroundColor = iBgColor ' vbWhite
Image1.AddImage mObjImage.FileName, 0, round((iMinHeight-iResizedHeight)/2) Image1.FileName = mObjImage.FileName Image1.SaveImage Set Image1 = nothing end if
if iResizedWidth < iWidth then dim image2 Set Image2 = Server.CreateObject("AspImage.Image") Image2.PadSize = 0 Image2.MaxY = iMinHeight Image2.MaxX = iWidth Image2.BackgroundColor = iBgColor ' vbWhite
Image2.AddImage mObjImage.FileName, 0, round((iWidth-iResizedWidth)/2) Image2.FileName = mObjImage.FileName Image2.SaveImage Set Image2 = nothing end if End sub
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
