|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'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 %> 返回类别: 教程 上一教程: ASP数据连接方式 下一教程: WEB打印设置解决方案一(通过修改注册表改变IE打印设置) 您可以阅读与"ASP字数计算函数--WORDCOUNT()"相关的教程: · ASP字数计算函数 · 本函数计算两个时间的差 · ASP函数语法速查表 · ASP文件上传函数库 · 面向对象的ASP编程之四-一些常用的函数 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |