<% dim Hits dim vote dim VoteNum dim documentid Dim con Set con = Server.CreateObject("ADODB.Connection") con.Open Application("ConnectionString") Call con.Execute("update documents set hits=isnull(hits,0)+1 where documentid=2990") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=2990") If Not (rs.EOF And rs.BOF) Then Hits = rs(0) Vote = rs(1) VoteNum = rs(2) Else Hits = 1 Vote = 5 VoteNum = 1 End If rs.Close Set rs = Nothing con.Close Set con = Nothing %> Fireworks MX教程（二十九）运动模糊做电视


Fireworks MX教程（二十九）运动模糊做电视

1.新建立一个文件（500*350）背景白色在画一个矩形充填灰色。大小你也可以自己定（我做的是长方形450*251）选择渐变→线性渐变。设置如图1（也可以自己设置本人一直对渐变掌握不好正在改进中@_@)

2.（主要设置部分）设置完渐变以后在属性板的效果选项里选新增杂点。在弹出来的属性框里的数量选15 然后继续在效果选项属性板选运动模糊，在弹出的属性面板里选角度180.距离30。 然后继续在效果选项框选斜角和浮雕→内斜角属性是（形状：平坦宽度：4柔化：3角度135对比度100%按钮预设：凸起） 得到的效果如图2

3.设置完以后现在主要是在优化一下质感。继续选效果→锐化→锐化 锐化后质感就有了，但是还不够。在继续选效果→调整颜色→曲线。小提示：这个曲线面板很不错的大家以后没事就多玩玩这个面板会有你意想不到的效果出现（先废话两句，嘿嘿~~！先抽根烟。。~_~）曲线的属性和得到的效果如图3

4.好了设置完以后现在我们就给他加上一个屏幕。用矩形工具画一个350*173的矩形。相关设置：充填灰色。描边颜色：黑色。。在选效果→斜角和浮雕→凹入浮雕 相关属性为宽度：2对比度：75%柔化3角度150得到效果如图4

 

下一页

 

 

**版权所有闪客启航** 玉树临风整理2004年7月