asp字?jǐn)?shù)計算函數(shù)

    <%
    'asp字?jǐn)?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
    %>