<!-- #Include File="../Include/Channel_Movie.asp" -->
<!-- #Include File="../Include/Inc_emoney.asp" -->
<!-- #Include File="../Include/Inc_md5.asp" -->
<!-- #Include File="Common.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Dim PlayID,GetOption,genre_full,genre_img,genre_down,tit2,Web_Name
PlayID=trim(request.querystring("ID"))
UrlID=trim(request.querystring("UrlID"))
if not(isnumeric(PlayID)) or not(isnumeric(UrlID)) then 
	Call Cls.Out_Msg("ID传入错误","javascript:window.close()")
else
	PlayID=int(PlayID)
	UrlID=int(UrlID)
end if
Web_Name=""&Cls.Web_Name&""
'tit="影视欣赏"
tit="视频播放"
tit2="音频播放"

Call Channel_Load(0)

GetOption=Split(Cls.ChannelOption,"|||")
dim rob_true,rob_size,rob_debug
rob_true=int(mid(GetOption(0),3,1))
rob_size=0                          '大小
rob_debug=int(mid(GetOption(0),2,1)) 'Debug开关,可检验地址是否正确
sql="Select Top 1 * From "&Cls.ChannelTable&" Where hidden=1 And ChannelIDs="&ChannelIDs&" And id="&PlayID
set rs=Cls.exec(sql,1)
if rs.eof then
	rs.close
	Call Cls.Out_Msg("ID传入错误","javascript:window.close()")
end if
dim vtype,video_urlname,video_url
v_name=rs("name")
v_username=rs("username")
v_power=rs("power")
v_types=rs("types")
v_emoney=int(rs("emoney"))
vtype=int(rs("viewtype"))
v_tim=rs("tim")
v_genre=rs("genre")
v_url=rs("url")
rs.close
if rob_size<>0 then rob_size=1
if vtype=0 then Call Cls.Out_Msg("该影片不提供在线观看！","javascript:window.close();")
	'载入
	dim vid
	If Cls.Is_Null(vid)="" Then vid=Cls.Code_ID("id")
	v_id=vid
	UrlID=Cls.Code_ID("UrlID")
	SQL="Select Top 1 * From "&Cls.ChannelTable&" Where hidden=1 And ChannelIDs="&ChannelIDs&" And id="&v_id
	Set Rs=Cls.Exec(SQL,1)
	If Rs.Eof Then
		Rs.Close
		Call Channel_Redirect(Cls.Web_Dir&Cls.ChannelDir)
	End If
	v_power=rs("power")
	v_types=rs("types")
	v_emoney=rs("emoney")
	v_genre=rs("genre")
	v_url=rs("url")
	Rs.Close
	'---------------------------权限检测---------------------------
	Dim chkpower,chkemoney,ChkMsg
	chkpower=true
	chkemoney=true
	chkpower=chk_power(v_power,ChannelIDs)
	chkemoney=chk_emoney(v_emoney,"Movie",v_id,ChannelIDs)
	If login_mode<>"" Then
		if not chkemoney then 
			If int(login_emoney) >= int(v_emoney) then
				ChkMsg="<p align=center><br /><br />欣赏本"&Cls.ChannelTit&"需要扣除<b><font color=red>"&v_emoney&"</font></b>"&Cls.Web_Unit&",你目前尚有<b><font color=blue>"&login_emoney&"</font></b>"&Cls.Web_Unit&"可用<br /><br />你确实愿意支付<b><font color=red>"&v_emoney&"</font></b>"&Cls.Web_Unit&"来欣赏此"&Cls.ChannelTit&"吗？<br /><br /><a href='"&Cls.Web_Dir&Cls.ChannelDir&"/Player.asp?ID="&v_id&"&UrlID="&UrlID&"&pay=yes'>我愿意</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='"&Cls.Web_Dir&Cls.ChannelDir&"'>我不愿意</a></p>"
			else
				ChkMsg="<p align=center><br /><br />对不起，欣赏本"&Cls.ChannelTit&"需要扣除<b><font color=red>"&v_emoney&"</font></b>"&Cls.Web_Unit&",你目前只有<b><font color=blue>"&login_emoney&"</font></b>"&Cls.Web_Unit&"可用<br /><br />你的"&Cls.Web_Unit&"不足，无法欣赏本"&Cls.ChannelTit&"，请联系管理员进行充值！</p>"
			end if
		end if
		if not chkpower then ChkMsg="<p align=center><br /><br />对不起，你没有欣赏此"&Cls.ChannelTit&"的权限！</p>"
	else
		if not(chkpower and chkemoney) then ChkMsg="<br />&nbsp;&nbsp;&nbsp;&nbsp;你还没注册？或者没有登录？此"&Cls.ChannelTit&"要求至少是本站的注册用户才能下载！<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;如果你还没注册，请赶紧<a href='"&Cls.Web_Dir&"User/Register.asp'><font class=red>点此注册</font></a>吧！<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;如果你已经注册但还没登录，请赶紧<a href='"&Cls.Web_Dir&"User/Login.asp?old_url=back'><font class=red>点此登录</font></a>吧！<br /><br />"
	end if
	if not(chkpower and chkemoney) then 
		call DoWebHead(0,0)
		Response.Write ChkMsg
		Response.End
	end if
	'----------------------------获取地址----------------------------
	dim Strvideo_url
	Strvideo_url=v_url
	if InStr(Strvideo_url,"@@@")>0 then
		Strvideo_url=Split(Strvideo_url,"@@@")
		for i=0 to Ubound(Strvideo_url)
			if UrlID=i+1 then
				video_url=Split(Strvideo_url(i),"|")(1)
				video_urlname=Split(Strvideo_url(i),"|")(0)
				exit for
			end if
		next
	else
		video_url=Split(Strvideo_url,"|")(1)
		video_urlname=Split(Strvideo_url,"|")(0)
	end if
	if video_url="" or video_url="http://" then
		Call Cls.Out_Msg("找不到 "&video_urlname&" 有效的播放地址，请点确定返回，然后点击其它影片地址！","javascript:window.close()")
	end if
	video_url=Cls.ReHtml(video_url,1)
	video_url=Cls.code_html(video_url,1,0)
	'Call Cls.Out_Msg(""&video_url&"","javascript:window.close()")
	'Video_url=Cls.Server_Url(Channelid,vserver,Cls.code_html(f_url,1,0))
	select case v_genre
	case "wmp"
		genre_full="<a href='#' onclick='javascript:fullscreen_wmp();'>"
	case "real"
		genre_full="<a href='#' onclick='javascript:fullscreen_rm();'>"
        
	end select
	'----------------------------影片播放 开始----------------------------
	Dim R_Url,flvurl
	if instr(video_url,"://")=0 then video_url=Cls.web_realurl&video_url
	R_Url=video_url
	if rob_true=1 and v_genre<>"qt" and rob_debug=0 then
		session("play_video_url")=video_url
		session("play_video_v_genre")=v_genre
		video_url="GetUrl.asp"
	end if
        if rob_true=1 and v_genre="yk" and rob_debug=0 then
        flvurl=replace(R_Url,Cls.web_realurl,"")
        end if
        if rob_true=1 and v_genre="sai" and rob_debug=0 then
        flvurl=v_url
        end if
        
	'//*  影片播放器判断  *//
	if v_types="music" then call MovieView_play()
	if v_types<>"music" then call MovieView()

Sub MovieView()
%>
<%if v_genre<>"yk" and v_genre="real" or v_genre="wmp" or v_genre="flv" or v_genre="qt" or v_genre="sai" then%>
<html>
<head>
<title><%response.write Web_Name & tit%>--<%response.write v_name%>--<%response.write video_urlname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<style>
body,p,td,th { font-family:Verdana, Arial, Helvetica, sans-serif, 宋体; font-size:9pt; color:#000000 }
.menu {BORDER-RIGHT: buttonface 1px solid; BORDER-TOP: buttonface 1px solid; BORDER-LEFT: buttonface 1px solid; BORDER-BOTTOM: buttonface 1px solid}
body {BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; BORDER-LEFT: 0px solid; CURSOR: default; BORDER-BOTTOM: 0px solid; BACKGROUND-COLOR: menu; background-image:url(/Images/Video/playbg.jpg)}
input.txt { border: 1px solid #c0c0c0; padding: 1px; background-color: #ffffff; height: 20px; }
</style>


<SCRIPT language=JavaScript>
	var sImgAdv  = "";
	sImgAdv += "<div style='position:absolute;left:420px;top:23px;width:22px;height:23px'>";
	sImgAdv += "<%response.write genre_full%>";
        sImgAdv += "<img src='<%=cls.web_dir%>Images/Video/tt_fs_up.jpg' width='22' height='22' border='0' alt='打开全屏' onmouseout=this.src='<%=cls.web_dir%>Images/Video/tt_fs_up.jpg' onmouseover=this.src='<%=cls.web_dir%>Images/Video/tt_fs_ov.jpg'></a>";
	sImgAdv += "</div>";
	document.write(sImgAdv);
</SCRIPT> 

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false" ondragstart="return false" onselectstart ="return true" onselect="document.selection.empty()">
<center>
<table border=0 cellspacing=0 cellpadding=0 width='100%' height='100%' align=center>
<tr valign="top"><td width='100%'>
<table border=0 cellspacing=0 cellpadding=0>
<tr valign="top">
<td valign="bottom">
<table width="470" height="520" border="0" cellpadding="0" cellspacing="0" background="<%=cls.web_dir%>Images/Video/video_window.gif">
<tr><td height="47" colspan=3></td></tr>
<tr>
<td width=32></td>
<%call video_play()%>
<td width=29></td></tr>
<tr>
<td height=35 colspan=3 valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="68%"></td>
<td width="32%" valign="top"><a href="<%=cls.web_dir%>Down/List.asp?action=search&c_id=&sea_type=topic&sea_term=all&keyword=<%response.write genre_down%>" target="_blank"><img src="<%response.write genre_img%>" width="98" height="20" border="0"></a></td></tr>
</table>
</td></tr>
<tr align=center><td height=34 colspan=3></td></tr>
</table>
</td></tr>
</table>
</body></center>
</head></html>
<!--优酷播放器代码开始-->
<%elseif v_genre="yk" then%>
<html>
<head>
<title>优酷播放器--<%response.write v_name%>--<%response.write video_urlname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#000000">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
  <tr>
    <td width="100%" valign="top">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
      <tr>
        <td width="10" height="40">
        <img border="0" src="<%=cls.web_dir%>images/play_vid/jinplay_1.gif" width="10" height="40"></td>
        <td height="40">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
          <tr>
            <td background="<%=cls.web_dir%>images/play_vid/jinplay_2.gif">
            <%=v_name%></td>
            <td width="63">
            <img border="0" src="<%=cls.web_dir%>images/play_vid/jinplay_4.gif" width="63" height="40"></td>
            <td width="79">
            <a href="javascript:this.location.reload()"><img border="0" src="<%=cls.web_dir%>images/play_vid/jinplay_7.gif" width="79" height="40"></a></td>
          </tr>
        </table>
        </td>
        <td width="10" height="40">
        <img border="0" src="<%=cls.web_dir%>images/play_vid/jinplay_10.gif" width="10" height="40"></td>
      </tr>
      <tr>
        <td width="10" valign="top" background="<%=cls.web_dir%>images/play_vid/jinplay2.gif">　</td>
        <td bgcolor="#000000" align="center">
       <div class="movienews_1">
<SCRIPT language=JavaScript>
<!--
url ="<%=flvurl%>";
//-->
</SCRIPT>
<script type="text/javascript" language="javascript" src="youku.js"></script>
<script language="javascript" type="text/javascript">addFlash(url,'450','400');</script>
</div>
        </td>
        <td width="10" valign="top" background="<%=cls.web_dir%>images/play_vid/jinplay1.gif">　</td>
      </tr>
      <tr>
        <td width="10" height="11" valign="top">
        <img border="0" src="<%=cls.web_dir%>images/play_vid/jinplay_16.gif" width="10" height="11"></td>
        <td height="11" valign="top" background="<%=cls.web_dir%>images/play_vid/jinplay_18.gif">
        <img border="0" src="<%=cls.web_dir%>images/play_vid/jinplay_18.gif" width="10" height="11"></td>
        <td width="10" height="11" valign="top">
        <img border="0" src="<%=cls.web_dir%>images/play_vid/jinplay_20.gif" width="10" height="11"></td>
      </tr>
    </table>
    </td>
  </tr>
</table></center>
</head></html>
<!--优酷播放器代码结束-->
<%end if%>
<%
End Sub

call Cls.exec("update "&Cls.ChannelTable&" set counter=counter+1 where ID="&PlayID,0)
Call Channel_End(0)

Sub video_play()
	if rob_debug=1 then response.write Cls.js_put("alert("""&video_url&""");window.close();",1)
	dim show_vs
%>
<script language=javascript>
<!--
function fullscreen_wmp()
{
  var g_Browser = navigator.appName;
  var wmp_state="1";
  if (g_Browser == "Netscape")
  { wmp_state = document.AsaiMHCn_mPlayer.GetPlayState(); }
  else
  { wmp_state = document.AsaiMHCn_mPlayer.PlayState; }
  if(wmp_state!="3")
  { alert("影片还未开始播放或已结束，无法切换为全屏模式！\n\n请在影片播放时使用 “全屏播放” 功能。") }
  else
  {
    alert("还原窗口窗口请按键盘左上角[ESC]");
    document.AsaiMHCn_mPlayer.fullScreen=1;
  }
}
function fullscreen_rm()
{
  if(!document.AsaiMHrm_video.CanStop())
  { alert("影片还未开始播放或已结束，无法切换为全屏模式！\n\n请在影片播放时使用 “全屏播放” 功能。") }
  else
  { alert("还原窗口窗口请按键盘左上角[ESC]");
     document.AsaiMHrm_video.SetFullScreen();   
 }
}

function doc_on_rf() { return false; }
function doc_on_keydown() { if(event.ctrlKey ==true || event.keyCode ==93 || event.shiftKey ==true) { return false; } }
function doc_on_drag() { return false; }
document.oncontextmenu=doc_on_rf;
document.onkeydown=doc_on_keydown;
document.ondragstart=doc_on_drag;
-->
</script>
<%
select case v_genre
case "real"
	dim wid,hei
	wid=402
	hei=342
	genre_img=""&cls.web_dir&"Images/Video/video_window_1.gif"
	genre_down="real%20play"
%>
<td>
<object id=AsaiMHrm_video1 name=AsaiMHrm_video classid="clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa" width=<%response.write wid%> height=<%response.write hei%>>
<param name="src" value="GetUrl.asp?action=<%response.write AsaiMHmd5("action","short")%>">
<param name="console" value="AsaiMHrm_clip1">
<param name="controls" value="imagewindow">
<param name="autostart" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<embed type="audio/x-pn-realaudio-plugin" console="AsaiMHrm_clip11" controls="ImageWindow" width=<%response.write wid%> height=<%response.write hei%>></embed>
</object>
<br />
<object id=AsaiMHrm_video2 classid="clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa" width=<%response.write wid%> height=60>
<param name="src" value="GetUrl.asp?action=<%response.write AsaiMHmd5("action","short")%>">
<param name="console" value="AsaiMHrm_clip1">
<param name="controls" value="ControlPanel,StatusBar">
<param name="autostart" value="-1">
<param name="shuffle" value="0">
<param name="prefetch" value="0">
<param name="nolabels" value="0">
<param name="loop" value="0">
<param name="numloop" value="0">
<param name="center" value="0">
<param name="maintainaspect" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<embed type="audio/x-pn-realaudio-plugin" console="AsaiMHrm_clip11" controls="ControlPanel,StatusBar" width=<%response.write wid%> height=60></embed>
</object></td>
<%
case "qt"
	genre_img=""&cls.web_dir&"Images/Video/video_window_4.gif"
	genre_down="qt"
%>
<td>
	<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" WIDTH="402" HEIGHT="400" CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab#version=6,0,2,0">
		<PARAM NAME="controller" VALUE="TRUE">
		<PARAM NAME="type" VALUE="Video/quicktime">
		<PARAM NAME="autoplay" VALUE="true">
		<PARAM NAME="target" VALUE="myself">
		<PARAM NAME="src" VALUE="<%=video_url%>">
		<PARAM NAME="pluginspage" VALUE="http://www.apple.com/quicktime/download/indext.html">
		<EMBED WIDTH="402" HEIGHT="400" CONTROLLER="TRUE" TARGET="myself" SRC="<%=video_url%>" type="Video/quicktime" BGCOLOR="#000000" BORDER="0" PLUGINSPAGE="http://www.apple.com/quicktime/download/indext.html"></EMBED>
	</OBJECT></td>
<%
case "flv"
	genre_img=""&cls.web_dir&"Images/Video/video_window_3.gif"
	genre_down="Flash"
%>
<td>
<object type="application/x-shockwave-flash" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" width="402" height="400">
<param name="movie" value="<%=cls.web_dir%>Movie/FlvPlayer.swf?file=<%=R_Url%>&showfsbutton=true&autostart=true"/>
<param name="wmode" value="window"/><param name="quality" value="high"/><param name="allowfullscreen" value="true"/></object>
</td>
<!--视频网站FLASH播放器代码开始-->
<%case "sai"
	genre_img=""&cls.web_dir&"Images/Video/video_window_3.gif"
	genre_down="Flash"
%>
<td><embed src="<%=R_Url%>" width="402" height="400"></embed></td>
<!--视频网站FLASH播放器代码结束-->
<%
case else  
	dim wid_hei
	wid_hei=" width=402 height=400"
	genre_img=""&cls.web_dir&"Images/Video/video_window_2.gif"
	genre_down="media%20player"
%>
<td>
<object id="AsaiMHCn_mPlayer" name="AsaiMHCn_mPlayer"<%response.write wid_hei%> classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" type="application/x-oleobject" standby="正在载入 Windows Media Player 播放流 ...">
  <param name="URL" value="GetUrl.asp?action=<%response.write AsaiMHmd5("action","short")%>">
  <param name="Album" value="AsaiMH.net"/>
  <param name="rate" value="1">
  <param name="balance" value="0">
  <param name="currentPosition" value="0">
  <param name="defaultFrame" value="">
  <param name="playCount" value="100">
  <param name="autoStart" value="-1">
  <param name="currentMarker" value="0">
  <param name="invokeURLs" value="-1">
  <param name="baseURL" value="">
  <param name="volume" value="100">
  <param name="mute" value="0">
  <param name="uiMode" value="full">
  <param name="stretchToFit" value="0">
  <param name="windowlessVideo" value="0">
  <param name="enabled" value="-1">
  <param name="enableContextMenu" value="0">
  <param name="fullScreen" value="0">
  <param name="SAMIStyle" value="">
  <param name="SAMILang" value="">
  <param name="SAMIFilename" value="">
  <param name="captioningID" value="">
</object> </td><%
end select
End Sub

Sub MovieView_play()
%>
<html>
<head>
<title><%response.write Web_Name & tit2%>--<%response.write v_name%>--<%response.write video_urlname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<style>
body,p,td,th { font-family:Verdana, Arial, Helvetica, sans-serif, 宋体; font-size:9pt; color:#000000 }
.menu {BORDER-RIGHT: buttonface 1px solid; BORDER-TOP: buttonface 1px solid; BORDER-LEFT: buttonface 1px solid; BORDER-BOTTOM: buttonface 1px solid}
body {BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; BORDER-LEFT: 0px solid; CURSOR: default; BORDER-BOTTOM: 0px solid; BACKGROUND-COLOR: menu}
input.txt { border: 1px solid #c0c0c0; padding: 1px; background-color: #ffffff; height: 20px; }
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false" ondragstart="return false" onselectstart ="return true" onselect="document.selection.empty()">
<center>
<map name="map_top">
<area onClick="javascript:window.close();" href="javascript:self.close();" shape="rect" coords="363, 4, 390, 18">
</map>
<table cellspacing=0 cellpadding=0 border=0 width=400>
<tr><td><img height=39 src="<%=cls.web_dir%>Images/Music/play_top.gif" usemap="#map_top" width=400 border=0></td></tr>
<tr><td background="<%=cls.web_dir%>Images/Music/play_bg.gif">
  <table cellspacing=0 cellpadding=3 width="96%" align=center border=0>
  <tr>
  <td width="28%">
    <table cellspacing=0 cellpadding=3 width="90%" align=center border=0>
    <tr><td><a href='Index.Asp' target=_blank><img height=14 src="<%=cls.web_dir%>Images/Music/play_but_01.gif" width=73 border=0></a></td></tr>
    <tr><td><a href='Index.Asp' target=_blank><img height=14 src="<%=cls.web_dir%>Images/Music/play_but_02.gif" width=73 border=0></a></td></tr>
    <tr><td><a href='Index.Asp' target=_blank><img height=14 src="<%=cls.web_dir%>Images/Music/play_but_03.gif" width=73 border=0></a></td></tr>
    </table>
  </td>
  <td width="72%">
    <table cellspacing=0 cellpadding=0 width=273 border=0>
    <tr><td><img height=10 src="<%=cls.web_dir%>Images/Music/play_w_top.gif" width=273></td></tr>
    <tr><td background="<%=cls.web_dir%>Images/Music/play_w_bg.gif" width='100%' align=center>
      <table cellspacing=0 cellpadding=0 width="97%" align=center border=0>
      <tr><td height=32></td></tr>
      <tr><td height=22 align=center></td></tr>
      </table>
    </td></tr>
    <tr><td><img height=6 src="<%=cls.web_dir%>Images/Music/play_w_foot.gif" width=273></td></tr>
    </table>
  </td></tr>
  </table>
  <table cellspacing=0 cellpadding=0 width="100%" border=0>
  <tr>
  <td align=right><img height=71 src="<%=cls.web_dir%>Images/Music/play_p_lift.gif" width=5></td>
  <td width=375>
    <table cellspacing=0 cellpadding=0 width="100%" border=0>
    <tr><td background="<%=cls.web_dir%>Images/Music/play_p_top.gif" height=5><img height=5 src="<%=cls.web_dir%>Images/Music/play_p_top.gif" width=2></td></tr>
    <tr><td>
<%
    if v_genre="wmp" then call play_wmp()
    if v_genre="real" then call play_rm()
%>
</td></tr>
    <tr><td background="<%=cls.web_dir%>Images/Music/play_p_foot.gif" height=4><img height=4 src="<%=cls.web_dir%>Images/Music/play_p_foot.gif" width=1></td></tr>
    </table>
  </td>
  <td><img height=71 src="<%=cls.web_dir%>Images/Music/play_p_right.gif" width=5></td>
  </tr>
  </table>
</td></tr>
<tr><td><img height=14 src="<%=cls.web_dir%>Images/Music/play_foot.gif" width=400></td></tr>
</table>
</body></center>
</head></html>
<%
End Sub

Sub play_rm()
%>
<object id="AsaiMHCn_RealPlayer" classid="clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa" height=64 width="100%">
<param name="src" VALUE="<%=video_url%>">
<param name="autostart" value="-1">
<param name="shuffle" value="0">
<param name="prefetch" value="0">
<param name="nolabels" value="0">
<param name="controls" value="ControlPanel,StatusBar">
<param name="loop" value="0">
<param name="numloop" value="0">
<param name="center" value="0">
<param name="maintainaspect" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<embed type="audio/x-pn-realaudio-plugin" controls="ControlPanel,StatusBar" height=64 width="100%"></embed>
</object>
<%
End Sub

Sub play_wmp()
%>
<object id="AsaiMHCn_mPlayer" height=64 width="100%" standby="正在载入 Windows Media Player 播放流 ..." type=application/x-oleobject classid=clsid:6bf52a52-394a-11d3-b153-00c04f79faa6>
<param name="url" VALUE="<%=video_url%>">
<param name="album" value="AsaiMH.net">
<param name="rate" value="1">
<param name="balance" value="0">
<param name="currentposition" value="0">
<param name="defaultframe" value="">
<param name="playcount" value="0">
<param name="autostart" value="-1">
<param name="currentmarker" value="0">
<param name="invokeurls" value="-1">
<param name=loop value=true>
<param name="baseurl" value="">
<param name="volume" value="100">
<param name="mute" value="0">
<param name="uimode" value="full">
<param name="stretchtofit" value="0">
<param name="windowlessvideo" value="0">
<param name="enabled" value="-1">
<param name="enablecontextmenu" value="0">
<param name="fullscreen" value="0">
<param name="samistyle" value="">
<param name="samilang" value="">
<param name="samifilename" value="">
<param name="captioningid" value="">
<param name="bufferingtime" value="5">
</object>
<%
End Sub
%>
