Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia,
Estou precisando criar um contador de downloads em asp.
Alguém sabe como posso começar?
Obrigado
>
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.
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>
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