<% 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(三十四)EYE400滤镜的实际应用


Fireworks(三十四)EYE400滤镜的实际应用

安装了外部滤镜以后我简单给大家介绍一下使用方法,我们来做个简单的火焰字的效果。

第一步:请打开FW2004,新建一个文件,画步大小设置为600X300。颜色为黑色。

第二步,选中文本工具,字号100,字间距50,字色红色,写闪客启航四个字。点窗口面版里的对齐工具,让字水平中齐,。垂直中齐。

第三步,选菜单拦里的滤镜——汉EYE400——火焰——出来对话框自动生成火焰字。可以根据需要调整左边的相关参数。然后点确定。

第四步,为了让字有立体感我们在给他的滤镜。选菜单拦里的滤镜——汉EYE400—透视影子。调整左边的参数,然后点确定,请看图解。

制作完毕,点文件点导出预览, 设置好导出前的参数,点导出。。。请看图解

最终输出后的效果如图:

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