<%
'ASP adalah bagian dari sistem
Fungsi Jumlah Kata(strInput)
Redupkan strTemp
strTemp = Ganti(strInput, vbTab, " ")
strTemp = Ganti(strTemp, vbCr, " ")
strTemp = Ganti(strTemp, vbLf, " ")
' 删除字首字尾空格
strTemp = Pangkas(strTemp)
' 替换为一个空格
Lakukan Sementara InStr(1, strTemp, " ", 1) <> 0
strTemp = Ganti(strTemp, " ", " ")
Lingkaran
Jumlah Kata = UBound(Split(strTemp, " ", -1, 1)) +1
Fungsi Akhir
%>