您现在的位置是：网站首页> 编程资料编程资料
网页视频播放器程序代码（通用代码）_网页播放器_
2023-05-27
276人已围观
简介 网页视频播放器程序代码（通用代码）_网页播放器_
'***********************************************
'函数名：SelPlay
'作 用：在网页中播放视频
'参 数：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 ""
Case "mov","rm","ra","ram"
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write "
"
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
End Select
End If
End Sub
调用程序代码
Call SelPlay(DvUrl,280,220)
'函数名：SelPlay
'作 用：在网页中播放视频
'参 数：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 "
Case "mov","rm","ra","ram"
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write ""
Response.Write "
"
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write ""
End Select
End If
End Sub
调用程序代码
Call SelPlay(DvUrl,280,220)
您可能感兴趣的文章:
下一篇：通用网页播放器_网页播放器_
