繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示左边的n个字符(自动识别汉字)函数
- ASP
- ASP六大对象介绍
- 使用Filter实现信息的二次检索
- 让弹出窗口变得“听话”一些
- 在ASP中利用“正则表达式” 对象实现UBB风格的论坛
- “Web 匿名用户”帐户密码的位置
- 对一些编程初学者的良言警句
- ASP编程中15个非常有用的例子
- 精彩:ASP遗留的二十大积习
- 关于Asp代码与页面的分离
- 教大家如何利用ASP打造网站论坛DIY(1)
- 教大家如何利用ASP打造网站论坛DIY(2)
- 网站安全：防范ASP木马的十大基本原则
- 用ASP设计一个留言薄
- 趣味访客计数器设计两则
- 我的ASP之旅—二级联动菜单制作
- ASP编程--新手上路篇：ASP技术简介
- 用ASP实现网上考试系统
- 请注意！常见的ASP脚本攻击及防范技巧
- ASP开发的WAP格式简易邮件系统实例
- asp基础教程：网页间数据传递方法小结
ASP 中的 显示左边的n个字符(自动识别汉字)函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 234 ::
收藏到网摘: n/a
Function LeftTrue(str,n)
If len(str)<=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftTrue = TStr
End If
End Function
评论 (0) All
