显示左边的n个字符函数(自动识别汉字)
类别: ASP教程
rem 显示左边的n个字符(自动识别汉字) Function LeftTrue(str,n) If len(str)<=n/2 Then LeftTrue=str Else 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 |
- 上一篇: ASP组件介绍?w3Sockets
- 下一篇: Asp 函数介绍(一)
-= 资 源 教 程 =-
文 章 搜 索