<%
'************************************************************************
'** X-CHANGER - Troca de banners - Ano 2002 **
'** **
'** Sistema de troca de banners desenvolvido pela equipe **
'** Scriptmaster em parceria com a Paraná Design **
'**Contatos: **
'** Alexandre Vahldick - alexandre@paranadesign.com **
'** Renato Augusto V. Elias - averanger@scriptmaster.com.br **
'** Robson Campos De Abreu - jago@scriptmaster.com.br **
'**Sites: **
'** http://www.paranadesign.com **
'** http://www.scriptmaster.com.br **
'************************************************************************
%>
document.write("")
document.write("")
<%'Agora faremos com que essa página nunca se possa repetir.
'Então adicionamos varios comandos para expirar ela.
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1980 00:00:01#
Response.Expires=Now()-1000000
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
'incluíamos o arquivo config
'e nele abrimos a conexão
%>
<%
'Criamos o recordest
Set rs = Server.CreateObject("ADODB.Recordset")
'Abrimos a tabela membros sendo que a conta tem de estar ativado e ter mais de um credito
rs.Open "SELECT * FROM membros where conta = 'Ativado' and creditos > '1' ORDER BY tc_id", conexao, 3, 3
'Verificaremos se recorset é valido
'Caso não for verdadeiro
'Ele mostra uma msg e texto configurado
if rs.bof = true then%>
document.write("
")
<%'Se não ele começa o processo de randomize
else
'Aqui é contado quanto registro esistem o banco de dados
id = rs.recordcount
'Aqui criei o randon com a quantidade de registros por exemplo:
'Se o nº de registros foi igual a 30 e vai fazer um randon de 1 a 30
' Ao mesmo tempo em que estou fazendo o randon estou movendo o rs para o nº escolhido.
Randomize
rs.Move (Int(id * Rnd))
'Radomize acabado.. ja temos uma imagem para mostrar.
'Agora vamos tirar 1 credito do usuário e adicionar as estáticas dele,selecionado no randomize
conexao.execute("Update membros set exibicoes='"&cint(RS("exibicoes"))+1&"', hit = '"&cint(RS("hit"))+1&"',creditos="&cint(rs("creditos"))-1&" where tc_id ="&rs("tc_id"))
'Agora vamos imprimir na tela o banner do usuário%>
document.write("![<%=rs("texto")%>](<%=rs("imagem")%>)
")
<%end if
'Agora que já temos a imagem imprimida vamos fechar o randomize e adicionar o ponto ao usuário do sistema
rs.close
'Obteremos agora o id do usuário
Userid = replace(request("userid"),"'","")
'Caso userid estiver em branco, ele para e nenhum usuário receberá o ponto
if userid = "" then
'Se não ele continua e verifica se userid não for número, ele para e nenhum usuário receberá o ponto
elseif isnumeric(userid) = false then
'Se não ele segue em diante
else
'Abriremos um recordeset com o userid que recebemos
rs.Open "SELECT * FROM membros where tc_id ="&userid&"", conexao, 3, 3
'Agora vamos verificaremos se rs é valido
'Caso não seja, ele para e não executa nada.
if rs.bof = true then
'Se não ele segue em diante
else
'Adicionando a pontuação
'Primeiros vamos verificar o ratio
'Se ele for igual ao ratiof que foi configurado
'ele segue
if cint(rs("ratio")) => cint(ratiof) then
'Cria uma variável chamada créditos e nela coloca os créditos do rs e adiciona 1
creditos = rs("creditos") + 1
'Cria uma variável chamada ratio e nela coloca o valor de 1
ratio = "1"
'Se não
else
'Cria uma variável chamada créditos e nela coloca os créditos do rs
creditos = rs("creditos")
'Cria uma variável chamada ratio e nela coloca os ratio do rs e adiciona 1
ratio = rs("ratio") + 1
end if 'Fecha o SE
'Agora vamos atualizar com todos os dados
conexao.execute("Update membros set exibicao_seu='"&cint(RS("exibicao_seu"))+1&"', ratio = '"&ratio&"',creditos="&creditos&" where tc_id ="&rs("tc_id"))
end if
'fecha a conexão
rs.close
end if
'zera o objeto rs
set rs = nothing
'Inclui o rodape e fecha a conexão
%>
<%if rodape = "on" then 'Se caso rodape ativado ele segue%>
document.write("")
<%end if 'Fecha o SE%>