<%
Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectionif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).EjectNext End If
%>
这段代码是ASP利用了WINDOWS MEID PLAYER 7的组件来实现了弹出光驱的功能!