Função de contagem de palavras ASP

<%
'ASP字数计算函数
Função WordCount(strInput)
Dim strTemp
strTemp = Substituir(strInput, vbTab, " ")
strTemp = Substituir(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")

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

' 替换为一个空格
Faça Enquanto InStr(1, strTemp, " ", 1) <> 0
strTemp = Substituir(strTemp, " ", " ")
Laço
Contagem de palavras = UBound(Split(strTemp, " ", -1, 1)) +1
Função final
%>