| 内容 |
<%
'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
%> |