看视频直接进：【4K50P佳能EOSR6【西安白鹿仓】现场歌友会演唱会卡拉OK，老艺术家晚上打架子鼓，白天唱歌，多才多艺！】 https://www.bilibili.com/video/BV1Q14y1x7mY/?share_source=copy_web&vd_source=e25c2026e66f7e4ae63c46abfa6c2782
这是传一些网址的图片 不是上传的
<embed src=" https://v.douyin.com/rhRHAnG " width="600" height="337.5" autostart="false" loop="false">
<embed src="https://v.douyin.com/rhRHAnG " width="600" height="337.5" autostart="false" loop="false">
Sub SelPlay(http://www.bothw.com/qwer.mp4,600,800)
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
