%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
%>
| 作者: 管理员 来源:陈正雷太极网 时间:06月13日 15:10 提交:sztjq 访问: |
| 国营第五四零九厂子弟学校校长贾国文,遵照师父陈正雷大师“弘扬太极,造福人类”的要求,将陈式太极拳纳入了该校的校本课程,2至9年级师生人人学练太极拳。为迎接北京奥运会的到来,祝福陈正雷大师太极人生60年,该校在庆祝“六一”儿童节之际,举行了大型太极拳表演和陈式太极拳集体比赛与个人比赛。

庆“六一”活动

300人陈式太极拳表演

比赛

获奖后的喜悦 |
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |