Ir para conteúdo

POWERED BY:

Arquivado

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

Hugo Eyer

Carregando Pagina

Por , em ASP Clássico

Recommended Posts

Hugo Eyer    0

Hugo Eyer
Postado

Amigos,

 

tenho uma pagina que faz uma consulta muito grande na base de dados...

 

Quando parto enviar para a consulta comecar a pagina fica branca "carregando" ate que a consulta seja concluida, ai sim aparece a pagina...

 

Eu gostaria de saber se tem algum cogido que eu coloque pra que apareca de vez a pagina em branco, apareca um gif meu mostrando que esta sendo carregada a pagina ?

 

Alguem saberia ?

 

abraço

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinícius Siller    0

Vinícius Siller
Postado 

<% Response.buffer = "true"%>

<Html>

<body>

<% 'Aqui é o que vai aparecer na tela

%>

Aguarde.. Carregando!! 

<%
'E agora chama-se o metodo
Response.Flush

'Dai então vem a consulta a um banco de dados qualquer

SQL = "SELECT * FROM tabela"

Set rs = db.execute(SQL)

'Posiciono no primeiro registro e imprimo ele

rs.movefirst

response.write rs("campo")

%>

</body>

</html>

Fonte:

 

Veja isso também: [url=http://forum.wmonline.com.br/index.php?showtopic=73662]http://forum.wmonline.com.br/index.php?showtopic=73662

 

Espero que ajude.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

uma forma simples e útil de mostrar uma mensagem de "carregando" utilizando ASP e javascript. A solução

1. método response.flush

2. javascript para mostrar e esconder uma mensagem

3. pixel transparente para esconder a imagem para carregar imagem

 

<%@ LANGUAGE="VBSCRIPT"%>
<% 
response.buffer= true
%>
<HEAD>
<TITLE>LOADING</TITLE>
</HEAD>
<BODY >
<br>
<table border="1" width="100%" bgcolor=#000080 height="10">
	<tr>
		<td bgcolor=#000080 width="60%">
			<font size="3" face="Arial" color="#ffffff"><b>LOADING SAMPLE</b></font>
		</td>
	</tr>
</table>
<br>
<form name="Form">
<img src="/images/reloj2.gif">
<input type="TEXT" NAME="MESSAGE" SIZE="60" VALUE="LOADING... PLEASE WAIT" border=0 style="border: none; border-color: transparent; background: transparent">
<img src="/images/reloj2.gif">
</form>
<%
response.flush()
' um simples timer
For i = 1 to 1000000
	strTmp = strTmp & strTmp
Next
response.flush()
%>
<script>
document.forms["Form"].MESSAGE.value = 'DONE !!'; 
window.document.images[0].src = '/images/pixel.gif'
window.document.images[1].src = '/images/pixel.gif'
// pixel transparente 
// reloj2.gif gif animado 
</script>
<hr color="#000080" size="2">
</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hugo Eyer    0

Hugo Eyer
Postado

No caso do Vinícius Siller acho que entendi tranquilamente...

 

Mas na parte da "select" é que tenho uma duvida... pq sao muitas selects com o SUM... exemplo abaixo.

--

SQL= "SELECT SUM(QTDPREVISTA) AS NUMERO FROM ACIONAMENTOS A" 
SQL= SQL & " INNER JOIN ESTADOS B ON A.IDFILIAL = B.IDESTADO "
SQL= SQL & " INNER JOIN dbo.REGIONAIS E ON B.IdRegional = E.IdRegional" 
SQL= SQL & " INNER JOIN ITENS D ON A.IDITEM = D.IDITEM" 
SQL= SQL & " WHERE A.IDMESMEDICAO = '" & IDMESMEDICAO & "'"
SQL= SQL & " AND D.ITEM in ('12.1' , '12.2' , '12.3' , '12.4' , '17.1', '20.1', '21.1', '22.1', '27.1' , '27.2', '27.3' ) AND A.IDFILIAL IN ( '6', '8' )"
SQL= SQL & " AND A.DTCANCELAMENTO IS NULL"
'RESPONSE.Write SQL
'RESPONSE.End()
SET rsPROJETOMESCXMG = CONEX.EXECUTE(SQL)

SQL= "SELECT SUM(QTDPREVISTA) AS NUMERO FROM ACIONAMENTOS A" 
SQL= SQL & " INNER JOIN ESTADOS B ON A.IDFILIAL = B.IDESTADO "
SQL= SQL & " INNER JOIN dbo.REGIONAIS E ON B.IdRegional = E.IdRegional" 
SQL= SQL & " INNER JOIN ITENS D ON A.IDITEM = D.IDITEM" 
SQL= SQL & " WHERE A.IDMESMEDICAO = '" & IDMESMEDICAO & "'"
SQL= SQL & " AND D.ITEM in ('1.1', '1.2', '1.3', '1.4', '2.1', '2.2',  '2.3', '2.4' , '3.1', '3.2', '3.3', '3.4', '4.1', '4.2', '4.3', '4.4', 'GC-4.3', '5.1', '5.2', '5.3', '5.4', '6.1', '6.2', '6.3', '6.4', '7.1', '7.2', '7.3', '7.4', '8.1', '8.2', '8.3', '8.4', '9.1', '9.2' , '9.3' , '9.4' , '18.1' , '19.1' ) AND A.IDFILIAL IN ( '6', '8' )"
SQL= SQL & " AND A.DTCANCELAMENTO IS NULL"
'RESPONSE.Write SQL
'RESPONSE.End()
SET rsFISCALMESCXMG = CONEX.EXECUTE(SQL)
--

 

 

 

Estou na duvida nessa parte... eu terei que colocar varias vezes essa funcao do carregando ?

 

ou existe um jeito que eu coloque no final que fique aparecendo carregando enquanto carrega deversos 'rs' ??

 

Abraço

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