家园首页 Php4手册 我的相册 家园下载 个人文集 给我留言
我形我塑,网络相册,www.5x54.com 相册 相册 心情相册,少女相册 免费申请,我形我塑免费相册
 家园 个人文集   http://www.5x54.com
 


ASP控制字符串截取长度,中文占两个字符函数

作者：网上收集    点击： 读取中... 次

引用代码：function leftX(byval uStr,byval uLen) 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
'ASP控制字符串截取长度,中文占两个字符 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
'使用方法：leftX(rs("content"),15) 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
  dim i,j,uTestStr,theStr 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
  leftX = "" 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
  j = 0 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
  for i = 1 to len(uStr) 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
    uTestStr= mid(uStr,i,1) 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
    theStr  = theStr & uTestStr 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
    if asc(uTestStr) < 0 then 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
      j = j + 2 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
    else 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
      j = j + 1 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
    end if 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
    if j >= uLen then exit for 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
  next 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
  leftX = theStr 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^
end function 版权保护版权保护，请不要随意复制^%#$32671)98sa。^_^，请不要随意复制^%#$32671)98sa。^_^

收藏此文章　　　　　打印  更新　　　　　编辑此文章　　　　『关闭窗口』