<%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-18329
·[太极流派] 太极拳源流解谜2007-10-06221
·[太极流派] 太极源流百年争论尘埃落定 ---原福全 2007-06-12401
·[太极流派] 太极拳创始说2007-06-12319
·[太极流派] 太极发展史 2007-06-12365
·[太极流派] 太极拳演进说2007-06-12249
·[太极流派] 太极拳演进说 2007-06-12186
·[太极流派] 太极拳的“力”与“劲” ——与马虹商榷 2007-06-12448
页次:1/0 每页22 文章数8

9 7 8 :

QQ:232555688 电话:83100206 手机:13510359683 电邮:weixie@sztjq.com 粤ICP备06086521号