<% 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=2495") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=2495") 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. 新建一个宽为150象素,高为100像素的文件,背景色任意。
2. 选中工具面板中的矩形工具,在编辑区画一个矩形。

3. 选择工具面板矢量部分的“刀子工具”,并且按住Shift键,把矩形右上角的边框进行切割。

4.切割后的图片:

5.点选“工具”面板中的“部分选定”工具。

6.选择顶点。

7.按键盘上的DEL键删除。

8.继续把左角变成缺角。选择“工具”面板矢量部分的“钢笔”工具。

9.在左下角的两个边框等距离各单击一下。

10.使用“部分”选定工具选择左下角的顶点。

11.按键盘上的DEL,删除左下角顶点后如图。

 

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