Ir para conteúdo

POWERED BY:

Arquivado

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

vukny

Confirmar Placar

Por , em ASP Clássico

Recommended Posts

vukny    0

vukny
Postado

Ola pessoal, queria ver se alguem podeira ajuda, tipo eu tenho um campeonato online, onde o jogador faz o login e depois ele tem as opçoes de enviar o placar, confirmar placar, oq eu queria fazer é q depois de 24 horas o resultado fosse confirmado pelo proprio sistema, caso o jogador não confirme, esse codigo abaixo é da parte em q o jogador confirma o jogo enviado pelo adversario, so q as vezes tenho jogadores q nao coinfirmam, ai eu queria saber se dentro desse codigo tem algum jeito de fazer q depois de 24h caso o jogador não confirmo o jogo o sistema confirma.

 

vlw aee

 

<title>Confirma Placar</title><body><!--#include file= "estilo.asp" --><%Set objConexao = Server.CreateObject("adodb.connection")objConexao.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\db7frvirtual.mdb")nicklogado = session("nick")sql = "Select * from jogos where time2 = '" & nicklogado & "' and confirmado = false"'jogos que o seu adversario enviousql2 = "Select * from jogos where time1 = '" & nicklogado & "' and confirmado = false"'jogos que você enviouSet rs = Server.CreateObject("ADODB.Recordset")rs.CursorType = 3rs.open sql, objConexaoSet rs2 = Server.CreateObject("ADODB.Recordset")rs2.CursorType = 3rs2.open sql2, objConexaoif rs.eof = true and rs2.eof = true then   response.write("Nenhum Resultado a Confirmar")end ifif rs2.eof = false then   response.write("Jogos enviados por você, ainda não confirmados:<P>")	do while not rs2.eof		response.write (rs2("data") & " - " & rs2("time1") & " " & rs2("resultado1") & " x " & rs2("resultado2") & " " & rs2("time2"))		response.write (" <a href='excluir.asp?cmd=" & rs2("id") & "'>Excluir</a><br>")		rs2.movenext	loop	Response.Write("<P>")end ifIf rs.EOF = false Then	response.write ("Jogos para você confirmar:<P>")	rs.movelast	lastid = rs("id")	rs.movefirst	Do While Not rs.EOF		id = rs("id")		response.write (rs("data") & " - " & rs("time1") & " " & rs("resultado1") & " x " & rs("resultado2") & " " & rs("time2"))		response.write (" <a href='confirma.asp?cmd=" & id & "'>Confirmar</a> <a href='excluir.asp?cmd=" & id & "'>Excluir</a><br>")		rs.movenext	Loop	response.write("<P>")	gsCommand = (Request.QueryString("CMD"))	gsCommand = CInt(gsCommand)	For i = 1 To lastid		If i = gsCommand Then			sql1 = "Select * from jogos where id = " & gsCommand			Set rs1 = Server.CreateObject("ADODB.Recordset")			rs1.CursorType = 3			rs1.open sql1, objConexao			if rs1.eof then 			   response.write("Resultado Inexistente")				 reponse.end			end if			frmTime1 = rs1("time1")			frmTime2 = rs1("time2")			frmResultado1 = rs1("resultado1")			frmResultado2 = rs1("resultado2")			sqltime1 = "Select * from cadastro where nick = '" & frmTime1 & "'"			'pega os dados (pontos) do nicklogado			Set rstime1 = Server.CreateObject("ADODB.Recordset")			rstime1.CursorType = 3			rstime1.open sqltime1, objConexao			sqltime2 = "Select * from cadastro where nick = '" & frmTime2 & "'"			'pontos do time adversário			Set rstime2 = Server.CreateObject("ADODB.Recordset")			rstime2.CursorType = 3			rstime2.open sqltime2, objConexao			If frmResultado1 = frmResultado2 Then				Time1pts = rstime1("pontos") + 3				Time2pts = rstime2("pontos") + 3				Time1jogos = rstime1("jogos") + 1				Time2jogos = rstime2("jogos") + 1				Time1vitoria = rstime1("vitoria") + 0				Time2vitoria = rstime2("vitoria") + 0				Time1empate = rstime1("empate") + 1				Time2empate = rstime2("empate") + 1				Time1derrota = rstime1("derrota") + 0				Time2derrota = rstime2("derrota") + 0				Time1gp = rstime1("gp") + frmResultado1				Time2gp = rstime2("gp") + frmResultado2				Time1gc = rstime1("gc") + frmResultado2				Time2gc = rstime2("gc") + frmResultado1			ElseIf frmResultado1 > frmResultado2 Then				Time1pts = rstime1("pontos") + 10				Time2pts = rstime2("pontos") - 7				Time1jogos = rstime1("jogos") + 1				Time2jogos = rstime2("jogos") + 1				Time1vitoria = rstime1("vitoria") + 1				Time2vitoria = rstime2("vitoria") + 0				Time1empate = rstime1("empate") + 0				Time2empate = rstime2("empate") + 0				Time1derrota = rstime1("derrota") + 0				Time2derrota = rstime2("derrota") + 1				Time1gp = rstime1("gp") + frmResultado1				Time2gp = rstime2("gp") + frmResultado2				Time1gc = rstime1("gc") + frmResultado2				Time2gc = rstime2("gc") + frmResultado1		ElseIf frmResultado1 < frmResultado2 Then				Time1pts = rstime1("pontos") - 7				Time2pts = rstime2("pontos") + 10				Time1jogos = rstime1("jogos") + 1				Time2jogos = rstime2("jogos") + 1				Time1vitoria = rstime1("vitoria") + 0				Time2vitoria = rstime2("vitoria") + 1				Time1empate = rstime1("empate") + 0				Time2empate = rstime2("empate") + 0				Time1derrota = rstime1("derrota") + 1				Time2derrota = rstime2("derrota") + 0				Time1gp = rstime1("gp") + frmResultado1				Time2gp = rstime2("gp") + frmResultado2				Time1gc = rstime1("gc") + frmResultado2				Time2gc = rstime2("gc") + frmResultado1		End If		if rs1("confirmado") = false then			sqlupdate = "update jogos set confirmado = true where id = " & gsCommand			sqlupdatetime1 = "update cadastro set pontos = " & Time1pts & _				 ", jogos = " & Time1jogos & _				 ", vitoria = " & Time1vitoria & _				 ", empate = " & Time1empate & _				 ", derrota = " & Time1derrota & _				 ", gp = " & Time1gp & _				 ", gc = " & Time1gc & " where nick = '" & frmTime1 & "'"			sqlupdatetime2 = "update cadastro set pontos = " & Time2pts & _				 ", jogos = " & Time2jogos & _				 ", vitoria = " & Time2vitoria & _				 ", empate = " & Time2empate & _				 ", derrota = " & Time2derrota & _				 ", gp = " & Time2gp & _				 ", gc = " & Time2gc & " where nick = '" & frmTime2 & "'"			objConexao.Execute (sqlupdate)			objConexao.Execute (sqlupdatetime1)			objConexao.Execute (sqlupdatetime2)			response.redirect ("mensagem.asp?msg=confirmado")		End If		End If	NextEnd IfobjConexao.CloseSet objConexao = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Schneider    0

Schneider
Postado

Cara, acho que tu podes criar uma pagina especifica para ficar varrendo os jogos e sempre que detectar algum que ja passaram 24horas e que não foi confirmado, faça a alteração.feito isso, tu teria duas opções:- Colocar a pagina em uma especi de crontab do server que se encarregue de rodar a pagina em certos intervalos de tempo.ou- Colocar uma chamada para a página em algum lugar do site que sempre seja acessado, para garantir que a pagina de varredura sempre sera executada. ( ex: evento 'Session_start' do arquivo global.asa ou algum include que possa ser usado em todas a paginas.espero ter ajudado... falow aí cara!

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