<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/dv_loadcache.asp"-->
<%
If Not IsObject(Conn) Then ConnectionDatabase
dim sql,rs,founderr,i,errmsg
founderr=false
Dvbbs.LoadTemplates("")

'---------------------
' write by 绿水青山
' 本插件经由 cyp2 修改适应DVBBS7.0.0
'---------------------
	dvbbs.stats="正在播放..."&dvbbs.htmlencode(Request.QueryString("medianame"))
	dvbbs.nav()
	Dvbbs.Head_var 2,0,"",""

	if not dvbbs.founduser then
		response.redirect "login.asp"
	end if
	dim lurl
	lurl=Request.QueryString("url")

	select case Lcase(right(lurl,4))
		case ".swf"
%>		
			<p align=center><img src= http://un.baidu.com/images/st.gif?tn=chinanet width=0 height=0>
			<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="534" height="424">
  				<param name="movie" value="<%=lurl%>">
  				<param name="quality" value="high">
  				<embed src="<%=lurl%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="534" height="424"></embed>
  			</object>
<%	
		CASE ".wmv",".mpg",".avi"	
%>
			<p align=center>
			<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=500 height=450 >
				<param name=ShowStatusBar value=-1>
				<param name=Filename value=<%=replace(lurl,chr(32),"%20",1)%>>
				<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=<%=replace(lurl,chr(32),"%20",1)%>  width=500 height=100></embed>
			</object>
<%	
		CASE ".mp3",".mid"	
%>
			<p align=center>
			<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=500 height=70 >
				<param name=ShowStatusBar value=-1>
				<param name=Filename value=<%=replace(lurl,chr(32),"%20",1)%>>
				<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=<%=replace(lurl,chr(32),"%20",1)%>  width=500 height=70></embed>
			</object>
<%
		case else

			select case Lcase(right(lurl,3))
			  case ".rm","ram"
%>			
				<p align=center>
				<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=500 height=350>
					<PARAM NAME=SRC VALUE=<%=lurl%>><PARAM NAME=CONSOLE VALUE=Clip1>
					<PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true>
				</OBJECT>
				<br>
				<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500>
					<PARAM NAME=SRC VALUE=<%=lurl%>><PARAM NAME=AUTOSTART VALUE=-1>
					<PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1>
				</OBJECT>
<%	
			 case ".ra"
%>			
				<p align=center>
				<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500>
					<PARAM NAME=SRC VALUE=<%=lurl%>><PARAM NAME=AUTOSTART VALUE=-1>
					<PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1>
				</OBJECT>
<%			 	
			 case else 
%>
				<p align=center>
				<embed name=player src=<%=lurl%> type=audio/x-pn-realaudio-plugin width=500 height=150 border=0 autostart=1>  
<%  
			end select   
	end select  
	call dvbbs.footer()  
%>