Código fuente de 'Cuenta subcadenas en cadena.asp'
<html>
<head>
<title>Cuenta subcadenas en cadena - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Cuenta subcadenas en cadena</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
Esta una función muy sencilla en Vbscript que cuenta las ocurrencias de una subcadena
dentro de una cadena.<br>
<b>Nota:</b> Diferencia mayúsculas de minúsculas<br><br>
<b>Ejemplo:</b><br>
CuentaOcurrencias("había una vez un circo","un")<br>
<b>Resultado:</b>
<%response.write CuentaOcurrencias("había una vez un circo","un")%></b>
<%
function CuentaOcurrencias(cadena, subcadena)
CuentaOcurrencias = UBound(split(cadena, subcadena))
end function
%>
</body></html>