%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
%>
| 作者: 管理员 来源:网络收集 时间:07月15日 16:39 提交:sztjq 访问: |
1、陈氏太极拳辅导(培训)中心
福田区上梅林文体公园(梅林路与梅秀路交叉口文体公园院内);
上课时间(每天)
上午:09:00-11:00,
下午:15:30-17:30,
晚上:19:30-21:30
联系人:魏勰老师
电话:13510359683;0755-83100206
2、宝安区沙井镇推广中心
沙井镇新沙路中心公园南门太极拳推广中心
上课时间:早上、上午、下午、晚上。
联系人:刘强老师
电话:13554830629 |
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |