Upload

--- title: "Snälla hjälpa mig....." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/94611-snälla-hjälpa-mig" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "ragnared" published: "2004-01-12T14:59:56.000Z" updated: "2004-01-14T19:57:34.000Z" replies: 25 views: 533 page: 1 pages: 2 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/94611-snälla-hjälpa-mig" --- # Snälla hjälpa mig..... _Sida 1 av 2._ ## #1 — ragnared, 2004-01-12T14:59Z Jag vill att det script ska lista det uppifrån och ner och inte tvätom. hur gör man.... ``` <%@EnableSessionState=True%> Upload

New uploaded nfo´s

<% '################################################### '-------------MAPPEN DU LADDAR UPP FILERNA TILL---------------------- '################################################### Mappen = Server.MapPath("uploads") Set MappKoll = Server.CreateObject("Scripting.FileSystemObject") Set Mapp = MappKoll.getFolder(Mappen) PS = 15 If Mapp.Files.Count Mod PS Then Sidor = Mapp.Files.Count \ PS + 1 Else Sidor = Mapp.Files.Count \ PS End If Sida = Request.QueryString("sida") If Sida = "" Then Sida = 1 End If Start = (Sida - 1) * PS Slut = Start + PS If Mapp.Files.Count = 0 Then%> <%Else For Each File In Mapp.Files bild = InStrRev(LCase(File.Name), "." ) If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1 ) If X < Start Then ElseIf X < Slut Then%> <%Else Exit For End If X = X + 1 Next End If If Sidor < 1 Then%> <%End If%> <%If Session("mess") <> "" Then%> <%End If%>

No covers!

<%=File.Name%> - <%=Round(File.Size/1000, 1)%> kb

<%For i = 1 To Sidor If i = CInt(Sida) Then Response.Write "" & i & "" Else Response.Write " " & i & " " End If Next%>

file:

<%Response.Write Session("mess") Session("mess") = ""%>

<%If Request.QueryString("do") = "upload" Then Response.Buffer=True Response.Expires=0 Set Upload = Hamta_filer() files = Upload("upload").Item("content") If MappKoll.FileExists(Mappen & "\" & extract_filename(Upload("upload").Item("filename"))) Then Session("mess") = "This looks like a dupe!" Response.Redirect "lista.asp" Else Set File = MappKoll.CreateTextFile(Mappen & "\" & extract_filename(Upload("upload").Item("filename"))) End If For i = 1 to LenB(files) File.Write chr(ASCB(MidB(files, i, 1))) Next Response.Redirect "lista.asp" File.Close: Set File = Nothing Function Hamta_filer() Set filer = Server.CreateObject("Scripting.Dictionary") Binaries = Request.BinaryRead(Request.TotalBytes) start = 1 slut = InstrB(start, Binaries, hamta_strang_size(chr(13))) boundary = MidB(Binaries, start, (start - slut)) b_position = InstrB(1, Binaries, boundary) Do Until (b_position = InstrB(Binaries, boundary & hamta_strang_size("--"))) If Not(Response.IsClientConnected) Then Response.End start = (InstrB(InstrB(b_position, Binaries, hamta_strang_size("Content-Disposition")), Binaries, hamta_strang_size("name=")) + 6) slut = InstrB(start, Binaries, hamta_strang_size(chr(34))) name = hamta_strang(MidB(Binaries, start, (slut - start))) pos_file = InstrB(b_position, Binaries, hamta_strang_size("filename=")) If ((pos_file <> 0) AND (pos_file < InstrB(slut, Binaries, boundary))) Then filer.Add name, Server.CreateObject("Scripting.Dictionary") start = (pos_file + 10) slut = InstrB(start, Binaries, hamta_strang_size(chr(34))) filer.item(name).Add "filename", hamta_strang(MidB(Binaries, start, (slut - start))) start = (InstrB(slut, Binaries, hamta_strang_size("Content-Type:")) + 14) slut = InstrB(start, Binaries, hamta_strang_size(chr(13))) filer.item(name).Add "content-type", hamta_strang(MidB(Binaries, start, (slut - start))) start = (slut + 4) slut = InstrB(start, Binaries, boundary) - 2 filer.item(name).Add "size", ((slut - start)) filer.item(name).Add "content", MidB(Binaries, start, (slut - start)) End If b_position = InstrB(b_position + LenB(boundary), Binaries, boundary) Loop Set Hamta_filer = filer End Function Function hamta_strang_size(str) For cnt = 1 to Len(str) hamta_strang_size = hamta_strang_size & chrB(ASCB(Mid(str, cnt, 1))) Next End Function Function hamta_strang(str) For cnt = 1 to LenB(str) hamta_strang = hamta_strang & chr(ASCB(MidB(str, cnt, 1))) Next End Function Function extract_filename(filename) extract_filename = Right(filename, Len(filename) - InStrRev(filename, "\", -1, 1)) End Function End If%> ``` RED. Fixade till koden. //OveRRidE Permalänk: https://www.webforum.nu/p/94611 ## #2 — @nders, 2004-01-12T15:05Z Om du fixar till koden så den är läsbar (ta bort allt onödigt och lägga till \[kod\]-taggar till exempel) så finns det säkert folk som kan ta sig en titt. Permalänk: https://www.webforum.nu/p/1247901 ## #3 — m_soderlund, 2004-01-12T15:07Z Uj uj uj vad jobbig kod att läsa! Fixa gärna till mellanrummen och lägg koden inom \[kod\]-taggar så vore det ytterst bra! :) **/r** snabeln före igen.. Permalänk: https://www.webforum.nu/p/1247904 ## #4 — ragnared, 2004-01-13T20:13Z Är det ingen som vet ??? Jag kan inte ändra något som vissa av er skriver för jag förstår inte detta script. Det enda jag skulle vara tacksam är om någon person vet hur man gör för att få det senaste scriptet man laddar upp först och inte sist. Kan någon ta sig en titt på detta. Permalänk: https://www.webforum.nu/p/1251688 ## #5 — cyprys, 2004-01-13T20:14Z en titt på vadå? Tips: Ge bättre rubriker som förklarar Permalänk: https://www.webforum.nu/p/1251689 ## #6 — ragnared, 2004-01-13T20:18Z Jag vill att det script ska lista det uppifrån och ner och inte tvätom. hur gör man.... kod:-------------------------------------------------------------------------------- \<%@EnableSessionState=True%\> \ \ \Upload\ \