<% 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 文字水印效果

第一步:打开今天的图片素材(下载素材)可以关闭位图的眼睛,选中文本工具,字色白色,字号50写闪客两个字,将字放在工作区的右下角,然后打开位图的眼睛同时选中层面版上的文本和位图,点编辑——克隆。如图:


第二步:选择其中的文字和图片各一层,执行修改 ->蒙版->组合为蒙版,如图是选中文字和图片各一个的图层的效果:

第三步:选中文本层,将其拖到蒙板层的底下,如图:

第四步:选中蒙板层,然后在层面板的最右上角点开三道黑杠,点编辑蒙板,属性面版选路径轮廓,然后点效果加号,选投影和光环-设置采用默认。这样水印的效果就有了。看看效果:

然后同时选中三个层,选修改——组合,然后导出予览。存储为JPG或GIF格式。。
玉树临风整理 2004年七月