判断浏览器是否安装Flash插件及版本

<SCRIPT   LANGUAGE="JavaScript">    
 
<SCRIPT LANGUAGE=VBScript> 
Private i, x, MM_FlashControlVersion  
On Error Resume Next  
x = null 
MM_FlashControlVersion = 0 
var Flashmode  
FlashMode = False 
For i = 5 To 1 Step -1  
     Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)  
      
     MM_FlashControlInstalled = IsObject(x)  
      
     If MM_FlashControlInstalled Then  
         MM_FlashControlVersion = CStr(i)  
         Exit For  
     End If  
Next  
FlashMode = (MM_FlashControlVersion >= 5)  
If FlashMode = True Then  
document.write "有FLASH的HTML"  
Else  
document.write "无FLASH的HTML"  
End If  
SCRIPT> 
<script type="text/javascript" language="JavaScript">