<%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 %>
本类栏目
·太极流派
热门信息
·太极源流百年争论尘埃落...
·太极拳的“力”与“劲”...
·太极发展史
·太极拳创始说
· 太极拳演进说
·太极拳源流解密
·太极拳演进说
·太极拳源流解谜
推荐信息
·太极拳源流解密
 
你的位置: 首页 -> 太极流派
·[太极流派] 太极拳源流解密2007-10-18149
·[太极流派] 太极拳源流解谜2007-10-06100
·[太极流派] 太极源流百年争论尘埃落定 ---原福全 2007-06-12247
·[太极流派] 太极拳创始说2007-06-12174
·[太极流派] 太极发展史 2007-06-12232
·[太极流派] 太极拳演进说2007-06-12155
·[太极流派] 太极拳演进说 2007-06-12123
·[太极流派] 太极拳的“力”与“劲” ——与马虹商榷 2007-06-12238
QQ:232555688 电话:83100206 手机:13510359683 电邮:weixie@sztjq.com 粤ICP备06086521号