ASP 支持中文的len(),left(),right()的函数代码
来源：asp之家 发布时间：2011-03-03 10:59:00
比如一个汉字也只会算一个字节，在排版时如果全是汉字，好说，反正没什么差别，但是如果 * 作的字符串有汉字又有英文字母时，就不方便了，以下三个函数可以代替ASP自带的相关函数。
也有注意的地方，如果用在循环中，因不变量“i”也是常用于循环的变量，执行以下函数时，“i”的值会发生变化，如果是调用他的循环中用到相同的变量，会产生未知的结果，请换用其它变量名。
以下用法和len(),left(),right()一样。
程序代码
代码如下:
Function Strlength(Str)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
If Asc(Test_Str)>0 Then
Strlength=Strlength+1
Else
Strlength=Strlength+2
End If
Next
End Function
Function Strleft(Str,L)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
Function Strright(Str,L)
Temp_Str=Len(Str)
For i = Temp_Str to 1 step -1
Test_Str=(Mid(Str,I,1))
Strright=Test_Str&Strright
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
0
投稿猜你喜欢
- 4个不常用HTML标签optgroup、sub、sup和bdo运行代码框：<title>4个不常用HTML标签optgroup、
- ASP长文章分页代码实例，也许你会问一篇文章为什么还要进行分页呢？因为文章有短有长，当你的文章很长的时候，如果就一个页面都显示出来的话，读者
- 为了让鼠标移到小图上显示大图,我利用鼠标事件新建了一个层来显示大图.当然之前最好得到XY坐标取得当前鼠标的X,Y坐标：function&nb
- 在开发数据库应用中，经常会遇到处理时间的问题，如查询指定时间的记录等。下面就这些常见的问题，结合自己的一些经验，和大家探讨一下这类问题。首先
- 先看看：css中class与id的区别及应用表单的name与id其实是同一个意思，都是为了标记对象名称。它们所不同的是：name是Netsc
这篇文章与大家分享13个超级有用的 jQuery 内容滚动插件和教程。您可能经常能看到一些网站上特色区域的内容以滚动方式变化，这是一种在有限- JS操作二进制很麻烦，而且一直没有一个好的无损压缩工具来实现纯文本的压缩。所以钻研了一段时间的gzip，后来发现还是仅用 LZ77 比较容易
- 在编程时你一定碰到过时间触发的事件，在VB中有timer控件，而ASP中没有，假如你要不停地查询数据库来等待一个返回结果的话，我想你一定知道
- 本文给出了MySQL数据库中定义外键的必要性、具体的定义步骤和相关的一些基本操作，供大家参考！定义数据表假如某个电脑生产商，它的数据库中保存
- 类、构造函数、原型先来说明一点:在上面的内容中提到,每一个函数都包含了一个prototype属性,这个属性指向了一个prototype对象(
- 最近一个小项目需要一个星级评分的效果，所以去淘宝偷了一个，但是还得加载YUI很不爽，还是自己动手写一个吧～HTML: <!-
- 方法一、尽量使用复杂的SQL来代替简单的一堆 SQL.同样的事务，一个复杂的SQL完成的效率高于一堆简单SQL完成的效率。有多个查询时，要善
- 读《论语》，子张十九，子夏曰：博学而笃志，切问而近思，仁在其中矣。 博学：架构需要广度，要尽量多学习各方面的知识。笃志：除了广度，架构师还需
- 无法打开用户默认数据库，登录失败,这也是SQL Server使用者熟悉的问题之一。在使用企业管理器、查询分析器、各类工具和应用软件的时候，只
- 1) 知识准备：为了使用Perl语言去存取mSQL和MySQL数据库的内容，必须安装一些API模块，以下列出一些必须安装的模块名称说明和其下
- 看到这篇文章的人，如果我没有估计错的话，八成是从事互联网的人，其中又有八成是做设计的。如果真是这样，可以一起庆幸一下。首先，庆幸从事着一个没
- 下面就是解决方案： 1- From the command prompt, stop isqlplus: c:\>isqlplusct
- 首先获取ip：<％ userip=Request.ServerVariables(&qu
- InnoDB给MySQL提供了具有提交，回滚和崩溃恢复能力的事务安全(ACID兼容)存储引擎。InnoDB锁定在行级并且也在SELECT语句
- 斐波那契记忆优化法：<script type="text/javascript">var fibonacci
