%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
%>
| 作者: 管理员 来源:网络收集 时间:06月12日 20:28 提交:sztjq 访问: |
陈氏太极单剑
1、 太极剑初势 26、 燕子啄泥
2、 朝阳剑 27、 白蛇吐信
3、 仙人指路 28、 斜飞式
4、 青龙出水 29、 鹰熊斗智
5、 护膝剑 30、 燕子啄泥
6、 闭门式 31、 摘星换斗
7、 青龙出水 32、 海底捞月
8、 翻身下劈剑 33、 仙人指路
9、 青龙转身 34、 凤凰点头
10、 斜飞式 35、 燕子啄泥 11、 展翅点头 36、 白蛇吐信
12、 拨草寻蛇 37、 斜飞式
13、 金鸡独立 38、 左托千斤
14、 仙人指路 39、 右托千斤
15、 盖拦式 40、 燕子啄泥
16、 古树盘根 41、 白猿献果
17、 饿虎扑食 42、 落花式
18、 青龙摆尾 43、 上下斜刺
19、 倒卷肱 44、 斜飞式
20、 野马跳涧 45、 哪叱探海
21、 白蛇吐信 46、 怪蟒翻身
22、 乌龙摆尾 47、 韦驼献杵
23、 钟魁仗剑 48、 磨盘剑
24、 罗汉降龙 49、 太极剑还原
25、 黑熊翻背 |
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |