--- title: "övergång från smartaspupload till SAFileUP" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/158675-övergång-från-smartaspupload-till-safileup" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "sin_adec" published: "2007-03-28T14:30:01.000Z" updated: "2007-03-28T14:30:01.000Z" replies: 0 views: 200 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/158675-övergång-från-smartaspupload-till-safileup" --- # övergång från smartaspupload till SAFileUP ## #1 — sin_adec, 2007-03-28T14:30Z Tjenare, har precis skaffat mig ett konto på Surftown och tänkte inte på att de inte har stöd för smart ASP upload utan använder sig av SAFileUP-komponenten. Nu undrar jag ifall det finns någon några som har arbetat med det tidigare och kan hjälpa mig med övergången till SAFileUP. tack upload.html ``` Upload file
Filnavn:
``` upload.asp ``` <% @ LANGUAGE = VBSCRIPT %> <% set upl = Server.CreateObject("SoftArtisans.FileUp") ' Specify the path to where to file should be placed ' - here the current path is used (.) upl.Path = Server.MapPath(".") if (upl.IsEmpty) then Response.write "

Error: The file is empty or doesn't exist!

" elseif (upl.ContentDisposition <> "form-data") then Response.write "

Error: Upload failed!

" else Response.write "

The file was successfully uploaded.

" on error resume next ' Save the uploaded file upl.Save end if %> ``` Nedan är min nuvarande kod. Sedan med formuläret ```





``` Send.asp ``` <% ' nedan publicear bilden för första bilden Set Upload = Server.CreateObject("Persits.Upload.1") Upload.SetMaxSize 100000 ' Ändra maxstorlek på uppladdad fil Upload.SaveVirtual "filer/" ' Mappen som uppladdade filer hamnar i Upload.OverwriteFiles = True ' Sätt till False om du inte vill spara över filer med samma namn Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databasen.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From foretag" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew Recset("datum") = Date() Recset("foretagsnamn") = upload.form("foretagsnamn") Recset("organisationsnummer") = upload.form("organisationsnummer") Recset("telefonnummer") = upload.form("telefonnummer") Recset("faxnummer") = upload.form("faxnummer") Recset("hemsida") = upload.form("hemsida") Recset("epost") = upload.form("epost") Recset("accept") ="0" Recset("refnummer") = upload.form("refnummer") Recset("verksamhetsbeskrivning") = upload.form("verksamhetsbeskrivning") if not Upload.Files("filen") is nothing then Recset("logotyp") = Upload.Files("filen").ExtractFileName end if RecSet.Update RecSet.close Connect.Close Set RecSet = nothing Set Connect = nothing %> ``` Permalänk: https://www.webforum.nu/p/158675 --- Tråden på webben: https://www.webforum.nu/amne/asp/158675-övergång-från-smartaspupload-till-safileup