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

'函数名：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 ""

End Select

End If

End Sub

调用程序代码

Call SelPlay(DvUrl,280,220)

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