ASP字数计算函数

ASP字数计算函数

文章出处：联动天下作者：联动天下发布时间：2005-12-13

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

[返回顶部↑] [推荐好友] [查看评论]

用户名：（新注册）密码：匿名评论 [查看评论] 发表评论

评论内容：(不能超过120字，需审核后才会公布，请自觉遵守互联网相关政策法规。

↑文章搜索↑


	关键字：
	范围：
	开始搜索

§相关文章§

§推荐文章§