Søg
Avatar billede gp Nybegynder
24. januar 2005 - 20:38 Der er 5 kommentarer

Download side

Hi Hi,
Jeg vil gerne lave en side hvor der kan downloades filer.

Kan jeg danne en liste efter en mappe på siten der hedder dwonload, så alle filer der findes i mappen kommer med på listen, jeg vil så gerne have at der kommer en dato for hvornår files er gemt, samt at der kan indsættes en icon efter hvilken type filen har, det må gernes indsættes i en tabel.
Avatar billede kalp Novice
24. januar 2005 - 20:44 #1
Det letteste er at starte fra bunden af... lav en download.asp side... og en viinfo.asp eller visdownload.asp side.. den side hvor hver download skal fremvises.

så skal du selvfølgelig også lave en tilfoj.asp side hvor du kan tilføje downloads... bid i det sure æble og tilføj en 30-40 downloads om dagen.. så har du allerede en 800 downloads efter en måned.
Avatar billede hooh Nybegynder
25. januar 2005 - 15:02 #2
her har du hvordan du får vist filerne fra mappen:
http://www.w3schools.com/asp/coll_files.asp

hvornår filen er gemt:
http://www.w3schools.com/asp/asp_ref_file.asp

hvilken type filen er det:
der kan du teste på filens 3 sidste bogstaver og lave en case ud af det.
Avatar billede hooh Nybegynder
25. januar 2005 - 15:10 #3
prøv denne kode:

<%@ Language=VBScript %>
<%
filecounter = 0

directory = "F:\Tipstst\tipsfiles\xskemaer\applet\xml" ' start path
%>

<HTML>
<HEAD>
<TITLE>List Files Using ASP</TITLE>
</HEAD>
<BODY>
<h1>Filer som ligger under : <%=directory%></h1>
<%
    response.write "<TABLE border=1 width='100%'>"
    response.write "<TR><TH ALIGN='left' width='60%'>File Name</TH><TH ALIGN='right' width='10%'>File Size</TH><TH ALIGN='right' width='30%'>Date Modified</TH></TR>"

    Set rs = createobject("adodb.recordset")
    rs.fields.append "FilePath",200,255
        rs.fields.append "FileName",200,255
    rs.fields.append "FileSize",200,255
        rs.fields.append "FileDate",7,255
    rs.open

      Recurse directory

        Sub Recurse(Path)
            Dim fso, Root, Files, Folders, File, i, FoldersArray(1000)
            Set fso = Server.CreateObject("Scripting.FileSystemObject")
            Set Root = fso.getfolder(Path)
            Set Files = Root.Files

            fcount = 0

            For Each File In Files
                filecounter = filecounter + 1
                rs.addnew
                rs.fields("FilePath") = Replace(Replace(File.Path, directory, "", 1, -1, 1), "\", "/")
                rs.fields("FileName") = File.Name
                rs.fields("FileSize") = File.Size
                rs.fields("FileDate") = File.DateLastModified
                rs.update
                rs.Sort = "FilePath ASC, FileName ASC"
            Next

        End Sub

        if filecounter <> 0 Then
                filecounter = 0
            Do While Not rs.eof
                filecounter = filecounter + 1
                response.write "<TR><TD width='50%' valign=top>" & "/" & rs.fields("FileName") & "</TD><TD width='10%' align=right valign=top>"

                    fsize = CLng(rs.fields("FileSize"))

                if fsize >= 0 And fsize <= 999 Then
                    fnumber = FormatNumber(fsize,0) & " Bytes"
                End if

                if fsize >= 1000 And fsize <= 999999 Then
                    fnumber = FormatNumber((fsize / 1000),2) & " KB"
                End if

                if fsize >= 1000000 Then
                    fnumber = FormatNumber((fsize / 1000000),2) & " MB"
                End if

                response.write fnumber & "</TD><TD width='30%' align='right'>" & rs.fields("FileDate") & "</TD></TR>"
                rs.movenext
            Loop
            response.write "</TABLE>"

        End if

%>
</BODY>
</HTML>

Den er ikke kodet af mig. fandt den blandt mine filer. Håber du kan bruge den alligevel.

Den viser : Filnavn, filstørrelse, modified date.
Så kan du vel selv lave navnet om til et link
Avatar billede kalp Novice
05. februar 2005 - 16:26 #4
dp hvorfor skriver du ikke?
Avatar billede gp Nybegynder
05. februar 2005 - 17:59 #5
Sorry, Jeg har testet hooh eks. men få en fejl og ingen liste, men det er noget i den stil jeg har tænk mig.

Link for fejl http://www.human-design.dk/download.asp

GP
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
25/0713:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
White papers
Flere white papers »