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 ASP Clássico

Recommended Posts

nostrinkes    0

nostrinkes
Postado

Gostei deste script mais não estou conseguindo juntar o javascript com o asp alguem pode me ajudar com isto.

 

É uma paginação sem dar reload na pagina

Esta dando um erro de javascript.

Obrigado desde já.

 

 

<%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

nostrinkes    0

nostrinkes
Postado

obrigado pelo interesse colega.

esta dando erro de identificador inesperado linha 38

e objeto esperado linha 97 mais os erros estao em janelas tipo prompt

Creio eu que seja na juncao do javascript com o asp.

Estou postando o banco que fiz para este codigo, os campos sao iguais os pedidos pelo script.

 

banco de dados

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Pelo que eu entendi este codigo funciona assim :Faz um select no banco de dados assim que abre o codigo guarda tudo em um array javascript, depois as requisicoes sao feitas direto no array, passando de campo em campo pelo javascript.E bem interessante mais tambem complicado hehehe

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