Upload

--- title: "Uploadscript utan komponent" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page15" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "OveRRidE" published: "2002-06-18T07:09:05.000Z" updated: "2007-09-04T23:17:00.000Z" replies: 307 views: 16870 page: 15 pages: 16 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/46131-uploadscript-utan-komponent" --- # Uploadscript utan komponent _Sida 15 av 16._ ## #281 — sin_adec, 2006-07-11T08:17Z sidan jag hämtar bilderna det här är sidan jag hämtar bilderna. ``` <% Set connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\FSC\Mina dokument\web\databas.mdb" Set recset = Server.CreateObject("adodb.recordset") SQL = "Select * From onskningar where id=" & Request.Querystring("id") RecSet.Open SQL, Connect, 3,3 %>

"> ``` men förstår inte varför inte alla tre bilder visas Permalänk: https://www.webforum.nu/p/1838482 ## #282 — J.N., 2006-07-12T08:10Z HEJ! Jag tolkar ditt tidigare inlägg som att alla bilder finns på servern, och även i databasen? Testa skriv ut variablerna direkt efter frågan, kolla så namnen är korrekta och sökvägen. Prova även att surfa direkt till bilderna. Finns allt inlagt och upplagt, måste det vara något enkelt fel om du inte kan visa dem. Permalänk: https://www.webforum.nu/p/1841623 ## #283 — sin_adec, 2006-07-14T10:09Z jag testade med att surfa direkt till bilderna men då var det bara ( \<%=recset("bildtre")%\> som fungerade.. Permalänk: https://www.webforum.nu/p/1842211 ## #284 — J.N., 2006-07-14T13:17Z Då säger det sig själv att de inte är upplagda. Som du säkert själv listat ut. ;) Permalänk: https://www.webforum.nu/p/1842262 ## #285 — Jeppeweb, 2006-10-16T20:24Z Jag har en community, hur gör jag om jag vill att bildnamnet ska döpas efter medlemsanvändarnamn? session("cmalias") har försökt lite men inte lyckas få det att fungera alls.. TACKSAM FÖR HJÄLP! Permalänk: https://www.webforum.nu/p/1884196 ## #286 — Jeppeweb, 2006-10-17T05:30Z nåågon? :( Permalänk: https://www.webforum.nu/p/1884257 ## #287 — @nders, 2006-10-17T05:50Z Ta det lugnt och visa ditt kodförsök som inte fungerar. Det är inte alltid rätt folk är uppe hela natten och väntar på att du ska vilja ha hjälp. Permalänk: https://www.webforum.nu/p/1884262 ## #288 — Jeppeweb, 2006-10-17T05:57Z outputfile.asp ``` Upload <% Response.Expires=0 Response.Buffer = TRUE Response.Clear 'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes)) byteCount = Request.TotalBytes 'Response.BinaryWrite(Request.BinaryRead(varByteCount)) RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin 'Exempel på hur man kan 'plocka ner' andra forumlärelement 'email = UploadRequest.Item("email").Item("Value") contentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) value = UploadRequest.Item("blob").Item("Value") 'Create FileSytemObject Component Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") 'Create and Write to a File pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 ' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename) Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" & session("cmalias")) & "\" & filename) filename = cmalias & right(filename,4) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close response.write "Filen är nu uppladdad, vänta på att den ska bli accepterad" response.write "" %> ``` Permalänk: https://www.webforum.nu/p/1884265 ## #289 — @nders, 2006-10-17T05:59Z ... och på vilket sätt fungerar det inte? Felmeddelande? Om inte mappen med samma namn som din session finns, då måste du skapa den först. Du borde också räkna start- och slutparenteser på den rad där du kör *CreateTextFile*, antalet och placeringen stämmer inte som det är nu. Permalänk: https://www.webforum.nu/p/1884266 ## #290 — Jeppeweb, 2006-10-17T06:02Z Okej, men jag vill inte att den ska behöva skapa en mapp, endast att filnamnet ska döpas efter till "cmalias", hur göra? Permalänk: https://www.webforum.nu/p/1884267 ## #291 — @nders, 2006-10-17T06:04Z Prova att ta bort det fetmarkerade: ``` Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" [b]& session("cmalias")) & "\"[/b] & filename) ``` Edit: lite svårt att se var fetmarkeringen börjar, men det jag menar att du ska ta bort ur raden är: ``` & session("cmalias")) & "\" ``` Permalänk: https://www.webforum.nu/p/1884269 ## #292 — Jeppeweb, 2006-10-17T06:06Z Då blir filnamnet detsamma som bilden jag laddar upp det heter, jag vill alltså få bilden att heta de namnet som användaren som laddar upp bilden heter.. användaren jesper laddar upp en .jpg, då blir namnet på bilden alltså jesper.jpg Permalänk: https://www.webforum.nu/p/1884270 ## #293 — @nders, 2006-10-17T06:08Z Du definierar ju inte om *filename* förrän raden under, så flytta upp den så du har ett nytt filnamn innan du kör createtextfile. Permalänk: https://www.webforum.nu/p/1884271 ## #294 — Jeppeweb, 2006-10-17T06:09Z Va ? Permalänk: https://www.webforum.nu/p/1884272 ## #295 — Jeppeweb, 2006-10-17T06:11Z Hur skulle koden se ut då? Permalänk: https://www.webforum.nu/p/1884274 ## #296 — @nders, 2006-10-17T06:13Z Så här ser det ju ut nu: ``` Set MyFile = ScriptObject.CreateTextFile ...... filename = cmalias & right(filename,4) ``` Flytta upp raden där du definierar om *filename*, så den körs innan den raden som faktiskt använder variabeln. (Du hade också glömt "session" där) ``` filename = [b]session("cmalias")[/b] & right(filename,4) Set MyFile = ScriptObject.CreateTextFile ...... ``` Permalänk: https://www.webforum.nu/p/1884275 ## #297 — Jeppeweb, 2006-10-17T07:16Z Gjort så, bilderna döper sig till "jesper\\bild.jpg" anv = jesper Permalänk: https://www.webforum.nu/p/1884286 ## #298 — @nders, 2006-10-17T07:18Z Hur ser de två kodraderna ut hos dig nu då? Permalänk: https://www.webforum.nu/p/1884287 ## #299 — Jeppeweb, 2006-10-17T07:23Z ``` 'Create and Write to a File pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 ' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename) Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" & session("cmalias")) & "\" & filename) filename = session("cmalias") & right(filename,4) ``` Permalänk: https://www.webforum.nu/p/1884288 ## #300 — @nders, 2006-10-17T07:41Z Men Du har ju inte gjort några av förändringarna jag skrivit??? Bort med session-delen ur createtextfile-raden, och flytta upp raden där du definierar filename. Permalänk: https://www.webforum.nu/p/1884292 --- Tråden på webben: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page15 Föregående sida: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page14.md Nästa sida: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page16.md