soung_music.asp

不是我做的一个留言板

<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<!--#include file="../templet/mon.asp" -->
<!--#include file="../FUNCTION/function.asp" -->
<!--#include file="../templet/top.asp" -->

<SCRIPT src="../JS/win_js.js"></SCRIPT>
  <center>
<!-- -->


<table border="0" width="100%">
  <tr>
    <td colspan="2">
<%
web_id="../language/"&l_id
web_id=web_id&"/USER_ADMIN.ASP"
call include(web_id)
y=L_MUSEC0
call Mon(y)
%>
<form action="soun_music2.asp" method="POST">
<table border="1" width="40%">
 <tr>
    <td colspan="2">
<%=L_MUSEC1%>：
<select size="1" name="m1" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
<%
bg_music="select * from [music] where music_type='点歌' and g_id='"&session_cookie_gid&"'"
set music_rs=conn.execute(bg_music)
do while not music_rs.eof
response.write "<option value='"&music_rs("music_name")&"'>-"&music_rs("music_name")&"-</option>"
 music_rs.movenext            
  loop            
 music_rs.close     
%>
      </select></td>
    <td height="100" rowspan="3" align="center"><%=L_MUSEC6%><br>
<select size="8" name="m2" multiple style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
       <%
user_m="select username from [user] where g_id='"&session_cookie_gid&"'"
set user_rs=conn.execute(user_m)
do while not user_rs.eof
response.write "<option value='"&user_rs("username")&"'>-"&user_rs("username")&"-</option>"
user_rs.movenext            
loop            
user_rs.close     

%>
      </select>
<br><font color='#ff0000'><%=L_MUSEC7%></font>
</td>
  </tr>
  <tr>
    <td rowspan="2" align="center"><br>
      &nbsp;</td>
    <td><%=L_MUSEC3%>:</td>
  </tr>
  <tr>
    <td><textarea rows="4" name="m3" cols="29" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'"></textarea></td>
  </tr>
  <tr>
    <td colspan="3" align="center">
<input type="submit" value="<%=L_MUSEC8%>" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
<input type="reset" value="<%=L_MUSEC5%>" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
</td>
  </tr>
</table>
</form>
</td>
<td>
<table width="350" border="0"><tr>
<td align='center' height='1'><%=L_MUSEC4%></td></tr>
<tr><td>

<%
response.write "<SCRIPT>SL_open(350,170);</SCRIPT>"
music="select * from [sound_music] where g_id='"&session_cookie_gid&"' order by music_time desc"
set music=conn.execute(music)
do while not music.eof
%>
<A href='#' onclick="open('music_open.asp?music_id=<%=music("id")%>','<%=L_MUSEC0%>','resizable=1,scrollbars=1,status=no,toolbar=no,location=no,menu=no width=430 height=300')">
     <%     
response.write "<img src='"&web_background&"/music.gif' border='0'>"
response.write music("soun_user")&L_MUSEC9&music("music_name")&L_MUSEC10&music("to_user")&L_MUSEC11&"</a><br>"
 music.movenext            
  loop            
 music.close     
response.write "<SCRIPT>SL_close()</SCRIPT>" 
%>
</tr></td>

<table>
<%=mon_foot%>
<!-- -->

</td></tr>


<br>
<!--#include file="../templet/foot.asp" -->