Ir para conteúdo

POWERED BY:

Arquivado

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

plopes

Explicação

Por , em ASP Clássico

Recommended Posts

plopes    0

plopes
Postado

OLÁ PESSOAL,O QUE SIGNIFICA ESSE CÓDIGO: cb = top.frames[0].frames[1].document.forms[0].cbProblema;f = top.frames[0].frames[1].document.forms[0];OBRIGADA,PAULA

Compartilhar este post

Link para o post
Compartilhar em outros sites

plopes    0

plopes
Postado

São 3 páginas.A primeira tem a criação das FRAMES que são dois, um para a página principal e outro que fica escondido.A segunda página é principal.E a terceira, é só script em ASP + Javascript

Compartilhar este post

Link para o post
Compartilhar em outros sites

gastao    0

gastao
Postado

minha linda, continuo sem entender :P liga nao sou burro assim mesmo :P quais sao os nomes das paginas nos frames?

Compartilhar este post

Link para o post
Compartilhar em outros sites

plopes    0

plopes
Postado

VEJA SE você ENTENDE...Ai estão as páginas1º página:<html><head> <title></title><meta http-equiv="pragma" content="no-cache"><META HTTP-EQUIV="Expires" CONTENT="Mon, 01 Jan 2001 00:00:01 GMT"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><frameset rows="*, 40" frameborder="0" framespacing="0" border="0"> <frame name="principal" src="Lista_probSolucoes.asp" scrolling="auto" frameborder="0" noresize marginheight="0" marginwidth="0"> <frame name="work" src="pageviews.html" scrolling="auto" frameborder="0" noresize marginheight="0" marginwidth="0"></frameset><noframes></noframes>2º página:<!--#include file="../inc_con_bd.asp"--><html><head><title>Solicitações e Soluções</title><meta http-equiv="pragma" content="no-cache"><META HTTP-EQUIV="Expires" CONTENT="Mon, 01 Jan 2001 00:00:01 GMT"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script ID="clientEventHandlersJS" LANGUAGE="JavaScript"> function tipo(f,sel) { f.target = 'work'; f.action = 'popula_filtros.asp?combo=cbProblema&id=' + sel; if (f.cbTipo.value != ''){ alert("Olá!!!") f.campo.value = 'PROBLEMA'; f.submit(); }else{ f.cbProblema.length = 1; } //f.action = 'lista_probSolucoes.asp'; //f.target = ''; }</SCRIPT></head><body bgcolor="#FFFFFF" background="images/fundo_helpdesk.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="tipo(dados, '')"><table cellpadding="0" cellspacing="0" border="0" width="780"><tr><td><form method="post" action="lista_ProbSolucoes.asp" name="dados"><input type="Hidden" name="frame" value="top.frames[0].frames[1]"><input type="Hidden" name="campo" value=""><table border="0" cellpadding="0" cellspacing="1" align="center"> <tr> <td class="azul">Tipo</td> <td class="azul">Solicitação</td> </tr> <tr> <td width="140" valign="top" class="azul"><% sql = " select uf.uf_in_codigo, "&_ " uf.uf_st_nome, "&_ " uf.uf_st_sigla "&_ " from mgglo.glo_uf uf "&_ " order by uf_st_sigla " 'response.write(sql) set rs = server.createobject("adodb.recordset") rs.open SQL, GetCnx%> <select id="validar" name="cbTipo" onChange="return tipo(dados,'');"> <% Do While not RS.EOF %> <option value='<%=Rs("uf_st_sigla")%>' <% if ((session("UF") = Rs("uf_st_sigla")) or (UF = Rs("uf_st_sigla"))) then Response.write(" selected") end if%>><%=Rs("uf_st_sigla")%></option><% RS.MoveNext Loop%> </select> </td> <td width="170" valign="top" class="azul"> <select name="cbProblema"> </select> </td> </tr></table><br></form><br><br><br></td></tr></table></body></html>3º página:<!--#include file="../inc_con_bd.asp"--><script language="JavaScript"> cb = <%= request.Form("frame") %>.document.forms[0].<%= request("combo") %>;f = <%= request.Form("frame") %>.document.forms[0]; // Objeto Form do Filtroflag = false;<%Dim i,id,cp1,cp2,flagflag = falseid = cstr(request("id"))if id = "" then id = cstr(session("Nome_Cid"))end ifif ucase(Request.Form("campo")) = "PROBLEMA" then if trim(Request.Form("cbTipo")) <> "" then sql = " select mun.mun_in_codigo, mun.mun_st_nome, mun.uf_st_sigla "&_ " from mgglo.glo_municipio mun "&_ " where mun.uf_st_sigla = '"&Request.Form("cbTipo")& "'"&_ " order by mun.mun_st_nome " else sql = " select mun.mun_in_codigo, mun.mun_st_nome, mun.uf_st_sigla "&_ " from mgglo.glo_municipio mun "&_ " where mun.uf_st_sigla = '"&SESSION("UF")& "'"&_ " order by mun_in_codigo " end if end if'Response.write "//" & sql & vbcrlfset rs = server.createobject("adodb.recordset") rs.open sql, GetCnxif flag then Response.write "flag = true;" & vbcrlfend ifResponse.write "if (!flag){" & vbcrlf Response.write "texto = cb.options[0].text;" & vbcrlf Response.write "valor = cb.options[0].value;" & vbcrlf Response.write "cb.length = 1;" & vbcrlf Response.write "cb.options[0].selected = true;" & vbcrlf Response.write "cb.options[0].text = '-- Aguarde --';" & vbcrlf Response.write "cb.options[0].value = valor;" & vbcrlfResponse.write "}else{" & vbcrlf Response.write "cb.length = 0" & vbcrlfResponse.write "}" & vbcrlfi = 1do while not rs.Eof Response.write "cb.length = cb.length + 1;" & vbcrlf if ucase(Request.Form("campo")) = "PROBLEMA" then Response.write "cb.options[cb.length - 1].text = '" & rs("mun_st_nome") & "';" & vbcrlf Response.write "cb.options[cb.length - 1].value = '" & rs("mun_in_codigo") & "';" & vbcrlf if cstr(id) = cstr(rs("mun_st_nome")) then Response.write "cb.options[cb.length - 1].selected = true;" & vbcrlf end if end if i = i + 1 RS.movenextloopResponse.write "if (!flag){" & vbcrlfResponse.write "cb.options[0].text = texto;" & vbcrlfResponse.write "}" & vbcrlf%></script>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hinom    5

hinom
Postado

OLÁ PESSOAL,O QUE SIGNIFICA ESSE CÓDIGO: cb = top.frames[0].frames[1].document.forms[0].cbProblema;f = top.frames[0].frames[1].document.forms[0];OBRIGADA,PAULA

isso é javascriptcb recebe o elemento cbProblema;f recebe o elemento forms[0] (primeira tag form) do frame que está no índice 1quanto ao erro de não carregar os devidos valores no combobox, não sei dizer, pois pode ser qualquer coisa, precisaria ver o código dos arquivos externos

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

É do tipo captura em um campo e envia para outro sem reload na pagina usando frames.Se for isto eu tenho um codigo parecido mais não usa frames é tudo na mesma pagina. Se for manda um Email.

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