Ir para conteúdo

POWERED BY:

Arquivado

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

nostrinkes

Paginaçâo sem reload

Por , em Javascript

Recommended Posts

nostrinkes    0

nostrinkes
Postado

Há alguns dias que estou procurando uma forma de corrigir este codigo.

Já postei em 5 foruns diferentes e nenhuma explicaçao.

está dando erro de script alguem deste forum pode me ajudar?

Muito obrigado. Imagem PostadaImagem Postada

<%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ãoDim Rs, Cx,IntCount, IntYFunction OpenConection()Set Cx = Server.CreateObject("ADODB.Connection")Cx.Open cConend functionFunction CloseConection()Cx.CloseSet Cx = NothingEnd FunctionFunction OpenRS(cSql)Set Rs = Cx.Execute(cSql)End functionFunction CloseRs()Rs.CloseSet Rs = NothingEnd function'' A função abaixo cria uma função javascript que sera utilizada na criação de array javascriptFunction 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))nextResponse.Write( "}" & chr(13)& chr(13))End FunctionCall OpenConection()Call OpenRs("select clicodigo,cntnumero,obrcodigo,obrnome from tabela where clicodigo=1 order by obrnome")If not Rs.eof ThenDim arrProjectsarrProjects = Rs.GetRowsend ifCall CloseRS()Call CloseConection()Response.Write("<script>"&chr(13))''Cria array javascriptResponse.Write("ArrObjs= new Array"&chr(13))Call CreateFuncObj("PagRs","IdCli,IdCnt,IdObr,NameObr")IntCount = 1''Preenche o arrayFor 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 + 1NextResponse.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+'' ''+ StrSetaLEscreveTxt(''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 parafuncionar 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 porpágina*/</script></HEAD><BODY onload="CalcPg(ArrObjs.length,100);NavPgs(14);MenuNavPg();"><span id=''LyObr''></span><br><span id=''LyMenuNav''></span></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Javascript
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito