%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
%>
| 作者: 管理员 来源:网络收集 时间:02月18日 12:15 提交:sztjq 访问: |
新年新气象,人人喜事多。新年伊始,大家都逐渐投入到正常的工作,学习,生活当中,深圳陈氏太极拳辅导中心同时也已于02月16日正式开课,欢迎大家按时参加学习。
同时,本中心于02月24日举行新年团拜活动,望大家提前报名,踊跃参加。
报名电话:83100206
联系人:王教练

大红的对联,喜迎宾客!

集体练习老架一路
|
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |