网页视频播放器程序代码(通用代码)

*********************************************** '函数名:SelPlay

'作  用:在网页中播放视频

'参  数:strUrl ---- 视频地址

           strWidth ---显示视频宽

           strHeight ---显示视频高

'*********************************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt

If strUrl <> \

   isExt = LCase(Mid(strUrl,InStrRev(strUrl, \ Else

   isExt = \ End If

Exts = \ If Instr(Exts,isExt)=0 Then

 Response.write \非法视频文件\ Else

 Select Case isExt

  Case \

   Response.write \mp;strUrl&\ loop=\   Case \

   Response.Write \\AFBBCCFA>\

   Response.Write \ALUE=\

   Response.Write \ALUE=\

   Response.Write \sp;VALUE=\

   Response.Write \ALUE=\

   Response.Write \;VALUE=\

   Response.Write \p;VALUE=\

   Response.Write \ALUE=\

   Response.Write \p;VALUE=\

   Response.Write \VALUE=\

   Response.Write \ALUE=\

   Response.Write \;VALUE=\

   Response.Write \ALUE=\

   Response.Write \\ALUE=\

   Response.Write \LOR\ALUE=\

   Response.Write \    Response.Write \

   Response.Write \;strWidth&\

   Response.Write \ALUE=\

   Response.Write \ALUE=\

   Response.Write \sp;VALUE=\

   Response.Write \ALUE=\

   Response.Write \;VALUE=\

   Response.Write \p;VALUE=\

   Response.Write \p;VALUE=\

   Response.Write \VALUE=\

   Response.Write \ALUE=\

   Response.Write \;VALUE=\

   Response.Write \ALUE=\

   Response.Write \\ALUE=\

   Response.Write \LOR\ALUE=\

   Response.Write \  End Select End If

End Sub   调用程序代码

Call SelPlay(DvUrl,280,220)

更多信息请查看IT技术专栏

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4