<%
'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
%>
更多信息請查看IT技術專欄
公眾號
事業單位
當前位置：
公考類
招聘類
各類考試
