<% 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 麦冲效果


Fireworks 麦冲效果

第一步：建立一个工作区，高400宽400，背景色黑色。选种钢笔工具，关闭笔触在场景里任意勾画一个不规则的形状。然后对其进行填充，选线性—波浪 左色块#FFFFFF,中间#00FFFF,右色块#0099FF，请参考图片。。。

第二步：对其进行效果添加，选中你做好的形状，点菜单栏滤镜—EYE4000—摇动变形。请参考图片设置相应参数。。。点确定。

第三步 ：还是选滤镜—EYE4000—光患环效果，请参考图片对其参数进行设置。。然后点确定。

第四步：执行滤镜—模糊—缩放模糊，请参考下图设置。点确定。。

第五步：在此执行滤镜—调整颜色—色介。请参考图片设置其属性，点确定。

最终效果

你可以存盘了。谢谢

玉树临风整理 2004年7月