<% 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=2693") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=2693") 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.打开一个有划痕的图像。

2.选择“橡皮图章”工具,单击近似区域将其指定为源。

3.把蓝色圆圈形状放在需要修改的部分,单击或者拖动。这部分图像就会变得和源图像一样。

4.还需要把划痕其它部分修改过来。按住 Alt 键,单击另一个象素区域,将其指定为源, 把蓝色圆圈形状放在需要修改的部分,单击。重复这个过程,最后修复的图片如下图。


 

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