<%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 %>
你的位置: 首页 -> 新闻
好消息
作者: 管理员 来源:网络收集 时间:08月21日 17:22 提交：sztjq 访问：
好消息，郑州第十届国际太极拳高级培训班录像光盘已经到货，详情资询本中心王教练。
·上一篇：08年08月武院校友会
·下一篇：河南武术名家论武术比赛"进入"北京奥运会 		【打印文章】【关闭本页】
电话：83100206 手机：13510359683 电邮：weixie@sztjq.com 粤ICP备06086521号