Problemas no Java

Lucas_zs · Junho 15, 2010

ola amigos bom dia, este é meu 1º topico ^_^ e gostaria mto da ajuda de vcs tenho uma pagina de busca por ordem alfabetica e numerica, porem ao clicar na pg 50 por ex. ele salta do nº 300 para 450, sendo que nesta pagina ele tem q seguir por ex: 300, 320, 390....n importa q saia da ordem 300,301.... vou postar o codigo para vcs mto obrigado.

function MM_showHideLayers() { //v6.0

var i,p,v,obj,args=MM_showHideLayers.arguments;

for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args))!=null) { v=args[i+2];

if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }

obj.visibility=v; }

}

</script>

<style type="text/css">

<!--

body {

background-image: url();

background-color: #D9E0E8;

}

.style2 {font-size: 18px; color: #FFFFFF; font-family: "Times New Roman", Times, serif;}

.texto {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 12px;

}

.style3 {

color: #990000;

font-weight: bold;

}

.style7 {font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #003399;}

.borda {

border: thick double #0066CC;

}

.style10 {font-family: "Times New Roman", Times, serif}

.style15 {font-size: 9px; color: #FFFFFF; font-family: Verdana, Arial, Helvetica, sans-serif; }

.LINK {

color: #FFFFFF;

text-decoration: none;

}

a:link {

color: #0000CC;

}

a:visited {

color: #0000CC;

}

a:hover {

color: #0000CC;

}

a:active {

color: #0000CC;

}

.texto3 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 10px;

color:#FF0000;

}

.texto4 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color:#FF0000;

}

.style18 {

font-size: 14px;

font-family: Verdana, Arial, Helvetica, sans-serif;

color: #003399;

font-weight: bold;

}

.style4 {font-weight: bold; color: #990000; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}

-->

</style>

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

function MM_findObj(n, d) { //v4.01

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

//-->

</script>

<body>

<div id="Layer1" style="position:absolute; left:225px; top:117px; width:350px; height:131px; z-index:1; visibility: hidden;">

<form action="" method="get" name="form2" class="borda">

<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">

<tr>

<td colspan="3" bgcolor="#566BD3" class="style2"><div align="center"></div> <div align="center">

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td class="style2"><div align="center" class="style10">LOCALIZAR</div> <div align="center"><span class="style15"></span></div></td>

</tr>

</table>

</div></td>

</tr>

<tr>

<td colspan="3"><hr></td>

</tr>

<tr>

<td colspan="3" class="style7"><div align="center">Digite o nome da empresa que deseja localizar </div></td>

</tr>

<tr>

<td width="59%"> </td>

<td colspan="2"> </td>

</tr>

<tr>

<td>

<div align="right">

<input name="txtEmpresa" type="text" id="txtEmpresa">

</div></td>

<td colspan="2">

<div align="left">

<input name="btLoc" type="submit" id="btLoc" value="Localizar">

</div></td>

</tr>

<tr>

<td colspan="3"><hr></td>

</tr>

<tr bgcolor="#566BD3">

<td height="25" colspan="3"><div align="center"><span class="style15"><a href="#" class="LINK" onClick="MM_showHideLayers('Layer1','','hide')">[ FECHAR</a> ] </span></div></td>

</tr>

</table>

</form>

</div>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="21" colspan="6"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">

<tr>

<td height="21" bgcolor="#B8D8D7"><div align="center"><span class="style2"><span class="style4">EMPRESAS CADASTRADAS</span></span></div></td>

</tr>

<tr>

<td height="34" bgcolor="#D9E0E8"><form name="form1" method="get">

<table width="84%" height="40" border="0" align="center" cellpadding="0" cellspacing="5">

<tr valign="bottom">

<td width="33%"><div align="center"><span class="style7"><strong>Organizar Por:</strong> </span></div></td>

<td width="4%"><div align="center">

<input name="ordem" type="radio" value="cad" onClick="form1.submit()" checked>

</div></td>

<td width="32%"><div align="left" class="texto">Nº de Cadastro</div></td>

<td width="4%"><div align="center">

<input name="ordem" type="radio" value="alfa" onClick="form1.submit()">

</div></td>

<td width="27%"><div align="left" class="texto">Ordem Alfabética </div></td>

</tr>

</table>

</form></td>

</tr>

</table></td>

</tr>

<tr>

<td height="21" colspan="6"><hr align="center" width="100%"></td>

</tr>

<%

Dim conn, sql, rs, lc_empresa

'aqui virá a conexão

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../bd/cafec.mdb") & ";Persist Security Info=False"

Set rs = Server.CreateObject("Adodb.RecordSet")

Set rs2 = Server.CreateObject("Adodb.RecordSet")

RS.PageSize = 10

bla = request.QueryString("txtEmpresa")

lc_empresa = Replace(bla,"´","'")

pega_botao = request.QueryString("ordem")

if pega_botao = "cad" then

sql = "Select * from empresas order by codigo"

else if pega_botao = "alfa" then

sql = "Select * from empresas order by Fantasia"

else if btLoc = Localizar then

sql = "Select * from empresas where Empresa like '%" & lc_empresa & "%'"

pega_botao = "Localizar"

pega_nome = lc_empresa

else if pega_botao = "Localizar" then

sql = "Select * from empresas where Empresa like '%" & pega_nome & "%'"

else

sql = "Select * from empresas order by codigo"

end if

rs.Open sql, Conn,3,3

If rs.EOF then%>

<tr><td colspan="6"><p class="texto"><center><%Response.Write "Nenhum registro encontrado!"%></center></p></td></tr>

<%

Response.End

Else

If Request.QueryString("pagina")="" then

intpagina=1

Else

If Cint(Request.QueryString("pagina"))<1 then

intpagina=1

Else

If Cint(Request.QueryString("pagina"))>rs.PageCount then

intpagina=rs.PageCount

Else

intpagina=Request.QueryString("pagina")

End If

End if

rs.AbsolutePage=intpagina

intrec=0

do While not rs.EOF and intrec < rs.PageSize

stat = rs("status")

if stat <> "inativo" then

%>

<tr>

<td width="64"><div align="right">

</div></td>

<td width="177"><div align="left"></div></td>

<td width="37"> </td>

<td width="224"> </td>

<td width="369"> </td>

<td width="87"><table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">

<tr>

<td><div align="center"><span class="style18">nº <%=rs("codigo")%></span></div></td>

</tr>

</table></td>

</tr>

<tr>

<td colspan="6">

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td colspan="2" class="texto style3">

<blockquote>

<p>

</div>

<%=Replace(rs("fantasia"),"´","'")%>

<%

pagamento = rs("pago")

if pagamento = "não" then

response.Write("<img src=imagens/quadradinho.jpg>")

end if

%>

</p>

</blockquote></td>

<%if rs("fantasia") <> " " then%>

</tr>

<tr>

<td width="91%" class="texto"><blockquote>

<p>Contato: <%=rs("Contato")%><br>

<%if rs("fantasia") <> "PROGRAMA FERNANDO CARVALHO" then %>

<%=rs("Endereço")%> · <%=rs("Bairro")%> · <%=rs("CEP")%> · <%=rs("Cidade")%> · <%=rs("Estado")%> · <%=rs("País")%><br>

<%end if%>

<%

tel = rs("Telefone")

if tel <> "" then

%>

Tel.: (<%=rs("DDD")%>) <%=rs("Telefone")%>

<%end if%>

<%

fax = rs("Fax")

if fax <> "" then

%>

Fax: (<%=rs("DDD")%>) <%=rs("Fax")%>

<%end if%>

<%

mail = rs("Email")

if mail <> "" then

%>

<br>

E-mail: <a href="mailto:<%=rs("Email")%>"><%=rs("Email")%><br></a>

<%end if%>

<%

site = rs("Site")

if site <> "" then

%>

Site: <a href="http://<%=rs("Site")%>" target="_blank"><%=rs("Site")%>

</a><br><%end if%><br>Atividade: <%=rs("descricao")%></p>

</blockquote></td>

<td width="9%" valign="top" class="texto"><div align="center"><span class="texto style3"><img src="../<%=rs("logo_peq")%>"></span></div></td>

</tr>

<tr>

<td height="18" colspan="2" class="texto"><blockquote>

<p>

<%

nome_seg = rs("Fantasia")

ls = "Select * from seguranca where empresa like '%" & nome_seg & "%'"

Set rs2 = conn.execute(ls)

if not rs2.eof then

data_seg = rs2("data")

response.Write("<br><div class=texto4><b>* Empresa autorizada a funcionar até o dia " & data_seg & " pela Polícia Federal.</b></div>")

response.Write("<br><div class=texto><b>Válido até: " & rs("renovação") & " (As empresas de segurança terão a sua validade conforme a autorização legal de funcionamento)</b></div>")

else

response.Write("<br><div class=texto><b>Válido até: " & rs("renovação") & "</b></div>")

end if

%></p>

</blockquote> </td>

<%end if%>

</tr>

</table>

</td>

</tr>

<tr>

<td height="14" colspan="6"><hr align="center" width="100%"></td>

</tr>

<%end if

rs.MoveNext

intrec=intrec+1

Loop

%>

<tr><td colspan="6" align="center">

<%

If intpagina>1 then %>

<a href="consulta_empresa.asp?pagina=<%=intpagina-1%>&ordem=<%=pega_botao%>">Anterior</a>

<%end if

For i=1 to rs.PageCount

If i = Cint(intpagina) then%>

[<%=i%>]

<% else %>

<a href="consulta_empresa.asp?pagina=<%=i%>&ordem=<%=pega_botao%>">[<%=i%>]</a>

<%end if

Next

If strcomp(intpagina,rs.PageCount)<>0 then

%>

<a href="<%Request.ServerVariables("URL")%>?pagina=<%=intpagina+1%>&ordem=<%=pega_botao%>">Próxima</a>

<%end if%>

</td></tr>

</table>

<div align="center"><br>

<input name="botao" type="button" id="botao" onClick="window.print();" value="Imprimir">

</div>

</body>

F0X · Junho 15, 2010

Olá Lucas, rpz acho que você se equivocou sobre o post...

Aqui é referente a linguagem de programação Java e a sua dúvida é referente a Java Script.

:)

Entrar

Arquivado

Problemas no Java

Recommended Posts

Lucas_zs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

F0X 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante