<%
'ASP字数计算関数数
関数 WordCount(strInput)
薄暗い温度
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, " ", " ")
ループ
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
終了機能
%>