<%
'ASP هو المسؤول
الدالة WordCount(strInput)
خافت strTemp
strTemp = استبدال (strInput، vbTab، " ")
strTemp = استبدال (strTemp، vbCr، " ")
strTemp = Replace(strTemp, vbLf, " ")
'
strTemp = Trim(strTemp)
' 替换为一个空格
افعل بينما InStr(1, strTemp, " ", 1) <> 0
strTemp = استبدال (strTemp، " "،" ")
حلقة
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
وظيفة النهاية
%>