用asp打开光驱！

SCRIPT language=VBScript>
<!–

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
End If

–>
</SCRIPT>
就这么一小断很管用的^_^