asp字符串截取功能
*********************************************************
功能：cutstr { str（字符串）}
参数：一个字符串进行处理，strlen，截取的长度
作者：木
日期：2007 7 12
说明：截取指定长度的字符串
的例子：

*********************************************************

功能cutstr（STR，strlen）
如果
cutstr =cutstr功能异常：字符串是空的
退出功能
最后如果
------------源长度检查
如果strlen = 然后
cutstr =cutstr功能异常：未指定的长度
退出功能
最后如果

如果CInt（strlen）= 0
cutstr =cutstr功能异常：长0
退出功能
最后如果
----------检测源字符长度
模糊的L，T，C，I
L =莱恩（STR）
T = 0
----------周期截取字符
对于我= 1到L
C = ABS（ASC（中，I，1））
判断汉字是否成立
如果C＞255，那么
T＝2
其他的
T＝1
最后如果
确定是否达到指定长度
如果T＞= strlen然后
cutstr =左（STR，我）..
退出
其他的
cutstr = str
最后如果
下一个
cutstr =取代（cutstr，CHR（10），）
端功能
*********************************************************
功能：用于STR } {
参数：要处理的字符串
作者：木
日期：2007 7 12
说明：确定字符串长度，汉字长度为2。
的例子：
*********************************************************
函数strlen（str）
昏暗的p_len
p_len = 0
strlen = 0
如果修剪（STR）> 然后
p_len = Len（TRIM（STR））
XX = 1 p_len
< 0然后（中间（STR，XX，1））＜0，然后（中间（STR，XX，1））
strlen = int（strlen）+ 2
其他的
strlen = int（strlen）+ 1
最后如果
下一个
最后如果
端功能
N离开的*********************************************************字符
功能：LeftTrue（STR，N）
参数：要处理的字符串N，截取的长度
作者：木
日期：2007 7 12
描述：在左边显示n个字符（汉字自动识别）函数
的例子：
*********************************************************

函数的LeftTrue（STR，N）
如果是（2），那么
lefttrue = str
其他的
暗通
模糊L，T，C
朦胧的我
L =莱恩（STR）
T = L
通=
T = 0
对于我= 1到L
c = ASC（中间（STR，I，1））
如果C＜0，那么C＝65536
如果C＞255，那么
T＝2
其他的
T＝1
最后如果
如果T > n，则退出
通=通（MID（STR，I，1））
下一个
lefttrue =通
最后如果
端功能