这个做一个多图非上传的欣赏的页面

发布时间:2022-11-14 12:12:44 作者:admin2 阅读量:1167

看视频直接进:【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


附件1:DLAC3988.MP4

我要评论 登录后才能发布评论

柯达教育 版权所有【微信联系:ekodak】【QQ联系:89169802】   我要留言  网站地图
陕A262626666
Catfish(鲶鱼) CMS V 6.7.3