 
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file=chkuser.asp-->
<!--#include file=inc/grade.asp-->
<!--#include file=inc/char.asp-->
<script language="JavaScript">
<!--
function sel_epi(obj) 
{   
	i = obj.epi.selectedIndex;   
	if (obj.epi.options[i].value == "")     
	return ;   
	location = obj.epi.options[i].value; 
} 
//-->
</script>
<link rel="stylesheet" type="text/css" href="forum.css">
<%if membername="" then
   errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
   call error()
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ForumName%>--音乐点唱</title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<BODY  marginheight=0  marginwidth=0 topmargin="3" leftmargin="3" bgcolor="#FDE89F">
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<!--webbot bot="HTMLMarkup" startspan --><SCRIPT language=JavaScript>
//ServerName
NetShowServer = "" ;
//Path
//var mPath = NetShowServer + "/";
var mPath = NetShowServer + "";
var bgImage = "/";
var iName = bgImage;

function LoadVideo(c1,c2) {
 if (c1=="") return;
 video_filename = c1;

 MusicPlayer.Cancel()
 timer=window.setTimeout("video_play()",2000)
}
function video_play(fn) {
 var mName = mPath + video_filename;
 MusicPlayer.Open(mName)
}
</SCRIPT>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="1" height="1" bordercolor="#800000" bgcolor="#800000">
    <tr>
      <td height="30" bgcolor="#FFCC66" align="center" background="pic/mhg.jpg">
<B><FONT COLOR="#000080"><%=ForumName%>--音乐点唱机</FONT></B>
</td>
    </tr>
    <tr>
      <td height="1">
<object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" height="70" id="MusicPlayer" width="100%">
     <param name="Filename" value>
     <param name="AudioStream" value="-1">
     <param name="AutoSize" value="0">
     <param name="AutoStart" value="-1">
     <param name="AnimationAtStart" value="-1">
     <param name="AllowScan" value="-1">
     <param name="AllowChangeDisplaySize" value="-1">
     <param name="AutoRewind" value="-1">
     <param name="Balance" value="0">
     <param name="BaseURL" value>
     <param name="BufferingTime" value="5">
     <param name="CaptioningID" value>
     <param name="ClickToPlay" value="-1">
     <param name="CursorType" value="0">
     <param name="CurrentPosition" value="-1">
     <param name="CurrentMarker" value="0">
     <param name="DefaultFrame" value>
     <param name="DisplayBackColor" value="0">
     <param name="DisplayForeColor" value="16777215">
     <param name="DisplayMode" value="0">
     <param name="DisplaySize" value="2">
     <param name="Enabled" value="-1">
     <param name="EnableContextMenu" value="-1">
     <param name="EnablePositionControls" value="-1">
     <param name="EnableFullScreenControls" value="0">
     <param name="EnableTracker" value="-1">
     <param name="InvokeURLs" value="-1">
     <param name="Language" value="-1">
     <param name="Mute" value="0">
     <param name="PlayCount" value="0">
     <param name="PreviewMode" value="0">
     <param name="Rate" value="1">
     <param name="SAMILang" value>
     <param name="SAMIStyle" value>
     <param name="SAMIFileName" value>
     <param name="SelectionStart" value="-1">
     <param name="SelectionEnd" value="-1">
     <param name="SendOpenStateChangeEvents" value="-1">
     <param name="SendWarningEvents" value="-1">
     <param name="SendErrorEvents" value="-1">
     <param name="SendKeyboardEvents" value="0">
     <param name="SendMouseClickEvents" value="0">
     <param name="SendMouseMoveEvents" value="0">
     <param name="SendPlayStateChangeEvents" value="-1">
     <param name="ShowCaptioning" value="0">
     <param name="ShowControls" value="-1">
     <param name="ShowAudioControls" value="-1">
     <param name="ShowDisplay" value="0">
     <param name="ShowGotoBar" value="0">
     <param name="ShowPositionControls" value="-1">
     <param name="ShowStatusBar" value="-1">
     <param name="ShowTracker" value="-1">
     <param name="TransparentAtStart" value="0">
     <param name="VideoBorderWidth" value="0">
     <param name="VideoBorderColor" value="0">
     <param name="VideoBorder3D" value="0">
     <param name="Volume" value="-200">
     <param name="WindowlessVideo" value="0">
        </object><br>
<select name="Sel" onchange="LoadVideo(this.value)" size="1" style="background-color: #000080; color: #FCFCDC">
<option selected value><<----请选择你喜欢的音乐!----xsc-of-nwpu---->><option value="">
<%  set rs= server.createobject ("adodb.recordset")
	sql = " select * from music order by id desc"
	rs.open sql,conn,0,1
	if rs.eof and rs.bof then
%> 
<option value="">
管理员还没有添加 MP3 歌曲 <%else%> <% do while not rs.eof %>
   <option value=<%=rs("url")%>><%=rs("adduser")%>、<%=rs("name")%> 
<%
rs.movenext    
loop   
end if
response.write "</select></td></tr>"&_
               "<tr><td height=30 bgcolor=#FFCC66 align=center background=pic/mbg.jpg>"
if memberclass=grade(20) then
     response.write "<a href=""#;"" onclick=""javascript:window.open('admin_midimaster.asp ','music','status=1,scrollbars=1,resizable=1,height=150,width=620,top=10,left=250')"" ><font color=red>添加Midi</font></a>"
      else
    response.write "<a href=""#;"" onclick=""javascript:window.open('admin_midi.asp ','music','status=1,scrollbars=1,resizable=1,height=400,width=620,top=10,left=250')"" ><font color=red>下载Midi</font></a> "
   end if
  response.write "</td></tr></table></center></div>"
%>
</body>
</html>
<%end if%>