Ir para conteúdo

POWERED BY:

Arquivado

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

asp.net

Abrir popup num link.

Por , em ASP Clássico

Recommended Posts

asp.net    0

asp.net
Postado

Gostaria de um script onde o usuario quando cliclasse abrisse uma nova pagina, o problema e que estou com o link dentro de um formulario de paginacao, mas o que acontece eh que quando o usuario clica no link ao inves de chamar a nova pagina ele repete a paginacao, abaixo segue o codigo do formulario e a linha onde tem o link para chamar a funcao de abertura do link em pop up.

 

::::::::::::::::Funcao para abertura da pagina em pop-up::::::::::::::::::::::

 

<script language="JavaScript">

var popUpWin=0;

function telacheia(URLStr, left, top, width, height)

{

if(popUpWin)

{

if(!popUpWin.closed) popUpWin.close();

}

popUpWin = open(URLStr, 'popUpWin', 'toolbar=yes,location=no,directories=no,status=no,menubar=no,scrollbars=yes,r

esizable=no,copyhistory=no,width='+width+',height='+height+',left='+left+', top='+top+',screenX='+left+',screenY='+top+'');

}

</script>

 

:::::::::::::::::::::::::::::::::::::codigo:::::::::::::::::::::::::::::::::::::

:::::

 

<form>

<TABLE cellSpacing=1 cellPadding=1 width="100%" border="0">

<TR>

<TD valign="top"><!--#include file="menu.asp"--></TD>

<TD width="80%" align="center">

<table width="80%" align="center" border="0">

<TD>

<fieldset><legend>CPE</legend><BR>

<% Const TamPagina=1 'Definindo o número da página atual::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Dim PaginaAtual, TotalPaginas, IntI, Formulario, contrato, celula, registro, buscatramitacao, engenharia, resp_cadastro, campoentradas

campoentradas=0

cpe.CursorType=1

cpe.CacheSize=TamPagina

cpe.PageSize=TamPagina

resultado="select * from cpe20025"

cpe.Open resultado

 

if cpe.EOF and cpe.BOF then

response.Write("<BR><font face='Tahoma' size='2' ><B>Nenhum registro encontrado.</B></font>")

else

formulario = request.querystring("direcao")

'Determinação da página atual:::::::::::::::::::::::::

If formulario = "" then

Session("pagina") = 1

ElseIf formulario="Anterior" then

Session("pagina") = Session("pagina") - 1

ElseIf formulario="Proximo" then

Session("pagina") = Session("pagina") + 1

ElseIf formulario="Primeiro" then

Session("pagina") = 1

ElseIf formulario="Ultimo" then

Session("pagina")=cpe.PageCount

End If

PaginaAtual=Session("pagina")

cpe.absolutepage=PaginaAtual

TotalPaginas = cpe.PageCount

'Local para exibir o resultado da pesquisa.

response.Write("<form><table width='100%' border='0' cellspacing='0'>")

response.write("<tr><td width='26%'>Situação do CPE: </td>")

if left(cpe("e_s"),1)="s" or left(cpe("e_s"),1)="S" then

response.Write("<TD>Fechado</td><Td>Data de Saída  "&left(cpe("dtsai"),2)&"/"&right(cpe("dtsai"),2)&"")

else

response.Write("<Td colspan='2'>Aberto")

end if

response.write("</td></tr><tr><td bgcolor='#000000' colspan='3' height='1'></td></tr><tr><td colspan='3' height='5'></td></tr><tr>")

response.write("<tr bgcolor='#9ED6FE'><td width='26%'>Número do CPE: </td><TD colspan='2'>Descrição do Documento</td></tr><tr>")

response.write("<td valign='top'><input class='text' size='5' type='text' name='num_cpe' value="&cpe("n_cpe")&"></td>")

Response.Write("<td colspan='2'><textarea class='text' name='desc_documento' cols='60'>"&cpe("doc")&"</textarea></td></tr>")

registro=cpe("n_cpe")

response.write("<tr bgcolor='#9ED6FE'><td>Data de Entrada: </td><TD colspan='2'>Descrição da Solicitação.</td></tr><tr>")

response.write("<td valign='top'><input class='text' size='9' type='text' name='dt_entrada' value="&cpe("dtent")&"></td>")

Response.Write("<td colspan='2'><textarea class='text' name='desc_solicitacao' cols='60'>"&cpe("descsolci")&"</textarea></td></tr>")

 

response.write("<tr bgcolor='#9ED6FE'>")

cpe.close%>

<!--#include file="contratocelulas.asp"-->

<%

 

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

':::::::::::::::::::::::::: Inicio da apresentacao das opcoes marcadas :::::::::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

 

resultado="select * from cpe20025 where n_cpe="&registro

cpe.Open resultado

response.Write("</td></tr><tr>")

response.write("<tr bgcolor='#9ED6FE'><td colspan='3'>Opções: </td></tr>")

response.Write("<td colspan='3'><table>")

response.Write("<tr><td>")

if cpe("01analise")=true then

Response.Write("<input name='analise' type='checkbox' value='1' checked>01 Analise  ")

else

Response.Write("<input name='analise' type='checkbox' value='0'>01 Analise  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("04raf")=true then

Response.Write("<input name='raf' type='checkbox' value='1' checked>04 RAF  ")

else

Response.Write("<input name='raf' type='checkbox' value='0'>04 RAF  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("10lae")=true then

Response.Write("<input name='lae' type='checkbox' value='1' checked>10 LAE  ")

else

Response.Write("<input name='lae' type='checkbox' value='0'>10 LAE  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("rafmi")=true then

Response.Write("<input name='10rafmi' type='checkbox' value='1' checked>10 RAF MI  ")

else

Response.Write("<input name='10rafmi' type='checkbox' value='0'>10 RAF MI  ")

End if

response.Write("</td>")

 

response.Write("</tr><tr>")

 

response.Write("<td>")

if cpe("02vistoria")=true then

Response.Write("<input name='vistoria' type='checkbox' value='1' checked>02 Vistoria  ")

else

Response.Write("<input name='vistoria' type='checkbox' value='0'>02 Vistoria  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("05par")=true then

Response.Write("<input name='par' type='checkbox' value='1' checked>05 PAR  ")

else

Response.Write("<input name='par' type='checkbox' value='0'>05 PAR  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("11licitacao")=true then

Response.Write("<input name='licitacao' type='checkbox' value='1' checked>11 Licitação  ")

else

Response.Write("<input name='licitacao' type='checkbox' value='0'>11 Licitação  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("enviodoc")=true then

Response.Write("<input name='enviodoc' type='checkbox' value='1' checked>14 Envio Doc.  ")

else

Response.Write("<input name='enviodoc' type='checkbox' value='0'>14 Envio Doc.  ")

End if

response.Write("</td>")

 

response.Write("<tr><td>")

if cpe("03tecsocial")=true then

Response.Write("<input name='tecsocial' type='checkbox' value='1' checked>03 Tec. Social  ")

else

Response.Write("<input name='tecsocial' type='checkbox' value='0'>03 Tec. Social  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("06avaliacao")=true then

Response.Write("<input name='avaliacao' type='checkbox' value='1' checked>06 Avaliação  ")

else

Response.Write("<input name='avaliacao' type='checkbox' value='0'>06 Avaliação  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("correcao")=true then

Response.Write("<input name='correcao' type='checkbox' value='1' checked>12 Correçã0  ")

else

Response.Write("<input name='correcao' type='checkbox' value='0'>12 Correção  ")

End if

response.Write("</td>")

response.Write("<td>")

if cpe("99outros")=true then

Response.Write("<input name='outros' type='checkbox' value='1' checked>99 Outros  ")

else

Response.Write("<input name='outros' type='checkbox' value='0'>99 Outros  ")

End if

response.Write("</td></table></td></tr>")

cpe.Close

 

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::Inicio da apresentacao da parte Ocorrencias :::::::::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

 

'Nome da tabela para consulta controleapoio

buscatramitacao="Select * from controleapoio where cpe="&registro

cpe.open buscatramitacao

if cpe.bof and cpe.eof then

response.Write("<tr><td height='10'></td></tr><tr><td colspan='4'>Tramitação Processo Setor Administrativo</td></tr>")

response.write("<tr><td bgcolor='#000000' colspan='3' height='1'></td></tr><tr><td colspan='3' height='5'></td></tr>")

response.write("<tr><td colspan='3' height='1'>")

 

':::::::::::::Tabela central

response.Write("<table width='100%' cellpading='0' cellspacing='0'>")

response.write("<tr><td colspan='4'><table><td><B>Número OS</b></td><td> <strong>01</strong> ")

 

response.write("<input type='text' class='text' size='3'>")

response.write("</td><td> <strong>02</strong> <input type='text' size='3' class='text'></td><td> ")

response.write("<strong>03</strong> <input type='text' size='3' class='text'></td></table></td></tr>")

else

response.Write("<tr><td height='10'></td></tr><tr><td colspan='4'>Tramitação Processo Setor Administrativo</td></tr>")

response.write("<tr><td bgcolor='#000000' colspan='3' height='1'></td></tr><tr><td colspan='3' height='5'></td></tr>")

response.write("<tr><td colspan='3' height='1'>")

 

':::::::::::::Tabela central

response.Write("<table width='100%' cellpading='0' cellspacing='0'>")

response.write("<tr><td colspan='4'><table><td><B>Número OS</b></td><td> <strong>01</strong> ")

 

response.write("<input type='text' class='text' size='3' value="&cpe("OS")&">")

response.write("</td><td> <strong>02</strong> <input type='text' size='3' class='text' value="&cpe("OS2")&"></td><td> ")

response.write("<strong>03</strong> <input type='text' size='3' class='text' value="&cpe("OS3")&" ></td></table></td></tr>")

 

response.Write("<tr bgcolor='#9ED6FE'><td width='5%'>Nº</td><TD width='20%'>Ocorrência</td><td width='35%'>Data</td><td width='40%'>Localização</td></tr>")

if len(cpe("dtent7"))<>0 then

campoentradas=7

response.write("<tr><td>7</td><td>Entrada</td><td>"&cpe("dtent7")&"</td> <td>"&cpe("engtercel7")&"</td></tr>")

response.Write("<tr><td>7</td><td>Saída</td><td>"&cpe("dtsai7")&"</td> <td>"&cpe("engtercel77")&"</td></tr>")

end if

if len(cpe("dtent6"))<>0 then

campoentradas=6

response.write("<tr><td>6</td><td>Entrada</td><td>"&cpe("dtent6")&"</td> <td>"&cpe("engtercel6")&"</td></tr>")

response.Write("<tr><td>6</td><td>Saída</td><td>"&cpe("dtsai6")&"</td> <td>"&cpe("engtercel66")&"</td></tr>")

end if

if len(cpe("dtent5"))<>0 then

campoentradas=5

response.write("<tr><td>5</td><td>Entrada</td><td>"&cpe("dtent5")&"</td> <td>"&cpe("engtercel5")&"</td></tr>")

response.Write("<tr><td>5</td><td>Saída</td><td>"&cpe("dtsai5")&"</td> <td>"&cpe("engtercel55")&"</td></tr>")

end if

if len(cpe("dtent4"))<>0 then

campoentradas=4

response.write("<tr><td>4</td><td>Entrada</td><td>"&cpe("dtent4")&"</td> <td>"&cpe("engtercel4")&"</td></tr>")

response.Write("<tr><td>4</td><td>Saída</td><td>"&cpe("dtsai4")&"</td> <td>"&cpe("engtercel44")&"</td></tr>")

end if

if len(cpe("dtent3"))<>0 then

campoentradas=3

response.write("<tr><td>3</td><td>Entrada</td><td>"&cpe("dtent3")&"</td> <td>"&cpe("engtercel3")&"</td></tr>")

response.Write("<tr><td>3</td><td>Saída</td><td>"&cpe("dtsai3")&"</td> <td>"&cpe("engtercel33")&"</td></tr>")

end if

if len(cpe("dtent2"))<>0 then

campoentradas=2

response.write("<tr><td>2</td><td>Entrada</td><td>"&cpe("dtent2")&"</td><td>"&cpe("engtercel2")&"</td></tr>")

response.Write("<tr><td>2</td><td>Saída</td><td>"&cpe("dtsai2")&"</td><td>"&cpe("engtercel22")&"</td></tr>")

end if

if len(cpe("dtent1"))<>0 then

campoentradas=1

response.write("<tr><td>1</td><td>Entrada</td><td>"&cpe("dtent1")&"</td><td>"&cpe("engtercel1")&"</td></tr>")

response.Write("<tr><td>1</td><td>Saída</td><td>"&cpe("dtsai1")&"</td><td>"&cpe("engtercel11")&"</td></tr>")

end if

end if

if campoentradas<>7 then

 

::::::::::::::::::::::::::::Linha do link:::::::::::::::::::::::::::::::::::::::::

 

response.write("<tr><td colspan='4'><a href='#' onClick='abrir('cadastrodeocorrencias.asp','CPE - Cadastro de Ocorrencias','width=245,height=240')'><font color='#ff0000'>Nova Entrada de Ocorrência</font></a></td></tr>")

end if

response.Write("</table>")

cpe.close

 

response.write("<tr><td height='5'></td></tr><tr><td colspan='3' height='1'>")

 

':::::::::::::Tabela de observações

resultado="Select observacoes, parecer, despacho, correspondencia, ci from cpe20025 where n_cpe="&registro

cpe.open resultado

response.Write("<table width='100%' cellpading='0' cellspacing='0'>")

response.write("<tr bgcolor='#9ED6FE'><td colspan='4'>Observações</td></tr>")

response.Write("<tr><td colspan='4'><textarea class='text' name='observacoes' cols='90'>"&cpe("observacoes")&"</textarea></td></tr>")

response.Write("<tr><td colspan='4'>")

if cpe("parecer")=true then

Response.Write("<input name='parecer' type='checkbox' value='1' checked>Parecer  ")

else

Response.Write("<input name='parecer' type='checkbox' value='0'>Parecer  ")

End if

if cpe("despacho")=true then

Response.Write("<input name='despacho' type='checkbox' value='1' checked>Despacho  ")

else

Response.Write("<input name='despacho' type='checkbox' value='0'>Despacho  ")

End if

if cpe("correspondencia")=true then

Response.Write("<input name='correspondencia' type='checkbox' value='1' checked>Correspondência  ")

else

Response.Write("<input name='correspondencia' type='checkbox' value='0'>Correspondência  ")

End if

if cpe("ci")=true then

Response.Write("<input name='ci' type='checkbox' value='1' checked>CI; ")

else

Response.Write("<input name='ci' type='checkbox' value='0'>CI  ")

End if

response.Write("</td></tr>")

response.Write("</table>")

response.write("</td></tr>")

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::Fechamento da tabela principal:::::::::::::::::::::::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::

 

response.write("</table></form>")

end if

%>

</fieldset>

</TD>

<Tr><Td>

 

::::::::::::::::Formulario de paginaca:::::::::::::::::::::::::::::::::::::::::::

 

<form action="administracao.asp" method="get">

<% if paginaatual > 1 then %>

<input name="direcao" type="submit" value="Primeiro">

<input name="direcao" type="submit" value="Anterior">

<%end if

if paginaatual <> totalpaginas then%>

<input name="direcao" type="submit" value="Proximo">

<input name="direcao" type="submit" value="Ultimo">

 

<%end if%>

</form>

 

</td></TR>

<tr><td>Registro:<%=paginaatual%> de <%=totalpaginas%></td></tr>

</table></td>

</TD></tr></TABLE>

</form>

Compartilhar este post

Link para o post
Compartilhar em outros sites

d.eleete    0

d.eleete
Postado

Infelizmente naum tive tempo de ler a imensidão de codigos..Mas pra você abrir atraves de link você usa o comando <a href="java script:abrejanela()">Oi</a>Detalhe, se você quer passar parametros como por exemplo a paginação a qual se encontra o link você terah q criar uma função e passar os parametros na funcao .. assim.. abrejanela('numerodapagina')

Compartilhar este post

Link para o post
Compartilhar em outros sites

asp.net    0

asp.net
Postado

d.eleete, eu mandei essa imensidão de codigos porque outros usuario podem ver o que as vezes temos que fazer para dar a solucao que o usuario espera, mas de qualquer forma desculpa por ter escrito tanto, depois você me manda a regra onde diz o tanto de palavras que podemos postar no seu fórum, que depois disto eu prometo não ultrapassar o limite máximo de caracteres determinado por Vossa Excelencia.Com os mais sinceros pedidos de desculpa.Um simples mortal.

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