Función de recuento de palabras ASP

<%
'ASP字数计算函数
Función WordCount(cadenaEntrada)
Temperatura de intensidad tenue
strTemp = Reemplazar (strInput, vbTab, " ")
strTemp = Reemplazar (strTemp, vbCr, " ")
strTemp = Reemplazar(strTemp, vbLf, " ")

' 删除字首字尾空格
strTemp = Trim(strTemp)

' 替换为一个空格
Hacer mientras InStr(1, strTemp, " ", 1) <> 0
strTemp = Reemplazar(strTemp, " ", " ")
Bucle
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
Función final
%>