<%
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=2706")
Dim rs
Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=2706")
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教程（二十二）使用蒙版减淡图片局部颜色
“选取框”工具，在画布上选择一定大小的区域。
“油漆桶”工具，选择一种灰色。
