Fonction de comptage de mots ASP

<%
'ASP字数计算函数
Fonction WordCount(strInput)
Dim strTemp
strTemp = Remplacer (strInput, vbTab, " ")
strTemp = Remplacer(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")

'
strTemp = Trim(strTemp)

'
Faire While InStr(1, strTemp, " ", 1) <> 0
strTemp = Remplacer(strTemp, " ", " ")
Boucle
Nombre de mots = UBound(Split(strTemp, " ", -1, 1)) +1
Fonction de fin
%>