z_dgplay.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/Char.asp" -->
<%
'---------------------
' write by fisher
' 本插件经由 fisher 修改适应岩岩电子同学录，并加入点歌收费
'---------------------
        dim abgcolor
	stats="正在播放..."&htmlencode(Request.QueryString("medianame"))

	if not founduser then
		response.redirect "login.asp"
	end if
	
	if founderr then
	   call head()
	   call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	   call txl_error()
        else
	   call head()
	   call head_var("点歌祝福","Z_dglistall.asp")
	   abgcolor="tablebody2"
        end if 
	
	
	dim lurl
	lurl=Request.QueryString("url")      
	select case Lcase(right(lurl,4))
		case ".swf"
%>		
			<p align=center>
			<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   
%>
<br>
<br>
<br>
<br>
【<a href="javascript:window.close();">关闭</a>】
<br>
<br>
<br>
<br>
<%
call foot()
%>