<%
'asp字?jǐn)?shù)計(jì)算函數(shù)
function wordcount(strinput)
dim strtemp
strtemp = replace(strinput, vbtab, )
strtemp = replace(strtemp, vbcr, )
strtemp = replace(strtemp, vblf, )
' 刪除字首字尾空格
strtemp = trim(strtemp)
' 替換為一個(gè)空格
do while instr(1, strtemp, , 1) <> 0
strtemp = replace(strtemp, , )
loop
wordcount = ubound(split(strtemp, , -1, 1)) +1
end function
%>
更多信息請(qǐng)查看IT技術(shù)專欄
公眾號(hào)
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試