Hvis du kun uploader et billede, så skal du bare lave koden på følgende måde:
Dim mySmartUpload Dim file Dim NytID
'Opretter objektet Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'Hvis du vil begrænse hvilke filer der må uploades: mySmartUpload.AllowedFilesList = "jpg,gif,bmp"
'Upload mySmartUpload.Upload
'Så løber vi uploadede billeder igennem For each file In mySmartUpload.Files If not file.IsMissing Then
'Her Henter du næste ID nummer fra DATABASE ' Select kode på database........ f.eks.: Set RS = Conn.Execute("Select max(ID) as ID from [Tabel]")
'Sætte ID nummer +1 større end sidste indsatte i database NytID = RS("ID") +1
'Så gemmer vi filen på serveren file.SaveAs(Server.Mappath("\billedesti\" & NytID & "." & file.FileExt) End If Next
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.