<%Function LeftStr(byVal Str,byVal StrLen) Dim l,t,c,i l=Len(str) t=0 For i=1 To l c=AscW(Mid(str,i,1)) If c<0 Or c>255 Then t=t+2 Else t=t+1 IF t>=StrLen Then LeftStr=left(Str,i)&"..." Exit For Else LeftStr=Str End If Next End Function %>
热门信息
·那份感激从心底升起
·哲学是武术之本
·2008年广州高级培训班...
推荐信息
·还没有文章　
你的位置: 首页 -> 太极杂谈
·[太极杂谈] 2008年广州高级培训班心得体会－马晓聪2009-02-1339
·[太极杂谈] 哲学是武术之本 2008-10-3145
·[太极杂谈] 那份感激从心底升起2008-09-15109
页次：1/0 每页30 文章数2

9 7 8 :

到页
QQ:232555688 电话：83100206 手机：13510359683 电邮：weixie@sztjq.com 粤ICP备06086521号