%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
%>
| 作者: admin 来源:sztjq 时间:03月17日 16:30 提交:sztjq 访问: |
值2008新年的到来,本中心为庆祝新年,特为广大拳友准备了丰富多彩的活动,望广大太极拳友踊跃参加。
本周六(1月12日),上午到上梅林辅导中心练拳,午餐后,下午登深圳最高峰----梧桐山。我们将在好汉坡集体演练陈氏太极拳,最后冲刺最高点----好汉坡。下周六(1月19日),上午在辅导中心练拳,并有丰富多彩的娱乐活动,下午游大梅沙海滨度假村。 |
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |