Jag har använt mig av ASP Upload tidigare men denna kundens webbhotell stödjer SA FileUp... och då måste man koda om!
myTable = "files"
' ## DEFINE INSTANCE
'Set Upload = Server.CreateObject("Persits.Upload")
Set Upload = Server.CreateObject("SoftArtisans.FileUp")
IF request("dbaction") = "insert" THEN
' ## NO OVERWRITE
Upload.OverwriteFiles = False
' ## SAVE FILE
' response.write Server.MapPath("\files\") & "\" & strFolderName & "\"
' Upload.Save Server.MapPath("\files\") & "\" & strFolderName & "\"
' Upload.Save Server.MapPath("\files\") & "\"
Upload.SaveAs Server.MapPath("\files\") & "\"
' ## Obtain file object
Set File = Upload.Files("FILE1")
IF NOT File IS NOTHING THEN
' ## NEW POST
SQL = "INSERT INTO [" & myTable & "] (strName, dteCreated, dteViewFrom, dteViewTo, " _
& " strFolderName, strDescription, intFilesize, intSortfield) SELECT '" _
& File.Filename & "', #" _
& date() & "#, #" & date() & "#, #" & date() & "#, '" _
& strFolderName & "', '" _
& Replace(Upload.Form("DESCR"), "'", "''") & "', " _
& File.Size & ", " _
& " (COUNT(*)+1) FROM [" & myTable & "];"
Conn.Execute(SQL)
' Response.Write "File saved."
ELSE
' Response.Write "File not selected."
END IF
END IF
Finns det något uppenbart i denna koden man kan ta bort!?
Databasen behöver itne vara så detaljerad. Det räcker med ett ID egentligen... File.Filename kan vara bra men File.Size är överkurs.