Avatar billede andersasp Nybegynder
22. september 2004 - 22:42 Der er 4 kommentarer og
1 løsning

Opdatering med file upload

Hejsa eksperter!

Jeg har et script som uploader et billede samt gemmer nogle data fra nogle tekst felter. Dette virker helt perfekt, dog ikke når man vil opdatere felterne og ikke billedet. Er der en måde man kan hoppe over upload funktionen hvis der ikke er noget billede som skal uploades???  mit script ser således ud:

<%

          Set Upload = Server.CreateObject("Persits.Upload.1")

    Count = Upload.SaveToMemory

    Upload.OverwriteFiles = true

        Set File = Upload.Files(1)
        Path = "c:\webs\talkactive\web32640\website.dk\demo\artmusic\flyerbilleder\" & Upload.form("filename") & File.Ext

        File.SaveAs Path

Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open MM_artmusic_STRING
   
Bflyerkey = Upload.form("BID")
Boverskrift = Upload.form("Bflyeroverskrift")
Bbeskrivelse = Upload.form("Bflyerbeskrivelse")
Bflyerstatus = Upload.form("Bflyerstatus")
Bsti = Upload.form("filename") & file.ext

    strSql= "UPDATE bands SET Bflyerkey = '" & Bflyerkey & "', Bflyeroversk = '" & Boverskrift & "', Bflyerbeskrivelse = '" & Bbeskrivelse & "', BflyerIMG = '" & Bsti & "', Bflyerstatus = '" & Bflyerstatus & "' WHERE BID = " & Bflyerkey

  Conn.Execute(strSql)  'linie 24
    Conn.Close
   
    Response.write "Klik her for at se hvorledes flyeren ser ud"
%>
Avatar billede eagleeye Praktikant
22. september 2004 - 22:51 #1
Du kan jo bruge Count til at tjekke om der er uploaded en fil:


    Count = Upload.SaveToMemory

    if Count>0 then
      Upload.OverwriteFiles = true

        Set File = Upload.Files(1)
        Path = "c:\webs\talkactive\web32640\website.dk\demo\artmusic\flyerbilleder\" & Upload.form("filename") & File.Ext

        File.SaveAs Path
      End if


men hvis der ikke vælges et billede svare det så til at slette det,eller skal man beholde det som er valgt første gang?

men du skal hvade rette her også om det skal være "" eller Bsti slet ikke skal med i SQL sætningne kommer an på hvad du ønsker:

if count>0 then
  Bsti = Upload.form("filename") & file.ext
end if
Avatar billede andersasp Nybegynder
22. september 2004 - 23:03 #2
Perfekt nu virker det! tusinde tak!
Avatar billede eagleeye Praktikant
22. september 2004 - 23:06 #3
Ok :) så her et svar.
Avatar billede andersasp Nybegynder
22. september 2004 - 23:21 #4
Øhh nu forstår jeg ved du mener med at slette billedet.. Jeg vil gerne have den til at beholde det gamle billede men du udskriver den bare et blankt felt i Bsti, hvorledes beholdes det gamle navn??
Avatar billede eagleeye Praktikant
22. september 2004 - 23:33 #5
det gøres ved ikke at tilføje kolonne til SQL sætningen hvis Bsti er tom:

strSql= "UPDATE bands SET Bflyerkey = '" & Bflyerkey & "', Bflyeroversk = '" & Boverskrift & "', Bflyerbeskrivelse = '" & Bbeskrivelse & "', "
if Bstr<> "" then strSql = strSql & " BflyerIMG = '" & Bsti & "', "
strSql = strSql = " Bflyerstatus = '" & Bflyerstatus & "' WHERE BID = " & Bflyerkey
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester