<%
'ASP 字数计算函数
Функция WordCount(strInput)
Dim 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
Конечная функция
%>