30. juni 2003 - 20:58Der er
16 kommentarer og 1 løsning
Upload billede og Filnavn til DB
Hejsa...
Jeg har et script på min server nu som uploader en fil ændre filnavnet til et tilfældigt tal og gemmer dataen i en database. Men lige nu bruger jeg ASP Simple Upload og det skal ændre da jeg skifter server. Nu skal jeg bruge ASPUpload.
Hvordan ændre jeg min kode sådan ?
Her er den kode jeg bruger nu: --------KODE START--------- <% Dim upl, NewFileName, sti, index, extNavn, nytnavn
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
strfile1 = upl.Form("File1") if strfile1 <> "" Then
If Len(upl.Form("File1")) > 0 Then Set fso = Server.CreateObject("Scripting.FileSystemObject")
sti = "/Images/Nyhed/" NewFileName = upl.ExtractFileName(upl.Form("File1"))
index = InStrRev(NewFileName, ".") if index > 0 then extNavn = Mid(NewFileName,index+1)
randomize nytnavn = sti & CStr(Int(rnd*9999999999)+1) & "." & extNavn do while fso.FileExists(Server.MapPath(nytnavn)) randomize nytnavn = sti & CStr(Int(rnd*9999999999)+1) & "." & extNavn loop Set fso = nothing NewFileName = nytnavn
If upl.SaveToWeb("File1", NewFileName) Then Response.Write("Billede blev uploadet på server") Else Response.Write("Fejl! Billedet blev ikke uploadet !!! ") End If End If
Hvis du gider at lave scriptet så det virker med den nye komponent vil jeg meget gerne betale dig for det hvis du vil ? Jeg står meget og mangler denne funktion...
nej det er det ikke ... dog kan jeg ikke få DB'en til at virke men min gæste bog er også gået ned "Cannot open database ''. It may not be a database that your application recognizes, or the file may be corrupt"
denne upload del bør virke det gør den hos mig ;) DB delen er tilfæjet et connection object hvis du ikke har det i forvejen??
<% Dim upl, NewFileName, sti, index, extNavn, nytnavn
Set upl = Server.CreateObject("Persits.Upload")
upl.Save
Set File = upl.Files("FILE1")
If isNull(file)=false Then Set fso = Server.CreateObject("Scripting.FileSystemObject")
sti = "/Images/Nyhed/"
extNavn = File.Ext
randomize nytnavn = sti & CStr(Int(rnd*9999999999)+1) & extNavn do while fso.FileExists(Server.MapPath(nytnavn)) randomize nytnavn = sti & CStr(Int(rnd*9999999999)+1) & extNavn loop Set fso = nothing NewFileName = nytnavn
Betyder som reget at man ikke har rettighed til at oprette/gemme en fil i den angive folder. Internet Guest Account skal hvade skrive rettihed i den folder filen skal oprettes.
Ok jeg håber det virker så må jeg kontakte min udbyder i morgen...
Er der ikke snart nemmere hvis jeg for din mail adresse så jeg kan sende mine problemmer til dig ? Jeg vil gerne betale... Også for det du lige har lavet... Du kan sende dit kontonummer til: gatez@bodykits.dk
Du må høre din udbyder. Typsik har man en speciel folder eksvis \db hvor man kar skrive rettighed. Den folder kan kun tilgåes via fysik sti: d:\homes\xxxx\db\
Og så er der en www folder som er web-root set fra browseren og i de folder kan man ikke oprette filer via browseren anden end man har fået det slået til i af web-hotelet. Det er normalt ikke noget problem at få dem til det.
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.
