ASP - Función para cortar una cadena
Función para cortar una cadena de texto hasta donde lo limitemos:
Variables: texto - Cadena a cortar (texto - string)
max - Número de carácteres a mostrar (númerico - int)
function cortarcadena (texto,max)
m = 0
Maximo = max ' Tamaño máximo permitido'
Cadena = texto
If len ( Cadena ) > Maximo Then
Cadena2 = Split ( Cadena, " " )
Cadena = ""
Do While len ( Cadena ) + len ( Cadena2 ( m ) ) < Maximo
Cadena = Cadena & " " & Cadena2 (m )
m = m + 1
Loop
End if
response.write ( Cadena )
end function
Articulo 
Historial
Imprimir
Condividi
