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