几个ASP字符串处理函数
作者:eisn 来源:51js 发布时间:2008-04-23 12:55:00
标签:字符串,函数,asp
偶写的几个ASP字符串处理函数,用于文章分页的小玩意
函数名:StrLen
作 用:取得字符串长度(汉字为2)
参 数:str ----字符串内容
返回值:字符串长度
Function StrLen(Str)
Set rep = New regexp
rep.Global = True
rep.IgnoreCase = True
rep.Pattern = "[^\x00-\xff]"
StrLen = Len(Str) + rep.Execute(Str).Count
Set Rep = Nothing
End Function
函数名:StrLeft
作 用:从左面取指定数量字符串(汉字为2)
参 数:L ----字符个数
返回值:字符串
Function Strleft(Str, L)
Dim I, Test_Str, lens, tStr, nStr, tL
tStr = Left(Str, - Int( - (L / 2)))
nStr = Right(Str, Len(Str) - Len(tStr))
If Len(nStr)>0 Then tL = L - StrLen(tStr)
If Asc(Left(tStr, 1))<0 And Len(tStr) = 1 And L<2 Then tStr = ""
If tL>= 1 Then
Strleft = tStr&Strleft(nStr, tL)
Else
Strleft = tStr
End If
End Function
函数名:StrRight
作 用:从右面取指定数量字符串(汉字为2)
参 数:L ----字符个数
返回值:字符串
Function StrRight(Str, L)
Dim I, Test_Str, lens, tStr, nStr, tL
tStr = Right(Str, - Int( - (L / 2)))
nStr = Left(Str, Len(Str) - Len(tStr))
If Len(nStr)>0 Then tL = L - StrLen(tStr)
If Asc(Left(tStr, 1))<0 And Len(tStr) = 1 And L<2 Then tStr = ""
If tL>= 1 Then
StrRight = StrRight(nStr, tL)&tStr
Else
StrRight = tStr
End If
End Function
函数名:StrMid
作 用:指定开始位置取指定数量字符串(汉字为2)
参 数:S----开始字符串为第几个,L ----字符个数
返回值:字符串
Function StrMid(Str, S, L)
StrMid = strleft(Right(Str,Str Len(Str) - Len(strleft(Str, s)) + 1), L)
End Function
中文字符占两格英文是一格所以 要想分的整齐点就得这么干喽。
网上也有类似程序但没我的快的, 大家评评!
0
投稿
猜你喜欢
- XML是一个精简的SGML,它将SGML的丰富功能与HTML的易用性结合到Web的应用中。XML保留了SGML的可扩展功能,这使XML从根本
- 斜角导航条看上去立体感比较强,但实现起来比较麻烦;这是前几天写的一个测试代码,实现时,本来想用简单的图片加负数来实现;但GIF图片对半透明的
- 前两天看的时候,所用的歌曲地址加密方式已变更。将以前的发出来供大家赏玩。解密函数是从flash里面反编译出来的,加密函数是自己根据解密函数写
- 项目说明开发php项目管理系统,由于是新项目且已经部署在生产环境,导致需要根据实际使用情况,进行及时的功能升级或bug修复。每次升级,进行程
- 从过往MySQL数据库生产环境的维护工作中,总结的一些小经验和知识,未必有多深奥,但是对我们消除隐患,确保MySQL数据库生产环境四个9的作
- 内容摘要合理使用渐变留白网格布局提高字体应用明确而有效的导航设计漂亮、有用的页脚介绍优秀设计和卓越设计之间的区别是比较小的。一般人可能无法解
- SQL Server具有强大的复制功能,除了将数据和数据库对象从一个数据库复制并准确分发的另一个数据库中,还要实行数据库之间的同步。SQL
- Silverlight和Flash,到底谁更强?谁更有优势?很多初接触Silverlight和Flash的人总是会问这个问题,因为它们在表面
- WEB标准化之前的互联网是TABLE布局的天下,但随着互联网的高速发展,TABLE布局已经不能满足千变万化的页面所来来的更新压力和服务器压力
- 在SQL Server数据库中,如果执行Transact-SQL时出现了错误,我们可以使用两种捕捉错误的方法解决此问题,一种是在客户端代码(
- 写ASP程序时,一般情况总是使用的VBScript,不过也不只是这一种选择,也可以用JScript。但在用JScript作为ASP的语言时,
- 404错误是指在服务器找不到指定的页面。404错误页面是可以自定义的。Smashing Magazine为我们挑选了40个有创意的404错误
- 将纸的材质融为设计元素现已成为当今网页设计最热门最流行的设计趋势之一。网页设计师可以使用纸屑、硬纸板纹理材质、笔记本和记事薄构成有趣而复杂的
- 折纸是日本著名的折叠纸张的艺术。折纸艺术只是使用一些不同的折叠方式,却能被用各种各样的方式组合成错综复杂的设计。而受折纸启发的logo设计则
- JavaScript 读取、删除 Cookie 的函数* * WebFXCookie class */ fun
- 偶然在Google发现了他们的用户体验设计原则,因此翻译作一下记录。1.以人为本 —他们的生活、他们的工作和他们的梦想2.珍惜每一毫秒的时间
- aspjpeg组件实现加水印函数的调用方法: <%printwater "/images/水印图片.gif",&q
- 在开始聊我在阿里四个月的网页推广设计之前,我想先来说说我对平面设计和网页设计的认识。它们之间的交集。1.它们都是集艺术创作、电脑技术和数字技
- 有时候很多朋友访问自己的asp或php等程序页面时出现一些错误,就是页面无法显示也没有详细的错误信息,就算iis中开启了显示详细的错误也不能
- QL Server事件探查器(Profiler)可以帮助数据库管理员跟踪SQL Server数据库所执行的特定事件,监视数据库的行为;并将这