<%@ LANGUAGE=VBScript.Encode%>
<% 
Response.Expires=0
zhbg_id=Session("zhbg_id")
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
chatbgcolor=Application("zhbg_chatbgcolor")
chatimage=Application("zhbg_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
%>

<html>
<head>
<title>MTV 欣赏</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<link rel="stylesheet" href="../readonly/STYLE.CSS">
</head>
<body >
<script language="JavaScript">function s(list){parent.f2.document.af.sytemp.value=list+document.af1.song.value;parent.f2.document.af.sytemp.focus();}</script>
<div align="center"><font  size=2>MTV欣赏 | <a href=../song.asp><font style="font-size:9pt">Mp3点歌</font></a></font></div>
<hr size=1 ><br>
<form name=af1 method=POST>
<table border="0" width="100%">
<tr><td><font size=2>选择好歌曲后按“确定”按钮，然后点击发言栏的“发言”按钮即可！(需要10万银两)</font></td></tr>
<tr>
<td align=center>
<br><br><font  size=2>选 择 曲 目</font><br><br>
<select name="song" style="font-size:9pt">
<!--#include file="data.asp"-->
<%

sql="select * from swf"
Set Rs=connt.Execute(sql)

do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("歌名")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td></tr>
<tr><td align=center>
<br><input type=button value=' 确 定 ' onclick="javascript:s('/送歌$')"></td></tr>
</table>
</form><center>
<%if zhbg_grade>=9 then%><a href="#" onClick="window.open('addswf.asp','addswf','scrollbars=yes,resizable=no,width=350,height=300')"><font  size=2>添加歌曲</font></a><%end if%>
<br><br><font  size=2>九级以上官府可以添加<br>十级以上官府可以删除</font><hr size=1 color=ff6600><br>
</center>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>