<% 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制作凝胶字效果

本例主要是运用了Fireworks中eye candy4000滤镜的倾斜效果。简单的步骤即可快速做出漂亮可爱的效果。

   1、在Fireworks中新建大小为400*80像素的白色底画布。

   2、输入文字,www.flasher123.com字体为华文行楷,大小为50,颜色为#63A718,设置定置消除锯齿。

   3、选中文字,选择eye candy4000滤镜中的内斜角效果,设置如下:



4、执行投影设置如下:颜色为#B2D986。

5、再次执行投影设置如下:颜色为#000000。

6、最后执行一下色阶使颜色加深些。看看如图的效果。。。

玉树临风整理 2004年七月