<%
'ASP자세한 내용은 다음과 같습니다.
함수 WordCount(strInput)
희미한 strTemp
strTemp = 바꾸기(strInput, vbTab, " ")
strTemp = 바꾸기(strTemp, vbCr, " ")
strTemp = 바꾸기(strTemp, vbLf, " ")
' 删除字首字尾空格
strTemp = Trim(strTemp)
' 替换为一个공格
InStr(1, strTemp, " ", 1) <> 0 동안 수행
strTemp = 바꾸기(strTemp, " ", " ")
고리
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
기능 종료
%>