<%
'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
&nbs
新聞熱點
疑難解答