缃戦〉瑙嗛�戞挱鏀惧櫒绋嬪簭浠ｇ�?閫氱敤浠ｇ爜) - 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

 

 

 

 

*********************************************** 

 

 

 

'

鍑芥暟鍚嶏細

SelPlay 

 

 

 

'

浣?/p>

  

鐢�锛氬湪缃戦〉涓�鎾�鏀捐�嗛��

 

 

 

 

'

鍙?/p>

  

鏁帮細

strUrl 

锛嶏紞锛嶏紞

 

瑙嗛�戝湴鍧�

 

 

 

 

           strWidth 

锛嶏紞锛嶆樉绀鸿�嗛�戝��

 

 

 

 

           strHeight 

锛嶏紞锛嶆樉绀鸿�嗛�戦珮

 

 

 

 

'*********************************************** 

 

 

 

Sub SelPlay(strUrl,strWidth,StrHeight) 

 

 

 

Dim Exts,isExt 

 

 

 

If strUrl <> "" Then 

 

 

 

   isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1)) 

 

 

 

Else 

 

 

 

   isExt = "" 

 

 

 

End If 

 

 

 

Exts = "avi,wmv,asf,mov,rm,ra,ram" 

 

 

 

If Instr(Exts,isExt)=0 Then 

 

 

 

 Response.write "

闈炴硶瑙嗛�戞枃浠�

" 

 

 

 

Else 

 

 

 

 Select Case isExt 

 

 

 

  Case "avi","wmv","asf","mov" 

 

 

 

   Response.write "<EMBED id=MediaPlayer src="&a

mp;strUrl&" width="&strWidth&" height="&strHeight&"

 loop=""false"" autostart=""true""></EMBED>" 

 

 

 

  Case "mov","rm","ra","ram" 

 

 

 

   Response.Write "<OBJECT height="&strHeight&

" width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020

AFBBCCFA>" 

 

 

 

   Response.Write "<PARAM NAME=""_ExtentX"" V

ALUE=""12700"">" 

 

 

 

   Response.Write "<PARAM NAME=""_ExtentY"" V

ALUE=""9525"">" 

 

 

 

   Response.Write "<PARAM NAME=""AUTOSTART""&nb

sp;V

ALUE=""-1"">"