<%
'ASP字数计算函数
Funktion WordCount(strInput)
Dimmen Sie strTemp
strTemp = Ersetzen(strInput, vbTab, " ")
strTemp = Ersetzen(strTemp, vbCr, " ")
strTemp = Replacement(strTemp, vbLf, " ")
' Wird verwendet
strTemp = Trim(strTemp)
' Dies ist nicht möglich
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Ersetzen(strTemp, " ", " ")
Schleife
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
Funktion beenden
%>