打印

Media Player显示问题

xyflash [楼主]

银牌会员

帖子: 894
体力: 1886
威望: 0
离线: 3 天

1^# 大中小发表于 2008-7-5 10:44

Media Player

提示：您可以先修改部分代码再运行

根据媒体格式判断是否显示视屏区
比如说是mp3就只显示播放控制条如果有视频就显示视屏画面区...请教如何实现？

TOP

做西部数码代理.Cn1元国际45元

xyflash [楼主]

银牌会员

帖子: 894
体力: 1886
威望: 0
离线: 3 天

2^# 大中小发表于 2008-7-7 06:41

TOP

【美橙超级G空间】688元绑定10个子目录 | 500M免费网盘空间，文件永久保留，专业服务高端设计人员

livecoffee

初级会员

帖子: 58
体力: 117
威望: 0
当前: 湖北武汉
离线: 43 天

专长 网页设计,PHP,ASP

3^# 大中小发表于 2008-7-7 08:20

<%
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,rm,mpg,rmvb,dat"
If Strurl=empty Then 
Response.write "播放地址为空，请从播放列表选择你要播放的文件."
End If 
If Instr(Exts,isExt)=0 Then 
Response.write "此播放器支持的视频文件格式有:avi,wmv,rm,mpg,rmvb,dat请核对." 
Else
Select Case isExt
Case "avi","wmv","mpg","dat"
Response.Write"<object id=player width="&strWidth&" height="&strHeight&" classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6>"
Response.Write"<param name=autostart value=-1>"
Response.Write"<param name=balance value=0>"
Response.Write"<param name=enabled value=-1>"
Response.Write"<param name=enablecontextmenu value=-1>"
Response.Write"<param name=url value="&strUrl&">"
Response.Write"<param name=playCount value=1>"
Response.Write"<param name=rate value=1>"
Response.Write"<param name=currentposition value=0>"
Response.Write"<param name=currentmarker value=0>"
Response.Write"<param name=invokeurls value=0>"
Response.Write"<param name=stretchToFit value=0>"
Response.Write"<param name=volume value=100>"
Response.Write"<param name=mute value=0>"
Response.Write"<param name=uimode value=full>"
Response.Write"<param name=windowlessvideo value=0>"
Response.Write"<param name=fullScreen value=0>"
Response.Write"<param name=enableerrordialogs value=-1>"
Response.Write"</object>"
End Select
Select Case isExt
Case "rm","rmvb"
Response.Write"<object name=player width="&strWidth&" height="&strHeight-50&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"
Response.Write"<param name=_ExtentX value=10001>"
Response.Write"<param name=_ExtentY value=6879>"
Response.Write"<param name=autostart value=-1>"
Response.Write"<param name=shuffle value=0>"
Response.Write"<param name=src value="&strUrl&">"
Response.Write"<param name=prefetch value=0>"
Response.Write"<param name=nolabels value=-1>"
Response.Write"<param name=controls value=Imagewindow>"
Response.Write"<param name=console value=clip1>"
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"<object id=rp2 width="&strWidth&" height=50 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"
Response.Write"<param name=_ExtentX value=10001>"
Response.Write"<param name=_ExtentY value=1270>"
Response.Write"<param name=autostart value=-1>"
Response.Write"<param name=shuffle value=0>"
Response.Write"<param name=src value="&strUrl&">"
Response.Write"<param name=prefetch value=0>"
Response.Write"<param name=nolabels value=-1>"
Response.Write"<param name=controls value=ControlPanel,StatusBar>"
Response.Write"<param name=console value=clip1>"
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
%>

提示：您可以先修改部分代码再运行

LZ自己根据需要修改一下就可以了

[ 本帖最后由 livecoffee 于 2008-7-7 08:21 编辑 ]