<% 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=463") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=463") 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 %> Authorware和Quicktime结合二三事(上)


 
 

Authorware和Quicktime结合二三事

Authorware 的有所为与有所不为

——小议Authorware的QuickTime播放功能

   Authorware是多媒体程序员十分熟悉的编程工具,正是因为大家对它的功能非常了解,所以常常见到有文章谈及Authorware“这效果做不到,那功能实现困难”,然后介绍了许多解决方法,使我等受益匪浅。其实任何一个工具软件都有其功能侧重点,不可能既全部包罗,又全面强大,Authorware的功能设计也在某种意义上反映了这种有所为与有所不为的原则。只要我们认真用好Authorware提供的功能,许多看似“不可为”的问题,其实都是“可为”的。这里仅以Authorware的QuickTime播放功能来说明这一点。只是当您上机尝试这一功能时,请在系统中安装QuickTime 4并将Authorware 5升级至Authorware 5.1(可从www.macromedia.com下载免费升级程序)。

一、       同时播放多个WAV文件

很多人都在想,为什么Authorware的低版本不支持直接同时播放多个WAV文件,而它的高版本在这方面也没有明显的变化。其实Authorware的QuickTime播放功能可以很好地实现这一功能。

操作方法:

l         在流程线上需播放第一个WAV文件的地方点击一下,使粘贴标志出现于此。

 

点击菜单Insert>Media>QuickTime,此时在流程线上已插入了一个播放QuickTime的精灵图标(Sprite Icon),同时弹出相应Xtra的属性对话框,见图1所示。按Browse钮选择第一个要播放的WAV文件,按Convert钮回到属性对话框,再按OK钮关闭对话框。

l        

用同样的方法在流程线上插入第二个播放QuickTime的精灵图标,在其中选择第二个要播放的WAV文件并作相应设置。流程图见图2所示。若要修改设置,可双击精灵图标打开其属性对话框,见图3所示,然后点击Options钮,进入Xtra的属性对话框,修改设置后关闭对话框即可。

l         Ctrl+R键运行程序,可听见两个WAV文件被同时播放

持续中....