asp 网页视频播放器程序代码(通用代码),支持avi,wmv,asf,mov,rm,ra,ram等
思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用.. 现发布源代码如下:实现代码如下:Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt
思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用.. 现发布源代码如下:实现代码如下:Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt
'*********************************************** '函数名:SelPlay '作用:在网页中播放视频 '参数:strUrl ---- 视频地址strWidth ---显示视频宽strHeight ---显示视频高 '******************
'****************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" ThenisExt = LCase(Mid(strUrl,InStrRev(str