午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线

    網(wǎng)頁視頻播放器程序代碼(通用代碼)
    來源:易賢網(wǎng) 閱讀:3024 次 日期:2014-08-11 15:13:12
    溫馨提示:易賢網(wǎng)小編為您整理了“網(wǎng)頁視頻播放器程序代碼(通用代碼)”,方便廣大網(wǎng)友查閱!

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

    '函數(shù)名:SelPlay

    '作  用:在網(wǎng)頁中播放視頻

    '參  數(shù):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 "<EMBED id=MediaPlayer src="&strUrl&" width="&strWidth&" height="&strHeight&" loop=""false"" autostart=""true""></EMBED>"

      Case "mov","rm","ra","ram"

       Response.Write "<OBJECT height="&strHeight&" width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"

       Response.Write "<PARAM NAME=""_ExtentX"" VALUE=""12700"">"

       Response.Write "<PARAM NAME=""_ExtentY"" VALUE=""9525"">"

       Response.Write "<PARAM NAME=""AUTOSTART"" VALUE=""-1"">"

       Response.Write "<PARAM NAME=""SHUFFLE"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""PREFETCH"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""NOLABELS"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""SRC"" VALUE="""&strUrl&""">"

       Response.Write "<PARAM NAME=""CONTROLS"" VALUE=""ImageWindow"">"

       Response.Write "<PARAM NAME=""CONSOLE"" VALUE=""Clip"">"

       Response.Write "<PARAM NAME=""LOOP"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""NUMLOOP"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""CENTER"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""BACKGROUNDCOLOR"" VALUE=""#000000"">"

       Response.Write "</OBJECT>"

       Response.Write "<BR>"

       Response.Write "<OBJECT height=32 width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"

       Response.Write "<PARAM NAME=""_ExtentX"" VALUE=""12700"">"

       Response.Write "<PARAM NAME=""_ExtentY"" VALUE=""847"">"

       Response.Write "<PARAM NAME=""AUTOSTART"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""SHUFFLE"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""PREFETCH"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""NOLABELS"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""CONTROLS"" VALUE=""ControlPanel,StatusBar"">"

       Response.Write "<PARAM NAME=""CONSOLE"" VALUE=""Clip"">"

       Response.Write "<PARAM NAME=""LOOP"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""NUMLOOP"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""CENTER"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"

       Response.Write "<PARAM NAME=""BACKGROUNDCOLOR"" VALUE=""#000000"">"

       Response.Write "</OBJECT>"

     End Select

    End If

    End Sub 

     調(diào)用程序代碼

    Call SelPlay(DvUrl,280,220)

    更多信息請查看IT技術(shù)專欄

    更多信息請查看網(wǎng)絡(luò)編程
    易賢網(wǎng)手機網(wǎng)站地址:網(wǎng)頁視頻播放器程序代碼(通用代碼)
    由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

    2025國考·省考課程試聽報名

    • 報班類型
    • 姓名
    • 手機號
    • 驗證碼
    關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點 | 投訴建議
    工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
    云南網(wǎng)警備案專用圖標(biāo)
    聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
    咨詢QQ:1093837350(9:00—18:00)版權(quán)所有:易賢網(wǎng)
    云南網(wǎng)警報警專用圖標(biāo)