Avatar billede wall Nybegynder
19. februar 1999 - 00:00 Der er 7 kommentarer og
1 løsning

Download tæller på en fil

Hej alle sammen

Er der en måde man kan lave en tæller på en fil hvor mange gange den er blevet downloadet ? Det har de på netcoders.dk.
Avatar billede ruprect Nybegynder
19. februar 1999 - 13:06 #1
Dette er 'from the top of me head':

Lav en side du kalder dl.asp

På den side henter du så et par args. du har sendt videre, og henter filnavnet.

FilId=Requestest.Form("ID")

mySQL="SELECT filnavn "
mySQL=mySQL&"FROM filnavne "
mySQL=mySQL&"WHERE id = "  & FilId

Så skal du bare addere 1 til den eksisterende dlcount i tabellen. og sidst men ikke mindst bruge

response.redirect

Til at sende filen i hovedet på brugeren.

-Michael
Avatar billede ruprect Nybegynder
19. februar 1999 - 13:09 #2
Jeg ved godt at der er et par typos, men det tog mig også kun 2 minutter at skrive.

Michael
Avatar billede wall Nybegynder
19. februar 1999 - 13:51 #3
Den kan jeg ikke bruge :(
Avatar billede rdj Nybegynder
19. februar 1999 - 14:07 #4
Så kan du måske bruge denne.
Denne kode er langt hurtigere end at skrive til en database
------Kode----------

<%@ LANGUAGE="VBScript" %>
<%
' Define Constants
Dim sFilenavn
sFilenavn = Request.QueryString("F")

ForReading  = 1
ForWriting  = 2
ForAppending = 8

' Map current path to physical path
curDir = Request.ServerVariables("APPL_PHYSICAL_PATH")
Response.Write "Dir: "& curDir & "<BR>"
Response.Write "File: "& sFilenavn & "<BR>"

' Create FileSytemObject Component
dim iTaeller
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
if ScriptObject.FileExists(curDir + "\" + sFilenavn) then
  Set MyFile = ScriptObject.OpenTextFile(curDir + "\" + sFilenavn, ForReading)
  iTaeller = cInt(MyFile.ReadAll)
Else
  iTaeller = 0
End if

' Create and Write to a File
iTaeller = iTaeller + 1

Set MyFile = ScriptObject.CreateTextFile(curDir + "\" + sFilenavn, ForWriting)
MyFile.WriteLine iTaeller
Myfile.Close

' Read From File and Output to Screen
Set MyFile = ScriptObject.OpenTextFile(curDir + "\" + sFilenavn, ForReading)
Response.Write MyFile.ReadAll
%>
------Kode----------

Du kan nok selv finde ud, at hente de dele ud denne kode, som du kan bruge.
Avatar billede rdj Nybegynder
19. februar 1999 - 14:10 #5
PS du skal hente filen sådan her "\counter.asp?f=filnavn"

Counter.asp er asp filen
og filnavn er navnet på counterfilen

Avatar billede wall Nybegynder
19. februar 1999 - 14:18 #6
Hej rdj

Den virker mange tak for din hjælp :)
Avatar billede phreak--- Nybegynder
06. oktober 2000 - 00:23 #7
Jeg har lavet en hosted download tæller, som alle kan bruge, ligegyldig hvilken hjemmeside de har. Den kan tælle og registrere alle downloads, og vise oversigt og statistik på dem.

Den kan ses på: http://www.mols.dk/service/download/
Avatar billede phreak--- Nybegynder
06. oktober 2000 - 00:24 #8
Jeg har lavet en hosted download tæller, som alle kan bruge, ligegyldig hvilken hjemmeside de har. Den kan tælle og registrere alle downloads, og vise oversigt og statistik på dem.

Den kan ses på: http://www.mols.dk/service/download/
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Cognizant Technology Solutions Denmark ApS

Sr. Test Analyst

IT & Co ApS

Systemkonsulent

Cognizant Technology Solutions Denmark ApS

Energy Trading Project Manager – Consulting

Netcompany A/S

Test Specialist