Ir para conteúdo

POWERED BY:

Arquivado

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

Martinsrj

Como Trabalhar VBscript com HTML

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Olá pessoal, boa tarde!

Preciso utilizar o VBscript em uma aplicação que roda no IE, porem estou com dificuldade.

Irei colocar abaixo um script simples que funciona normalmente.

A ideia do script abaixo é que enquando o usuario está em frente a tela aguardando apareça uma imagem em tela informando isso (loading...)

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style>
	#loading{
		text-align:center;
		position:absolute;
		top:6%;
		left:10%;
		font-family::Arial, Helvetica, sans-serif;
		font-size:12px;
		font-weight:bold;
		color:#666666;
	
	}
</style>

<title>:::...Digite o Numero - Gerando o numero de 0 até o numero digitado...:::</title>
</head>

<body>
<script language="vbscript">

Dim modelo

varNumero = InputBox("Entre com o numero: ")

if varNumero <> "" then
	document.write("<div id='loading'><img src='figuras/loading.gif' boder=0><br />Gerando os numeros de 0 ...</div>")

	For i = 1 to varNumero	
		MsgBox "Numero"& i
	Next
	
	Mens = MsgBox("Concluido!",64,"Mensagem")
	
End if	

</script>
</body>
</html>

Abaixo segue a minha aplicação de verdade, porem não funciona porque o ASP executa primeiro a SUB e assim não exibindo a imagem na tela informando para o usuario que as etiquetas estão sendo geradas.

<!-----#include file="includes/Extras.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>

<script language="vbscript">

Dim modelo

modelo = InputBox("Entre com o modelo da Etiqueta:","Gerar Etiqueta","Pimaco 6081/6181/6281 Branca")

if modelo <> "" then
	
	//GeraEtiqueta "SELECT top 10 nome, endereco, bairro, cidade, estado, cep FROM cadastro", ""&modelo&""
	GeraEtiqueta "<%=session("filtroSQL") %>", ""&modelo&""
	
	
	Mens = MsgBox("Concluido!",64,"Mensagem")
	
	window.close
else
	Mens = MsgBox("Precisa informar um modelo de etiqueta!",48,"Atenção")

end if 

</script>

</body>
</html>

Desde já agradeço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

gubergamo    0

gubergamo
Postado

Lembrando que ASP (VbScript) é server side, portanto só vai ser chamado ao carregar a página.

 

use:

<% para abrir o código asp e %> para fechar

Response.write("") para escrever algo na tela

 

e assim vai.. tente dar uma procurada no google apostilas, tal..

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Olá Amigo...

você pode usar ASP e AJAX, terá ótimos resultados

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