%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
%>
| 作者: 管理员 来源:网络收集 时间:11月04日 09:57 提交:sztjq 访问: |
| 湖南开展太极拳表演迎奥运活动 |
| 作者: 信息来源:新浪 2007-11-3 10:31:54 |
|
|

新浪体育讯 2007年11月2日,许多湖南涟钢离退休老职工在参加千人太极拳表演。湖南省娄底市涟钢集团有限公司为宣传奥运会精神,开展“与奥运同行,与健康同行”千人太极拳表演活动.一千多名离退休老职工踊跃参加“与奥运同行,与健康同行”千人太极拳表演和比赛。图为表演者展现太极拳。 | |
|
|
|
|
|
电话:83100206 QQ群:52099695 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |