<%@ Language=VBScript %> MsgBox em ASP Básico

 Implementando MsgBox em Asp Básico com VBScript (sem Java)

O que são MsgBoxes (Message Boxes)?

   São, como o próprio nome diz caixas de mensagem e são de grande intimidade para os que programam em Visual Basic, é o similar em javascript ao 'alert'.

   Muita gente afirma que é impossível implementar o comando 'msgbox' no VBScript, eu mesmo já percorri muitos fóruns na internet a procura de uma solução que dispensasse o Javascript, já que sou fã de carteirinha do vbscript, até que fui obrigado a estudar o tal do Javascript e entendi porque era possível implementar o 'alert'. Vamos a teoria...

Client-Side/Server-Side

Esse assunto é muito extenso e não tenho a pretensão de abordá-lo detalhadamente, mas sim uma pincelada, até por que eu acho que você, leitor, já saiba isso!

Quando você usa as marcas '<script language="Javascript" ou "<VBScritp"></script>' você está ordenando que o código entre estas marcas ocorrerão, ou serão usadas, no computador do cliente(visitante) e já quando você usa '<%%>' a informação será processada no servidor antes de ser enviado par. Para exemplificar o que estou dizendo, veja o código abaixo, no lado esquerdo temos um exemplo que mostrará a hora no lado do cliente e no lado direito a hora no servidor:

<script language="VBScript">
    function Hora()
        Hora = time()
        document.write(Hora)
    end function
</scritp>
<html><title>Hora Local Teste</title>
<body>
    <P align="Center">A hora local é: <script language="VBScript">Hora()</scritp></P>
</body >
</html>

<html><title>Hora Servidor Teste</title>
<body>
<P align="Center">A hora no Servidor é: <%=Time() %></P>
</body >
</html>

Se você é daqueles que precisam ver para crer, clique aqui ver o exemplo na prática.

Agora veja o seguinte código:

<html><title>Teste MsgBox</title>
<body>
    <% msgbox "Teste de Exempo" %>
</body >
</html>

Então? Será que vai funcionar?

    Não vai! Se você entendeu o que foi mostrado anteriormente dirá que não é possível, por que logicamente não dá pra gerar uma caixa modal no servidor e enviá-la pro cliente (acabei de escrever um absurdo!) Se tentar executar este código obterá um erro.

Então se você leu até aqui, deve estar ansioso para ver o código que realmente vai funcionar, só que agora você já sabe porque ele vai funcionar:

<script language="VBScript">
    function Hora()
        Hora = time()
    end function
</scritp>
<html><title>Hora Local Teste</title>
<body>
    <P align="Center">A hora local é: <script language="VBScript">msgbox Hora()</scritp></P>
</body >
</html>

Agora Sim!!

    Bom, se você entendeu porque  vai funcionar maravilha, mas com certeza tem alguém (que gosta de javascript) que vai dizer que dá na mesma que usar o 'alert()'. Será? Bem, vou mostrar as vantagens...

Não se preocupe, vou ser breve, já pensou em ter uma caixa modal na sua página que mostre os botões "Sim" "Não" e ainda por cima saber qual o botão que o usuário clicou, veja abaixo:

<script language="VBScript">
    function Hora()
        dim  Resposta
        Resposta = msgbox("Quer ver a hora local?", vbquestion + vbYesNo, "Pergunta Ativa")
        Hora = time()
        if Resposta = vbYes then< /FONT >
            document.write("Você quis ver a hora local!")
        else
            document.write("Você não quis ver a hora local!")
        end if
    end function
</script>
<html><title>Hora Local Teste</title>
<body>
    <P align="Center">A Resposta é: <script language="VBScript">Hora()</scritp></P>
</body >
</html>

 Eu não sei se é possível fazer isso em Javascript, mas aí está.

 Veja a página de exemplo

 

Colaboração de :

Ashley Marques

leonibr@hotmail.com