Paginação Sem Reload

Dezembro 28, 2003

Olá pessoal

encontrei este forum hoje, e já está incluso em minha lista de foruns a navegar.

Bom meu problema com uma paginação que utiliza asp com javascript, tentei de tudo mais não me livro deste bugs.

Obrigado por qualquer ajuda

Estarei aqui para ajudar os colegas tambem.

<%Response.buffer = true%>
<% cCon ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("paginacao.mdb") %>

<%
''Substituir o include acima com os dados da sua conexão
Dim Rs, Cx,IntCount, IntY
Function OpenConection()
Set Cx = Server.CreateObject("ADODB.Connection")
Cx.Open cCon
end function

Function CloseConection()
Cx.Close
Set Cx = Nothing
End Function

Function OpenRS(cSql)
Set Rs = Cx.Execute(cSql)
End function

Function CloseRs()
Rs.Close
Set Rs = Nothing
End function

'' A função abaixo cria uma função javascript que sera utilizada na criação de array javascript
Function CreateFuncObj(StrNomFunc,StrObjs)
Response.Write("function "& StrNomFunc &"("&StrObjs&") {" & chr(13))
myobjs = split(StrObjs,",",-1, 1)
For I = 0 To ubound(myobjs)
Response.Write(" this."&myobjs(I) &"=" & myobjs(I) & ";" & chr(13))
next
Response.Write( "}" & chr(13)& chr(13))
End Function

Call OpenConection()
Call OpenRs("select clicodigo,cntnumero,obrcodigo,obrnome from tabela where clicodigo=1 order by obrnome")

If not Rs.eof Then
Dim arrProjects
arrProjects = Rs.GetRows
end if

Call CloseRS()
Call CloseConection()

Response.Write("<script>"&chr(13))

''Cria array javascript
Response.Write("ArrObjs= new Array"&chr(13))
Call CreateFuncObj("PagRs","IdCli,IdCnt,IdObr,NameObr")
IntCount = 1

''Preenche o array
For IntY = 0 To uBound(arrProjects,2)
Response.Write("ArrObjs[" & IntCount & "] = new PagRs(" & arrProjects(0,IntY) & "," & arrProjects(1,IntY)& "," &arrProjects(2,IntY) &","&chr(34)& arrProjects(3,IntY) & chr(34)&");"&chr(13))
IntCount = IntCount + 1
Next
Response.Write("</script>"&chr(13))

%>

<HTML>
<HEAD>
<META NAME="Author" Content="Marcelo Alves Pires">
<TITLE>Função de Paginação em JavaScript</TITLE>
<script language=''JavaScript''>
/*Calcula o total de paginas e Registros*/
function CalcPg(IntTotRegs,IntRegs){
IntTotalPg = parseInt(IntTotRegs / IntRegs);
IntTotalRsUPg = IntTotRegs % IntRegs;
if(IntTotalRsUPg > 0){IntTotalPg++;}
}
/*Controla a exibição dos registros*/
function NavPgs(Intpage){
Intlastreg = Intpage * 100;
if (Intlastreg>ArrObjs.length)
{
Intlastreg=ArrObjs.length;
Intdif = IntTotalRsUPg;
}
else
{
Intdif = 99;
}
IntFrg = Intlastreg - Intdif;
IntLrg = Intlastreg;
/ *********  LoadStr()
EscreveTxt(''LyObr'',StrTexto)
}
/*Controla a navegação*/
function MenuNavPg(){
var StrSetaF;
var StrSetaP;
var StrSetaN;
var StrSetaL;
var IntPPg;
var IntNPg;
var StrMenu = '''';
if (((Intlastreg/5)+1)>ArrObjs.length){
IntNPg=ArrObjs.length;
}
else
{
IntNPg = (Intlastreg/100)+1;
}
if (((Intlastreg/100)-1)<1){
IntPPg=1;
}
else
{
IntPPg = (Intlastreg/100)-1;
}
StrSetaF = "<a href=''#'' onclick=''NavPgs(1);''><</a>";
StrSetaL = "<a href=''#'' onclick=''NavPgs("+IntTotalPg+");''>></a>";
StrSetaP = "<a href=''#'' onclick=''NavPgs("+IntPPg+");''><<</a>";
StrSetaN = "<a href=''#'' onclick=''NavPgs("+IntNPg+");''>>></a>";
StrMenu = StrSetaF + '' ''+StrSetaP+'' ''+StrSetaN+'' ''+ StrSetaL
EscreveTxt(''LyMenuNav'',StrMenu)
}
/*Monta a String com os registros para serem escritos na página*/
function LoadStr(){
StrTexto = ''''
StrTexto= StrTexto + ''Exibindo : ''+IntFrg+'' à ''+IntLrg+'' de ''+ArrObjs.length+''<br>''
for(Intx=IntFrg;Intx < IntLrg;Intx++){
StrTexto= StrTexto +"<a href=''"+ArrObjs[Intx].IdCli+"''target=''aux''>"+ArrObjs[Intx].NameObr+"</a><br>"
}
}
/*Escreve a string na pagina , essa função precisa ser modifica para
funcionar no nestcape*/
function EscreveTxt(LyObj,StrTexto){
if (navigator.appName !="Netscape"){
document.all[LyObj].innerHTML = '' '';
document.all[LyObj].innerHTML = StrTexto;
}
else{
document.layer[LyObj].document.open();
document.layer[LyObj].document.write(StrTexto);
document.layer[LyObj].document.close();
}
}
/*O 100 nos códigos acima significa a quantidade de registros por
página*/
</script>

</HEAD>
<BODY onload="CalcPg(ArrObjs.length,100);NavPgs(14);MenuNavPg();">
<span id=''LyObr''></span><br>
<span id=''LyMenuNav''></span>
</BODY>
</HTML>

Tork · Dezembro 28, 2003

eae nostrinkes, você por aqui!

Então, eu não entendi o seu problema!

Bertolani · Dezembro 30, 2003

Manda para gente a mensagem de erro.

[]´s

Bertolani

nostrinkes · Janeiro 1, 2004

Pois é tork eu estou em todas hehehehe.

Os erros são enviados em janelas do tipo prompt do javascript

erro na linha 38 e 97

Estou quase desistindo deste código está muito dificil.

Se fosse somente em asp até que resolveria mais javascript junto quebrou minhas pernas

Vou tentar fazer um na unha passo a passo assim quem sabe consigo entender a sintase do barato.

Se alguém tiver sujestões a respeito de como fazer eu agradeço.

array split javascript báááá

Feliz 2004 para todos.

Entrar

Paginação Sem Reload

Pergunta

Guest nostrinkes

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Tork

Link para o comentário

Compartilhar em outros sites

Bertolani

Link para o comentário

Compartilhar em outros sites

nostrinkes

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades