<%
'asp字數(shù)計算函數(shù)
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技術(shù)專欄
版權(quán)所有:易賢網(wǎng)
公眾號
事業(yè)單位
當前位置：
公考類
招聘類
各類考試