问题补充说明:如何让网页中的视频循环播放?代码如下: <% Sub SelPlay(strUrl,strWidth,StrHeight) '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 ***.write "非法视频文件" Else Select Case isExt Case "avi","wmv","asf","mov" ***.write " " Case "mov","rm","ra","ram" ***.write " " ***.write "
" ***.write " " End Select End If End Sub %> <% Call SelPlay("video/3D_1.wmv",280,220) %>
可以把loop=""false""
替换成loop=""true""
标签:网页,播放,视频