"Download-System"

på både www.activeserverpages.dk samt www.netcoders.dk kan du downloade sådanne tællere så tag et kig på de to sider

det er ikke en tæller jeg skal bruge, men et system så når folk klikker på et link, åbner den download.asp?file=4 som så sender en fil

i PHP ser det sådan her ud:

  header("Content-type: application/force-download");
    $rs = mysql_query("SELECT name FROM filelist WHERE id=$HTTP_GET_VARS[id]");
    $row = mysql_fetch_row( $rs );
    if (strstr($_SERVER["HTTP_USER_AGENT"], "MSIE"))
      header("Content-Disposition: filename=$row[0]" ); // For IE
    else
      header("Content-Disposition: attachment; filename=$row[0]"); // For Other browsers
    readfile( realpath ("")."file$HTTP_GET_VARS[id].htx" );

Men jeg vil gerne have det i ASP

grunden til normalt at man bruger "download.asp?file=4" er at man gerne vil føre statistik på hvilke links der klikkes på...

anyway - det er også netop det du kan finde på de to angivne sider

tror det er det her du vil ha :

databasen :
id  fil
1  fil1.zip
1  fil2.zip


asp siden :

<%
Set rsdown = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * From filer where id = " & request.querystring("id") & ""
rsdown.Open strSQL, conn, 1, 3
%>
<%
response.Redirect rsdown("fil")
%>

tror nok man kan gøre det sådan men jeg er ikke sikker

ja næsten...

Har pt. brugt istedet <META HTTP-EQUIV='Refresh' CONTENT='3;URL=<%response.write rs("link")%>'>

Men det jeg ville have, var så når man dl filen, så hedder den f.eks program.exe, men på serveren hedder den fil.tmp
- Altså så man ikke kan skrive /filer/program.exe

Her er koden jeg bruger for at kunne skjule filernes rigtige navne, samt logge IP-nummer. Det kan let udbygges til at spørge i databasen på baggrund af en querystring. Folderen med filerne har jeg passwordbeskyttet vis IISen.

<%
Response.Clear
Response.AddHeader "Content-Disposition", "attachment; filename=filename_when_download.zip"
response.contentType = "application/zip"
       
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = 1
objStream.Open
objStream.LoadFromFile server.mapPath("/files/filename_in_filesystem.zip")

response.binarywrite objStream.Read
%>

halluu?