欢迎您登陆并使用中国财税咨询中心为您免费提供的资料，交流，学习为一体的平台！

如果您在使用中遇到什么问题，请您不要吝啬，一定要写信给我们！！

Email:Shellapi@126.com 期待您的来信，或指导批语！

帮助内难免有收集的资料，如果侵犯了您的仅力，请您来信告知，我们马上删除或更新处理！

文章搜索--请输入关键词：

<%
'ASP字数计算函数
'by SBSTAR@SINA.COM
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
%>