Jump to content


rafa-martin's Content

There have been 5 items by rafa-martin (Search limited from 29/03/2023)


Ordernar por                Order  

#893410 Paginação, Usuário Podendo Escolher A Página

Posted by rafa-martin on 22/01/2008, 16:26 in ASP

então kra tenho essa paginação e fiz o que vc disse mais não funfa:

<%
Set Conn = server.createobject("adodb.connection")
Conn.Open "Provider=sqloledb;Data Source=sbr001001-007\sqldev;Initial Catalog=Carga_Auxiliar;User Id=syscon;Password=syscon;"
%>

<form method=get action=paginacao.asp?pagina=<%=Request.QueryString("pagina")%>>
<input type=text name=pagina value=<%=request.querystring("pagina")%>>
<input type=text name=pagina_atual>
<input type=submit name="botao" value="ir">
<br>

<%
Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos
SQL = "select * from geral_cotacaomco"
RS.Open SQL,Conn,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor
'que zero, se é maior que o número total de páginas, etc.
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
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
END IF
END IF
'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados
intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write RS("cod_Companhia") & " - " & RS("cod_Cotacao") & " - " & RS("id_Servidor") & "<BR>"
'---------------------------------------------------------------------------------------------
RS.MoveNext

' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>
<%
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
%>
</form>

como ficaria?



comsegui fazer.

consegui fazer. coloquei a pagina atual



#893388 Paginação, Usuário Podendo Escolher A Página

Posted by rafa-martin on 22/01/2008, 14:38 in ASP

eu queria saber como fazer aquela pagianação que além de ir para o próximo ou ultimo registros, o usuário pode digitar o número da página que ele quer ir. por exemplo digamos q numa listagem a paginação criada foi de 10. então ele clica em próximo, clia em próximo de novo. só que na terceira vez ele já ficou de saco cheio de ficar clicando em próximo porque até chegar a página 10 vai demorar muito, então ele digita o número 10 na caixa de texto e já vai para a página 10.

como eu faço isso?



#886747 Carregar Exe Quando Máquina Ligar

Posted by rafa-martin on 12/12/2007, 11:53 in Servidores Windows

pessoal eu tenho o exe. gostaria de quando minha máquina ligar o exe fosse carregada para que possa ficar executando.

como faço isso?

descobri isso

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

funcionou bem flw



#883844 Como Pegar Nome Da Máquina

Posted by rafa-martin on 26/11/2007, 09:41 in ASP

pessoal como eu faço para pegar o nome da máquina. é assim eu tenho aplicação web que está em um servidor. só que vários usuários vão acessas essa aplicação. por isso quero pegar o nome da máquina de cada um que acessa a aplicação.

ah, outra cois porque mesmo eu informando remote_addr e local_addr me informa o ip local (127.0.0.1)? teria que informar o ip da máquina.

como faço para pegar o nome da máquina e o numero do ip?



#857115 Verificando Os Selecionados.

Posted by rafa-martin on 27/06/2007, 13:50 in ASP

pessoal, eu estou listando 10 registros que trago do banco. ao lado de cada registro eu coloco um checkbox. então se eu trago dez registros, vão aparecer 10 checkbox. eu claro todos terão o mesmo.

então faço o seguuinte:

meu select

while not rs.eof

<input type="checkbox" name="liberarpai" id="liberarpai" value="<%=rs("id_forum")%>" >

rs.movenext

wnd

e na outra página eu faço esse isso para ver quem está ticado:

liberarpai = request("liberarpai")
varArray = split(liberarpai, ",")

for i = 0 to ubound(varArray

response.Write(varArray(i) & "<br>")

next

aí me traz todos que eu tiquei. exemplo: dos 10 registros que eu trouxe, digamos que eu tiquei o 1, 3, 4 e 7

então quando eu fizer esse for tem q trazer apenas os registros com os id's 1, 3, 4 e 7. eu sei q se eu voltar e desticar o 7, nessa outra página que faço o for, vai aparecer somente o 1, 2, 3 e 4.

o problema é que preciso verificar quem está ticado ou não, porque eu preciso fazer um update na tabela. tenho que fazer isso:

quem tiver ticado = 1 no campo da tabela

else = 0 no campo da tabela.

como faço isso?




IPB Skin By Virteq