<%
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=2662")
Dim rs
Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=2662")
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教程（十三）制作虚线背景图片
“缩放”工具，把画布放大800％。
矩形工具，在最中间处画一个点。在优化面板中，选择GIF格式，Alpha透明，导出这个文件，在dreamweaver中，把这个图像作为单元格的背景，就可以做出虚线效果。
