Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

santind2

Contador de Downloads

Por , em ASP Clássico

Recommended Posts

andersonleme    1

andersonleme
Postado

faz o seguinte cada vez que alguem clicar no link pra download que ja vai baixar o arquivo você faz carregar um contador que grava no banco de dados

ai voce soma

1 recupera o numero que esta no banco

2 soma ele com +1

é simples mais funciona eu uso assim em muita coisa como visualizar as galerias de fotos

espero que ajude

Compartilhar este post

Link para o post
Compartilhar em outros sites

David_Freitas    0

David_Freitas
Postado

faz o seguinte cada vez que alguem clicar no link pra download que ja vai baixar o arquivo você faz carregar um contador que grava no banco de dados

ai voce soma

1 recupera o numero que esta no banco

2 soma ele com +1

é simples mais funciona eu uso assim em muita coisa como visualizar as galerias de fotos

espero que ajude

 

Só para acrescentar:

 

Se for download por usuário crie uma coluna de contador de download por usuário resgata o valor total de downloads e soma + 1

Depois você pega o registro total de usuários e soma o total de contagens.

 

faz o seguinte cada vez que alguem clicar no link pra download que ja vai baixar o arquivo você faz carregar um contador que grava no banco de dados

ai voce soma

1 recupera o numero que esta no banco

2 soma ele com +1

é simples mais funciona eu uso assim em muita coisa como visualizar as galerias de fotos

espero que ajude

 

Só para acrescentar:

 

Se for download por usuário crie uma coluna de contador de download por usuário resgata o valor total de downloads e soma + 1

Depois você pega o registro total de usuários e soma o total de contagens.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo,

 

<% 
response.expires=0 'Prevent browsers from caching the page
on error resume next
log_file_name=server.mappath(request.form("log_file_name"))
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(server.mappath(log_file_name))

If Err.number=53 then 'Log file is not found so let's create one
  Set fstemp = server.CreateObject("Scripting.FileSystemObject")
  Set filetemp = fstemp.CreateTextFile(log_file_name, true)
  ' true = file can be over-written if it exists
  ' false = file CANNOT be over-written if it exists
  filetemp.WriteLine (1)
  filetemp.Close
  set filetemp=nothing
  set fstemp=nothing
else
  whichfile=log_file_name
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set thisfile = fs.OpenTextFile(whichfile, 1, False)
  hits=Cint(thisfile.readline)
  hits=hits+1
  thisfile.Close
  set thisfile=nothing
  set fs=nothing
  Set fstemp = server.CreateObject("Scripting.FileSystemObject")
  Set filetemp = fstemp.CreateTextFile(log_file_name, true)
  ' true = file can be over-written if it exists
  ' false = file CANNOT be over-written if it exists
  filetemp.WriteLine (hits)
  filetemp.Close
  set filetemp=nothing
  set fstemp=nothing
end if
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="0;URL=<%=request.form("zip_file")%>">
<META NAME="AUTHOR" CONTENT="Andi Zain">
<TITLE>Download File</TITLE>
<LINK REL="Stylesheet" TYPE="text/css" HREF="../css.css">
</HEAD>

<BODY bgcolor="#DFDFFF">
<CENTER>
<FONT FACE="verdana, arial" SIZE=+2>
<B>Downloading <%=request.form("script_name")%></B></FONT>
<HR WIDTH=500 SIZE=1 NOSHADE>
<FONT FACE="verdana, arial" SIZE=2>
<p>Agora você está baixando <B><%=request.form("script_name")%></B></P>
<P>Se o download não iniciar automaticamente, clique
[<A HREF="<%=request.form("zip_file")%>">AQUI</A>]
</P>
<HR WIDTH=500 SIZE=1 NOSHADE>
<FORM ACTION="<%=request.form("url_return")%>" METHOD="POST">
   <INPUT TYPE="SUBMIT" NAME="SENDFILE" VALUE=" Voltar para pagina de DOWNLOAD">
</FORM></font>



</center></BODY></HTML>

 

default.asp

<% 
Response.Expires=0 
Function getSize(zip_file)

Set  fsobj=Server.CreateObject("Scripting.FileSystemObject")
Set auto=fsobj.GetFile(server.mappath(zip_file))
getSize=auto.size

End Function

Function getHits(log_file_name)
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(server.mappath(log_file_name))

If Err.number=53 then 'If log file is not found
  response.write 0
else
  whichfile=server.mappath(log_file_name)
  Set thisfile = fso.OpenTextFile(whichfile, 1, False)
  thisline=thisfile.readline 'Read log file
  getHits=thisline 'Return the value of log file
  thisfile.Close
  set thisfile=nothing
  set fs=nothing
end if

set f=nothing
set fso=nothing

End Function
%>

<HTML>
<HEAD>
<TITLE>Download </title>

</HEAD>

<BODY bgcolor="#F2F2FF">


<%

%> 
<CENTER>
<table width=80% border=1 cellpadding=4 cellspacing=0 bgcolor="00FFFF">
             <tr bgcolor="#DFDFFF"> 
               <td> 
                 <table width=100% border=0 cellpadding=0 cellspacing=0>
                   <tr valign=MIDDLE> 
                     <td align=LEFT width=450 bgcolor="#DFDFFF" valign="top"><font face="Arial, Helvetica" size=3><b>Contador de Download</b></font></td>
                     <td width=75 height=14 align=RIGHT valign="top"> 
                       <form action="sendfile.asp" method="POST">
                         <input type="submit" value="Download">


<input type="hidden" name="zip_file" value="<%=zip_file%>">
<input type="hidden" name="url_return" value="<%=url_return%>">
<input type="hidden" name="log_file_name" value="<%=log_file_name%>">
<input type="hidden" name="script_name" value="<%=script_name%>">


                       </form>
                     </td>
                    </tr>
                 </table>
               </td>
             </tr>
           </table>
           <table width=80% border=1 cellpadding=4 cellspacing=0>
             <tr valign=TOP align=CENTER> 
               <td align=LEFT width=33%><font face="Arial, Helvetica" size=2>Postado: 
                 <b>01/01/2010</b></font></td>
               <td align=CENTER width=33%><font face="Arial, Helvetica" size=2>Tamanho: 
                 <b><%= getSize(zip_file) %> bytes</b></font></td>
               <td align=RIGHT width=33%><font face="Arial, Helvetica" size=2>Downloads: 



           <b><%=getHits(Cstr(log_file_name))%></b></font></td>
             </tr>
           </table>
           <table width=80% border=1 cellpadding=4 cellspacing=0>

           </table>




</center>
</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito