Código fuente de 'Corta cadena.asp'
<html>
<head>
<title>Corta cadena - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Corta cadena</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
Funcionamiento: CortaCadena(cadena,maxlong)<br>
cadena = cadena original<br>
maxlong = máxima longitud que debe tener la cadena<br><br>
Además la cadena incluye un vínculo a un correo con el mismo nombre (sin
seccionar)<br>
<br>
<b>Ejemplo:</b>
CortaCadena("Hola mundo",4)<br>
<%response.write CortaCadena("Hola mundo",4)%>
<%
private Function CortaCadena(cadena,maxlong)
Dim oricadena
oricadena = cadena
If cadena <> "" Then
if len(cadena) > maxlong then
cadena = left(cadena,maxlong) & ".."
End If
Else
exit function
End If
Dim newcadena
newcadena = "<a href=""mailto:"&oricadena&""" class=""text"" title="""&oricadena&""">"&cadena&"</a>"
CortaCadena = newcadena
End Function
%>
</body></html>