ASP字数计算函数

<%
'asp字数计算函数
Function WordCount(strInput)
　  Dim strTemp
　  strTemp = Replace(strInput, vbTab, " ")
　  strTemp = Replace(strTemp, vbCr, " ")
　  strTemp = Replace(strTemp, vbLf, " ")

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

　  ' 替换为一个空格
　  Do While InStr(1, strTemp, "  ", 1) <> 0
　　　  strTemp = Replace(strTemp, "  ", " ")
　  Loop
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
End Function
%>