<%
'ASP字數計算函數
函數字數統計（strInput）
調暗 strTemp
strTemp = 替換(strInput, vbTab, " ")
strTemp = 替換(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")
' 刪除字首字尾空格
strTemp = Trim(strTemp)
' 替換為一個空格
執行 While InStr(1, strTemp, " ", 1) <> 0
strTemp = 替換(strTemp, " ", " ")
環形
字數 = UBound(Split(strTemp, " ", -1, 1)) +1
結束功能
%>