Ir para conteúdo

POWERED BY:

Arquivado

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

Danielle Anadinho

link não chama função com onclick!!!!

Por , em ASP Clássico

Recommended Posts

Danielle Anadinho    0

Danielle Anadinho
Postado 

<script> function retorna()    {	 //...	 self.close();// já tentei window.close tb....   } 		</script><STRONG><B>	 <FONT color=black size=3>  <a href="#" onclick="retorna()"><%Response.Write str_nome_r%></a>	 </FONT>		</STRONG> <br>

Alguém consegue me ajudar????

to criando um link.... (conforme código acima), que qdo clicado deveria chamar a funçã oretorna(), mas isso não acontesse.

P.S.: Já verifiquei a execução não chega nem no script, o problema paresse estar na linha '10'.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maux    0

Maux
Postado

tenta assim<a href="java script: window.close()"><%Response.Write str_nome_r%></a>ou assim:<a href="java script: retorna()"><%Response.Write str_nome_r%></a>tenta ai dnovo pq eu arrumei uma coisa que tava errada.... post atualizado ^^abrass

Compartilhar este post

Link para o post
Compartilhar em outros sites

Danielle Anadinho    0

Danielle Anadinho
Postado

Então, está ativado sim....

Na verdade tem mais coisas no meu script... vou postar aqui q você dá uma olhada e me diz o q tah errado...

Boa sorte, com a bagunça do meu código!!! Ainda tô aprendendo a mexer com isso aqui....

 

<% 'Declação de variáveis dim str_cod_r dim str_nome_r dim str_end_r dim str_dtnasc_r dim str_tel_r dim str_rg_r dim str_cpf_r 'dim str_sexo_r dim retorno_r	 dim consulta dim rs, cn	 dim opr_n dim condicao	'Captura valores passados pelo usuário opr_n		= Request("opr_n") str_cod_r	= Request("str_cod") str_nome_r   = Request("str_nome") str_end_r	= Request("str_end") str_dtnasc_r = Request("str_dtnasc") str_tel_r	= Request("str_tel") str_rg_r	 = Request("str_rg") str_cpf_r	= Request("str_cpf")  select case opr_ncase "I" incluircase "A" alterarcase "CN" consultarnomecase "CC" consultarcodcase "L" limparcase "E" excluir		end select%><HTML> <head>  <script>	function retorno(n)	{		 	 with(parent.cpo.document.frm)	  {				 				if("<%=retorno_r%>"==1)		{						  alert("Código já existente");						}		if("<%=retorno_r%>"==2)		{		  alert("Cadastro efetuado com sucesso!");		}			if(<%=retorno_r%>==3)		{		 		  		  txt_codigo.value = "<%=str_cod_r%>"		  txt_nome.value   = "<%=str_nome_r%>"		  txt_end.value	= "<%=str_end_r%>"		  txt_dtnasc.value = "<%=str_dtnasc_r%>"		  txt_tel.value	= "<%=str_tel_r%>"		  txt_rg.value	 = "<%=str_rg_r%>"		  txt_cpf.value	= "<%=str_cpf_r%>"			  //rd_sexo.value	= "<%=str_sexo%>"				}		if("<%=retorno_r%>"==4)		{		  //txt_nome.value   = ""		  //txt_end.value	= ""		  //txt_dtnasc.value = ""		  //txt_tel.value	= ""		  //txt_rg.value	 = ""		  //txt_cpf.value	= ""		  //rd_sexo.value	= ""		  alert("Cadastro não encontrado!");		}		if("<%=retorno_r%>"==5)		{		  alert("Cadastro alterado com sucesso!");		}		if("<%=retorno_r%>"==6)		{		  txt_codigo.value = ""		  txt_nome.value   = ""		  txt_end.value	= ""		  txt_dtnasc.value = ""		  txt_tel.value	= ""		  txt_rg.value	 = ""		  txt_cpf.value	= ""		  //rd_sexo.value	= ""		}		if("<%=retorno_r%>"==7)		{		  txt_codigo.value = ""		  txt_nome.value   = ""		  txt_end.value	= ""		  txt_dtnasc.value = ""		  txt_tel.value	= ""		  txt_rg.value	 = ""		  txt_cpf.value	= ""		  alert("Cadastro excluido com sucesso!");		}							if("<%=retorno_r%>"==8)		{			  		  txt_nome.value   = "<%=str_nome_r%>"		  		}			  }	 }				  function retorna()   {	//...	self.close();  }		  </script> </head><BODY onload="retorno()" bgColor=linen ><%sub abre_banco 'Faz conexão com o DB  set cn = server.CreateObject("adodb.connection")   set rs = server.CreateObject("adodb.Recordset")    cn.CursorLocation =3  cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("danielle.mdb")  set rs.ActiveConnection = cn	end subsub fecha_banco 'Fecha o objeto recordset e o mata  rs.Close  Set rs = nothing  'Fecha o objeto de conexão e o mata  cn.Close  Set cn = nothingend subsub incluir   abre_banco  str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r 			  rs.Open str_sql   if rs.RecordCount > 0 then	 retorno_r=1  exit sub  end if     str_sql = "insert INTO tab_01 (cl_cd, cl_nm, cl_dt_nasc, cl_end, cl_tel, cl_rg, cl_cpf) "  str_sql = str_sql & "values ("&str_cod_r&",'"&str_nome_r&"','"&str_dtnasc_r&"','"&str_end_r&"',"&str_tel_r &","&str_rg_r&","&str_cpf_r&") "  cn.Execute(str_sql)	    retorno_r=2  fecha_banco end subsub consultarcod   abre_banco  str_sql = "SELECT * FROM tab_01 where cl_cd ="&str_cod_r   rs.Open str_sql    if rs.RecordCount = 0 then	retorno_r=4  	exit sub  end if  if not rs.EOF then	   	str_cod_r	= rs("cl_cd") 	str_nome_r   = rs("cl_nm")	str_end_r	= rs("cl_end")	str_dtnasc_r = rs("cl_dt_nasc")	str_tel_r	= rs("cl_tel")	str_rg_r	 = rs("cl_rg")	str_cpf_r	= rs("cl_cpf")	     end if 		  retorno_r=3	    fecha_banco end subsub consultarnome   abre_banco  str_sql = "SELECT * FROM tab_01 where ucase(cl_nm) like'%"&ucase(str_nome_r)&"%'"  rs.Open str_sql	  if rs.RecordCount = 0 then  %>  <center> <STRONG> <br> <br> <br>	<FONT bgcolor=linen color=black size=4> Nenhum cadastro encontrado!! </FONT>  </br> </br> </br>  </STRONG> </center>    <%	     exit sub  end if  %>  <STRONG>    <br><center>	  <FONT color=black size=4> Cadastro(s) encontrado(s)!! </FONT>  </center></br>	  </STRONG>  <%  while (not rs.EOF)  str_nome_r= rs("cl_nm")  str_cod_r= rs("cl_cd")  %>  	<STRONG><B>	 <FONT color=black size=3>  <a href="#" onclick="retorna()"><%Response.Write str_nome_r%></a>	 </FONT>			</STRONG> <br> 	  <%	   rs.MoveNext  wend	  %>  	 <center> <br> <br>	 <input type="button" value="Fechar" name="cmd_fechar" onclick="self.close();">	 </center>  <%     fecha_banco end subsub alterar    abre_banco str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r  rs.Open str_sql  str_sql = "UPDATE tab_01 SET " str_sql = str_sql & "cl_nm='"&str_nome_r&"', cl_dt_nasc='"&str_dtnasc_r&"', " str_sql = str_sql & "cl_end='"&str_end_r&"', cl_tel= "&str_tel_r&", "  str_sql = str_sql & "cl_rg="&str_rg_r&", cl_cpf="&str_cpf_r str_sql = str_sql & " WHERE cl_cd ="& str_cod_r  cn.Execute(str_sql)  retorno_r=5    fecha_bancoend subsub excluir abre_banco  str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r  rs.Open str_sql str_sql = "DELETE from tab_01 WHERE cl_cd ="& str_cod_r  cn.Execute(str_sql)   retorno_r=7  fecha_banco  end subsub limpar  retorno_r=6end sub	%> </BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

CassianoVix    0

CassianoVix
Postado

Então, está ativado sim....Na verdade tem mais coisas no meu script... vou postar aqui q você dá uma olhada e me diz o q tah errado...Boa sorte, com a bagunça do meu código!!! Ainda tô aprendendo a mexer com isso aqui.... 

<% 'Declação de variáveis dim str_cod_r dim str_nome_r dim str_end_r dim str_dtnasc_r dim str_tel_r dim str_rg_r dim str_cpf_r 'dim str_sexo_r dim retorno_r	 dim consulta dim rs, cn	 dim opr_n dim condicao	'Captura valores passados pelo usuário opr_n		= Request("opr_n") str_cod_r	= Request("str_cod") str_nome_r   = Request("str_nome") str_end_r	= Request("str_end") str_dtnasc_r = Request("str_dtnasc") str_tel_r	= Request("str_tel") str_rg_r	 = Request("str_rg") str_cpf_r	= Request("str_cpf")  select case opr_ncase "I" incluircase "A" alterarcase "CN" consultarnomecase "CC" consultarcodcase "L" limparcase "E" excluir		end select%><HTML> <head>  <script>	function retorno(n)	{		 	 with(parent.cpo.document.frm)	  {				 				if("<%=retorno_r%>"==1)		{						  alert("Código já existente");						}		if("<%=retorno_r%>"==2)		{		  alert("Cadastro efetuado com sucesso!");		}			if(<%=retorno_r%>==3)		{		 		  		  txt_codigo.value = "<%=str_cod_r%>"		  txt_nome.value   = "<%=str_nome_r%>"		  txt_end.value	= "<%=str_end_r%>"		  txt_dtnasc.value = "<%=str_dtnasc_r%>"		  txt_tel.value	= "<%=str_tel_r%>"		  txt_rg.value	 = "<%=str_rg_r%>"		  txt_cpf.value	= "<%=str_cpf_r%>"			  //rd_sexo.value	= "<%=str_sexo%>"				}		if("<%=retorno_r%>"==4)		{		  //txt_nome.value   = ""		  //txt_end.value	= ""		  //txt_dtnasc.value = ""		  //txt_tel.value	= ""		  //txt_rg.value	 = ""		  //txt_cpf.value	= ""		  //rd_sexo.value	= ""		  alert("Cadastro não encontrado!");		}		if("<%=retorno_r%>"==5)		{		  alert("Cadastro alterado com sucesso!");		}		if("<%=retorno_r%>"==6)		{		  txt_codigo.value = ""		  txt_nome.value   = ""		  txt_end.value	= ""		  txt_dtnasc.value = ""		  txt_tel.value	= ""		  txt_rg.value	 = ""		  txt_cpf.value	= ""		  //rd_sexo.value	= ""		}		if("<%=retorno_r%>"==7)		{		  txt_codigo.value = ""		  txt_nome.value   = ""		  txt_end.value	= ""		  txt_dtnasc.value = ""		  txt_tel.value	= ""		  txt_rg.value	 = ""		  txt_cpf.value	= ""		  alert("Cadastro excluido com sucesso!");		}							if("<%=retorno_r%>"==8)		{			  		  txt_nome.value   = "<%=str_nome_r%>"		  		}			  }	 }				  function retorna()   {	//...	self.close();  }		  </script> </head><BODY onload="retorno()" bgColor=linen ><%sub abre_banco 'Faz conexão com o DB  set cn = server.CreateObject("adodb.connection")   set rs = server.CreateObject("adodb.Recordset")    cn.CursorLocation =3  cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("danielle.mdb")  set rs.ActiveConnection = cn	end subsub fecha_banco 'Fecha o objeto recordset e o mata  rs.Close  Set rs = nothing  'Fecha o objeto de conexão e o mata  cn.Close  Set cn = nothingend subsub incluir   abre_banco  str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r 			  rs.Open str_sql   if rs.RecordCount > 0 then	 retorno_r=1  exit sub  end if     str_sql = "insert INTO tab_01 (cl_cd, cl_nm, cl_dt_nasc, cl_end, cl_tel, cl_rg, cl_cpf) "  str_sql = str_sql & "values ("&str_cod_r&",'"&str_nome_r&"','"&str_dtnasc_r&"','"&str_end_r&"',"&str_tel_r &","&str_rg_r&","&str_cpf_r&") "  cn.Execute(str_sql)	    retorno_r=2  fecha_banco end subsub consultarcod   abre_banco  str_sql = "SELECT * FROM tab_01 where cl_cd ="&str_cod_r   rs.Open str_sql    if rs.RecordCount = 0 then	retorno_r=4  	exit sub  end if  if not rs.EOF then	   	str_cod_r	= rs("cl_cd") 	str_nome_r   = rs("cl_nm")	str_end_r	= rs("cl_end")	str_dtnasc_r = rs("cl_dt_nasc")	str_tel_r	= rs("cl_tel")	str_rg_r	 = rs("cl_rg")	str_cpf_r	= rs("cl_cpf")	     end if 		  retorno_r=3	    fecha_banco end subsub consultarnome   abre_banco  str_sql = "SELECT * FROM tab_01 where ucase(cl_nm) like'%"&ucase(str_nome_r)&"%'"  rs.Open str_sql	  if rs.RecordCount = 0 then  %>  <center> <STRONG> <br> <br> <br>	<FONT bgcolor=linen color=black size=4> Nenhum cadastro encontrado!! </FONT>  </br> </br> </br>  </STRONG> </center>    <%	     exit sub  end if  %>  <STRONG>    <br><center>	  <FONT color=black size=4> Cadastro(s) encontrado(s)!! </FONT>  </center></br>	  </STRONG>  <%  while (not rs.EOF)  str_nome_r= rs("cl_nm")  str_cod_r= rs("cl_cd")  %>  	<STRONG><B>	 <FONT color=black size=3>  <a href="#" onclick="retorna()"><%Response.Write str_nome_r%></a>	 </FONT>			</STRONG> <br> 	  <%	   rs.MoveNext  wend	  %>  	 <center> <br> <br>	 <input type="button" value="Fechar" name="cmd_fechar" onclick="self.close();">	 </center>  <%     fecha_banco end subsub alterar    abre_banco str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r  rs.Open str_sql  str_sql = "UPDATE tab_01 SET " str_sql = str_sql & "cl_nm='"&str_nome_r&"', cl_dt_nasc='"&str_dtnasc_r&"', " str_sql = str_sql & "cl_end='"&str_end_r&"', cl_tel= "&str_tel_r&", "  str_sql = str_sql & "cl_rg="&str_rg_r&", cl_cpf="&str_cpf_r str_sql = str_sql & " WHERE cl_cd ="& str_cod_r  cn.Execute(str_sql)  retorno_r=5    fecha_bancoend subsub excluir abre_banco  str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r  rs.Open str_sql str_sql = "DELETE from tab_01 WHERE cl_cd ="& str_cod_r  cn.Execute(str_sql)   retorno_r=7  fecha_banco  end subsub limpar  retorno_r=6end sub	%> </BODY></HTML>
DaniSua função está certa, mas o botão de fechar está tentando fechar a si próprio, ao invés de chamar a função que você criou pra fechar a janela.<input type="button" value="Fechar" name="cmd_fechar" onclick="self.close();">Troca por:<input type="button" value="Fechar" name="cmd_fechar" onclick="java script:retorna();">Ou<input type="button" value="Fechar" name="cmd_fechar" onclick="java script:parent.close();">Acho que vai funcionar..:D

Compartilhar este post

Link para o post
Compartilhar em outros sites

Danielle Anadinho    0

Danielle Anadinho
Postado

Cassiano,Na verdade a minha "janelinha", me trás alguns links e um botão de fechar...A função retorna() é pra ser chamada só qdo for clicado em algum link, já o botão fechar é pra fechar a só janela msm. Talvez eu não tenha entendido o q você disse, analisa isso q eu postei agora e me diz se msm assim preciso mudar o botão fechar...[]' Dani

Compartilhar este post

Link para o post
Compartilhar em outros sites

CassianoVix    0

CassianoVix
Postado

Cassiano,Na verdade a minha "janelinha", me trás alguns links e um botão de fechar...A função retorna() é pra ser chamada só qdo for clicado em algum link, já o botão fechar é pra fechar a só janela msm. Talvez eu não tenha entendido o q você disse, analisa isso q eu postei agora e me diz se msm assim preciso mudar o botão fechar...[]' Dani

Humm, então tanto os links quanto o botão servem pra fechar a janela??Tenta alterar o link, colocando assim:<a href="#" onclick="java script:retorna();">Mas pra garantir que está pelo menos chamando a função, coloca um alert("passou aqui") antes do self.close(); na função retorna.Se estiver passando pela função, deve funcionar.. qualquer coisa troca self.close() para window.close();Abraços!

Cassiano,Na verdade a minha "janelinha", me trás alguns links e um botão de fechar...A função retorna() é pra ser chamada só qdo for clicado em algum link, já o botão fechar é pra fechar a só janela msm. Talvez eu não tenha entendido o q você disse, analisa isso q eu postei agora e me diz se msm assim preciso mudar o botão fechar...[]' Dani

Ahh... e quanto ao botão, se a função dele for fechar a janela, acho que você vai ter q trocar sim. Aí você faz como no meu post anterior.:D

Compartilhar este post

Link para o post
Compartilhar em outros sites

Danielle Anadinho    0

Danielle Anadinho
Postado

Maux,Eu rodei assim, mas não dá pq o que eu quero é o seguinte:Tenho uma página e qdo faço uma busca pelo nome da pessoa ela me traz um popup com links, que são os nomes iguais ao digitado (por exemplo qdo a busca é feita só pelo primeiro nome, retorna todas as pessoas que são 'charas'), daí qdo eu clicar num nome(link) desses q aparece na "janelinha" a intenção é que os dados dessa pessoa sejam carregados na página anterior, sem chamar outra.Bom, nesse código q você me mandou ele abre outra página...[]'Danielle

Compartilhar este post

Link para o post
Compartilhar em outros sites

CassianoVix    0

CassianoVix
Postado

Maux,Eu rodei assim, mas não dá pq o que eu quero é o seguinte:Tenho uma página e qdo faço uma busca pelo nome da pessoa ela me traz um popup com links, que são os nomes iguais ao digitado (por exemplo qdo a busca é feita só pelo primeiro nome, retorna todas as pessoas que são 'charas'), daí qdo eu clicar num nome(link) desses q aparece na "janelinha" a intenção é que os dados dessa pessoa sejam carregados na página anterior, sem chamar outra.Bom, nesse código q você me mandou ele abre outra página...[]'Danielle

DaniAgora acho que entendi o que você quer... eu estava achando que você queria apenas fechar a janela popup. Mas então você precisa atualizar a janela de trás (janela pai, que abriu o popup) e fechar a popup? é isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

CassianoVix    0

CassianoVix
Postado

Dani

 

Para você fazer isso funcionar como você quer, vai ter que ser algo assim:

 

 

<a href="#" onClick="retorna(<%= str_cod_r%>);"><%= str_nome_r%></a>

function retorna(codigoUsuarioClicado)   {	window.opener.document.location.href='paginaQueRecuperaOsDadosDoUsuario.asp?cod_r='+codigoUsuarioClicado	window.close();  }

Depois na "paginaQueRecuperaOsDadosDoUsuario.asp" você recupera o código do usuário e busca os dados...

 

cod_r = Request.QueryString("cod_r")e busca os dados...

Agora funciona do jeito que você quer!

 

Abraço,

Cassiano.

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