Svær Upload funktion med AspUpload/JUpload!
Jeg er ved at lave en Upload system til filer/fotos meddatabase!
Brugeren har mulighed for at markere en hel mappe med filer, som bliver uploadet.
I den mappe er der filer med tilhørende thumbnails(jpg's).
Eksempel på inhold af mappe:
Thumb_test1.jpg
Thumb_test2.jpg > Disse er thumbnails og genkendes ved
Thumb_test3.jpg > at starte med Thumb_
Test1.jpg
Test2.psd > Disse er de egentlige filer
Test3.tif > Og indeholder naturligvis ikke Thumb_
Eksisterer der ikke et thumbnail til filen skal feltet hvor jeg angiver thumbnils filnavne være tomt.
Jeg har lavet flg. kode, som desværre ikke virker!
<%
Server.ScriptTimeout=16000
Session.timeout = 500
PATH = Server.mappath("Images")
Set Image = Server.CreateObject("AspImage.Image")
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = FALSE
On Error Resume Next
n = Upload.Save (PATH)
ErrorNum = Err.Number
Descr = Err.Description
On Error Goto 0
If ErrorNum <> 0 Then
Response.Write "<B>The following error occurred: <FONT COLOR=""#FF0000"">" & Descr & "</B>"
Response.End
End If
intKundeID = Upload.form("KundeID")
If intKundeID <> "" Then
If NOT IsNumeric(intKundeID) Then
Response.write "Error!"
Response.End
End If
End If
For Each File in Upload.Files
If NOT FILE Is Nothing Then
fExt = lCase(File.Ext)
FileSize = Null
If fExt = ".psd" Or fExt = ".tif" Or fExt = ".tiff" Or fExt = ".eps" Or fExt = ".jpg" And inStr(1,Lcase(File.FileName),"thumb_") = 0 Then
Foto = File.FileName
FileSize = File.Size
Count = inStr(1,Foto,fExt,1)
Thumb = Left(File.FileName,Count)&"jpg"
If Upload.FileExists(PATH&"\"&Thumb) Then
Call ScaleImage (Thumb,100,100,50)
Else
Thumb = Null
End If
Conn.Execute("Insert into fildata (KundeID, ThumbFile, FotoFile, FileSize) VALUES ('"&intKundeID&"', '"&Thumb&"', '"&Foto&"', '"&FileSize&"')")
End If
End If
Next
Set Image = Nothing
Set Upload = Nothing
%>
Jeg sætter 180 points på højkant til den der kan lave en funktion der altid virker! Har snart prøvet alt - og er tom for ideer :/
//netPhreak