内容发布更新时间 : 2024/11/17 18:59:03星期一 下面是文章的全部内容请认真阅读。

*********************************************** '函数名：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技术专栏