Este recurso é muito útil para quando voce quizer exibir apenas parte de um determinado texto na tela. Ele corta o texto no tamanho que voce passar pela função.
A função se encontra comentada, confira.
.:: ExibindoPartetexto ::. <% function tamTexto(texto, y) if len(trim(texto)) > y Then 'Só executa se o texto for maior que o tamanho determinado Aux = mid(texto, 1, y) 'Pega a parte do texto do tamanho que voce determinou na chamada da função... Aux = Aux & " ..." 'Acrescenta as reticências else Aux = texto 'Exibe o texto sem cortes end if tamTexto = Aux 'Passa o valor para a função. end function texto="Este recurso é muito útil para quando voce quizer exibir apenas parte de um determinado texto na tela..." response.write "Texto original: " & texto & "
" response.write "Tamanho do texto: " & len(trim(texto)) & "
" response.write "
Texto a ser exibido pela função
" & tamTexto(texto,30) & "
" %>