<% 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=2965") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=2965") 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教程(二十六)创建弹出菜单

当web网站非常复杂的时候,可以利用Fireworks MX创建功能强大的弹出菜单,这样就可以快速访问需要的页面。

按如下步骤添加弹出式菜单:

1.选中某个切片或者热点,打开行为面板,点击“+”添加“设置弹出菜单”。

2. 单击“内容”选项卡,双击每个单元格并输入或选择适当的信息。

3.如果需要创建弹出子菜单,选中这个要作为子菜单的菜单项,单击“缩进菜单”。

4.如果要在菜单列表中向上或向下移动菜单项,可以选中它向上或向下拖动。
5. 设计弹出菜单的外观。可以选择“水平菜单”和“垂直菜单”两种布局方式。

6.定位弹出菜单和子菜单。单击各图标,可以设置菜单位置和子菜单位置。

7.单击“完成”按钮,弹出菜单就做好了。如果以后要编辑弹出菜单,只要双击“行为面板”中相应的“显示弹出菜单”项目。

 

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