|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'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 %> 返回类别: 教程 上一教程: ASP数据库恢复的代码 下一教程: 可以近视替代REMOTE SCRIPT的代码 您可以阅读与"ASP字数计算函数"相关的教程: · ASP字数计算函数--WORDCOUNT() · 本函数计算两个时间的差 · ASP安全检测与过滤函数SAFECHECK · 收藏:ASP的函数详解大汇总 · ASP中SPLIT 函数的一例 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |