Ir para conteúdo
Fórum Script Brasil
  • 0

alguém Pode Me Explicar Como Fazer Uma Rotina No Asp


Se você esta contente....

Pergunta

olá pessoal eu estou fazendo meu tcc e eu preciso saber como se faz um procedimento;sub-rotinas;

metodo procedural, bom sei la como vocês chamam, mas a duvida é essa olha se fosse em javascript seria assim:

ex:

<script language="javascript">

function MUITO_OBRIGADO_POR_TENTAR_ME_AJUDAR() //<== procedimento

{

nome=form1.ed_nome.value;

document.write(nome+"voce é uma pessoa muiot legal");

}

</script>

.

.

.

<form name="form1">

seu nome<input type="text" name="ed_nome" size="20">

input<input type="button" value="clica aqui"

onclick="MUITO_OBRIGADO_POR_TENTAR_ME_AJUDAR()">// olha ai presta anteçao nesta linha

<!-- Desculpa a linha quebrou, mas o importante é que aqui no evento on click eu chama o procedimento-->

</form>

.

.

</html>

pergunta como faço isso no vbscritp?, aw você saberia aonde tem uma boa apostila de vbscript? desde já muito obrigado!

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Bom vamos lá.

O VBScript possui dois tipos de sub-rotinas: Sub e Function.

As procedures Sub são blocos de códigos iniciados pela palavra Sub e encerrados por End Sub.

é um conjunto de comandos associados a um identificador alfanumérico.

Uma Function possui a mesma definição. só que alem de executar os comandos associados a ela, pode gerar um valor como resultado. ao contrario da Sub que não retorna valor em sua chamada.

Sintaxes:

Sub NomeDoProcedimento([Parâmetro(s)])

Comando(s)

End Sub
--------
Function NomeDaFunção([Parâmetro(s)])

Comando(s)

End Function
Exemplo: Função: Formata Nome ------------------------------------- <% Function FormataNome(Nome) aNome = Split(Nome) For i = LBound(aNome) To UBound(aNome) if Len(aNome(i)) > 0 Then nNome = nNome&" "& UCase(Mid(aNome(i),1,1)) & LCase(Mid(aNome(i),2)) End If Next FormataNome = Trim(nNome) End Function %> Aqui como Chamar a Função <%=FormataNome(" MaRcOs FeRnAnDeS ")%> -------------------------------------
Função: Soma
<%
Function soma(a,b)
Dim Resultado
resultado = a + b
soma = resultado
End Function
Dim c,d,e
Response.Write soma(10,20)
%>

Qualquer coisa posta ai, tenho que sair agora. Espero ter ajudado.

Editado por Marcos-rj
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...