Image Resize
Hej.Jeg har følgende script hvor jeg uploader et billede og tilføjer en kommentar til databasen.
Bagefter tager den så et billede og laver et thumbnail af den.
Problemet er at jeg manualt skal skrive billedets navn i scriptet, men vil naturligvis gerne have den til at lave en resize af det billede jeg uploader i stedet for. Har lidt problemer med at få overført navnet af det uploadede billede til "STRBilledekilde".
Nogen der kan hjælpe?
Her er koden:
<%
' Variables
' *********
Dim mySmartUpload
Dim file1
Dim file2
Dim oConn
Dim oRs
Dim intCount
intCount=0
Session.LCID = 1030
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
intCount = mySmartUpload.Save("/myimages")
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("\X\X.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
' Open a recordset
' ****************
strSQL = "SELECT * FROM seneste"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open
' Add the current file in a DB field
' **********************************
oRs.AddNew
oRs("pic") = mySmartUpload.Files.Item("File1").FileName
oRs("billedekategori") = mySmartUpload.form("kategori")
oRs("beskrivelse") = mySmartUpload.form("overskrift")
oRs("powerpoint") = "hyggestedet"
oRs("visnyhed") = 3
oRs.Update
intCount = intCount + 1
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.<BR>")
Dim objImage ' Definer en variabel til objektet
' For at det er lidt lettere at håndtere det
' arbejde vi vil have udført, opretter vi her
' nogle flere variable til håndteringen
Dim strBilledKilde
Dim strNytBillede
Dim intXSize
Dim intYSize
' Angiv hvor vores billed kilde befinder sig
strBilledKilde = "/myimages/NAVN1.jpg"
' Til dette eksempel må benyttes: JPG, PNG og BMP
' Angiv hvor det nye billede skal gemmes
' og hvad det skal hedde
strNytBillede = "/myimages/SMALL_NAVN1.jpg"
Set objImage = Server.CreateObject("AspImage.Image")
objImage.LoadImage(Server.MapPath(strBilledKilde))
' Den nye bredde på billedet skal være 75 prikker
intXSize = 75
' Her beregner vi så hvor højt billedet skal være
' ud fra den bredde vi har bestemt
intYSize = (intXSize / objImage.MaxX) * objImage.MaxY
objImage.ResizeR intXSize, intYSize
objImage.FileName = Server.MapPath(strNytBillede)
If objImage.SaveImage Then
Response.Write "<img src=""" & strNytBillede & """><br>"
Else
Response.Write "Der opstod en fejl : " & objImage.Error
End If
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>