%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
%>
| 作者: 管理员 来源:博武国际武术网 时间:08月07日 13:43 提交:sztjq 访问: |
|
|
|
|

8月3日,“少林小子”在“鸟巢”前广场摆出武术姿势。当日,来自北京元鸿武术学校的小学员来到奥林匹克中心区演练,展示他们各自的武术绝活,刚一亮相就立即成为中外媒体竞相采访拍摄的焦点。据了解,奥运会期间,“少林小子”将在奥林匹克公园内为中外来宾献上精彩纷呈的少林武术展演。新华社记者李紫恒摄
 8月3日,“少林小子”在“鸟巢”前广场展示武术绝活。新华社记者李紫恒摄
 8月3日,“少林小子”在“鸟巢”前广场展示武术绝活。新华社记者李紫恒摄
 8月3日,“少林小子”在“鸟巢”前广场摆出武术姿势。新华社记者李紫恒摄 | | | |
|
|
|
|
|
电话:83100206 QQ群:52099695 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |