[xanburzum]

CÓDIGO

<%
Dim strScriptName
Dim strInputText

'Leia no nome do script
'Ponto de ação do formulário para.
strScriptName = Request.ServerVariables("URL")

'Leitura na entrada da área de texto.
strInputText = Request.Form("txtWordCount")

'Check for de entrada vazia e ignorá-lo ..
If strInputText = "" Then
    strInputText = "This is some text for the textarea!"
Else
    ' Echo fora de entrada:
    Response.Write "You entered:<br />" & vbCrLf
    Response.Write "<pre>"
    Response.Write Server.HTMLEncode(strInputText)
    Response.Write "</pre>" & vbCrLf

    ' Imprima as contagens :
    Response.Write "<p>It contained <b>" _
        & GetWordCount(strInputText) _
        & "</b> words and <b>" _
        & GetCharCount(strInputText) _
        & "</b> characters.</p><br />" & vbCrLf
End If


'****  Funções ***********************************
Function GetWordCount(strInput)
    Dim strTemp


    strTemp = Replace(strInput, vbTab, " ")
    strTemp = Replace(strTemp, vbCr, " ")
    strTemp = Replace(strTemp, vbLf, " ")

    'Remova os espaços à esquerda e à direita
    strTemp = Trim(strTemp)

    'Combine múltiplos espaços aos mais simples
    Do While InStr(1, strTemp, "  ", 1) <> 0
        strTemp = Replace(strTemp, "  ", " ")
    Loop

    ' pega a contagem, dividindo a string em um array
'E retornando número de elementos na mesma.
'Eu adiciono um para lidar com o limite inferior 0.
    GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1
End Function ' GetWordCount

Function GetCharCount(strInput)
    GetCharCount = Len(strInput)
End Function ' GetCharCount
'**** End Funções *************************************

'formulário

%>
<p>Enter some text:</p>

<form action="<%= strScriptName %>" method="post">
    <textarea name="txtWordCount" cols="40" rows="5"
    ><%= Server.HTMLEncode(strInputText) %></textarea>

    <br />

    <input type="submit">
</form>
<%
Dim strScriptName
Dim strInputText

'Leia no nome do script
'Ponto de ação do formulário para.
strScriptName = Request.ServerVariables("URL")

'Leitura na entrada da área de texto.
strInputText = Request.Form("txtWordCount")

'Check for de entrada vazia e ignorá-lo ..
If strInputText = "" Then
    strInputText = "This is some text for the textarea!"
Else
    ' Echo fora de entrada:
    Response.Write "You entered:<br />" & vbCrLf
    Response.Write "<pre>"
    Response.Write Server.HTMLEncode(strInputText)
    Response.Write "</pre>" & vbCrLf

    ' Imprima as contagens :
    Response.Write "<p>It contained <b>" _
        & GetWordCount(strInputText) _
        & "</b> words and <b>" _
        & GetCharCount(strInputText) _
        & "</b> characters.</p><br />" & vbCrLf
End If


'****  Funções ***********************************
Function GetWordCount(strInput)
    Dim strTemp


    strTemp = Replace(strInput, vbTab, " ")
    strTemp = Replace(strTemp, vbCr, " ")
    strTemp = Replace(strTemp, vbLf, " ")

    'Remova os espaços à esquerda e à direita
    strTemp = Trim(strTemp)

    'Combine múltiplos espaços aos mais simples
    Do While InStr(1, strTemp, "  ", 1) <> 0
        strTemp = Replace(strTemp, "  ", " ")
    Loop

    ' pega a contagem, dividindo a string em um array
'E retornando número de elementos na mesma.
'Eu adiciono um para lidar com o limite inferior 0.
    GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1
End Function ' GetWordCount

Function GetCharCount(strInput)
    GetCharCount = Len(strInput)
End Function ' GetCharCount
'**** End Funções *************************************

'formulário

%>
<p>Enter some text:</p>

<form action="<%= strScriptName %>" method="post">
    <textarea name="txtWordCount" cols="40" rows="5"
    ><%= Server.HTMLEncode(strInputText) %></textarea>

    <br />

    <input type="submit">
</form>