Codeme

Bem Vindo ao CODME
Cadastre-se agora para obter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações pós status, gerenciar seu perfil e muito mais. Esta mensagem será removido depois de ter cadastrado.
Entrar na Conta Criar uma conta


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

#1 Contagem progressiva em Sab Nov 02, 2013 6:28 pm

Admin

avatar

Admin

Contagem progressiva com horas minutos segundos

download1.asp
Código:

<% 
id = request.querystring("id")
dim sql
dim conn
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/download.mdb")
Sql1 = "SELECT * FROM download WHERE id =" & id & ""
Set rs = Server.CreateObject("ADODB.Recordset")   
rs.Open SQL1, conn, 3, 3
cliquesa = rs("cliques")
cliquesb = "1"
x = cliquesa + cliquesb
Sql = "UPDATE download SET cliques = '" & x & "' WHERE id = " & id & " "
conn.Execute(Sql) %>
 
<html>
<head>
<title>igadino.com</title>
<meta http-equiv="refresh" content="3; URL=<%=rs("url")%>">
</head>
<body>
<center><font face="Verdana" color="#000000" size="4">
Fazendo o download do arquivo <%=rs("nome")%>...<br>
Se o download não começar em 3 segundos<br>
<a href="<%=rs("url")%>">Clique Aqui</a></font></center>
<% rs.close
'FechaConexao
Set rs = nothing %>
<BR><BR><BR>
<font face="Verdana"><center><font face="Verdana" size="2" color="#A8E6FD"><i>Mantido
por igadino.com</i><br>
<a href="http://www.igadino.com" target="_blank">www.igadino.com</a></font></center></font>
</body>
</html>
estatisticas.asp
Código:
<html>
<head>
<title>igadino.com</title>
</head>
<body>
<h1>Estatísticas</h1>
<table width="500" cellSpacing="0" cellPadding="0" bordercolor="#EFEFEF" border="1" align="center">
<tr><td align="center">
<%
pagina = Request.QueryString("Pagina")
if pagina = "" then
pagina = 1
end if
'Seta a variavel pagina como a página em questão na paginação
registros = 10
'Seta o número de registros por pagina
set conn = Server.CreateObject("ADODB.Connection")
strconn = "DBQ=" & Server.MapPath("db/download.mdb")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; " & strconn
set RS = Server.Createobject("AdoDB.RecordSet")
set RS.ActiveConnection = conn
RS.cursortype = 3
RS.pagesize = registros
StrSQL = "SELECT * FROM download"
RS.Open StrSQL
if RS.EOF then
response.Write "<table align='center' width='490'><tr><td align='center'>Não existe nenhum recado a ser listado.</td></tr><tr><td align='center'><a href='../../'>Voltar</a></td></tr></table>"
else
RS.absolutepage = pagina
Response.Write "Existem " & RS.RecordCount & " registros Mostrando página " & Pagina & " de " & RS.PageCount
end if
fim = 1
xx = 0
While NOT RS.EOF AND xx < RS.pagesize
xx = xx + 1
%>
</td></tr>
<tr><td>
<table bordercolor="#EFEFEF" border="0" width="500" align="center">
<tr><td colspan="3"><a href="download1.asp?id=<%=rs("id")%>"><%=rs("nome")%></a></td></tr>
<tr><td colspan="3"><%=rs("descricao")%></a></td></tr>
<tr><td width="200"><font color="#003366" size="2">Cliques:<%=rs("cliques")%></font></td><td><font color="#003366" size="2">Publicado: <%=rs("adicionado")%></font></td><td><font color="#003366" size="2">Tamanho: <%=rs("tamanho")%></font></td></tr>
</table>
</td></tr>
<tr><td bgcolor="#EFEFEF" align="right">
<%
RS.MoveNext
Wend
anterior = pagina - 1
proxima = pagina + 1
if anterior <> 0 then
%>
<b>• <a href="estatisticas.asp?Pagina=<%=anterior%>">Anterior</a></b>
<%
end if
if strcomp(proxima,RS.PageCount) <> 1  then
%>
<% if RS.eof then
response.write("")
else
%>
<b>• <a href="estatisticas.asp?Pagina=<%=proxima%>">Próxima</a></b>
<%
end if
end if
RS.Close
Conn.Close
%>
</td></tr>
<tr><td bgcolor="#000000" height="10"></td></tr>
</table>
</body>
</html>
Feito por: Idelbrandes Goncalves

Ver perfil do usuário http://codme.umforum.net

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]


Permissão deste fórum:
Você não pode responder aos tópicos neste fórum