%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
%>
| 作者: 管理员 来源:网络收集 时间:04月29日 14:50 提交:sztjq 访问: |
深圳市陈氏太极拳培训中心在五月份为太极拳爱好者进行义务培训教学。每年五月为“国际太极拳月”,加上今年奥运会的即将举办,我中心经过研究决定,于五月四号开始进行为期一个月的培训教学,望广大欲学太极拳的朋友踊跃及时报名。(注:本次培训十人以上开课)
学习时间:5.5日---31日每周六、周日下午3:30-5:30。
学习地址:上梅林文体公园 陈氏太极拳辅导中心
联系电话:83100206 13510359683
联系人:魏老师,王教练 ,吴教练 |
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |