music_open.asp

不是我做的一个留言板

<%
bg_id=1
%>
<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<%


web_id="../language/"&l_id
web_id=web_id&"/USER_ADMIN.ASP"
call include(web_id)
on_web=L_MUSEC13
music_id=trim(request.QueryString("music_id"))
open=0
m_sql="select * from [sound_music] where g_id='"&session_cookie_gid&"' and id="&music_id
set music_user=conn.execute(m_sql)
m_name=music_user("music_name")
to_user=split(music_user("to_user"),",")
for i=0 to uBound(to_user)
if to_user(i)&("")=session_cookie_name or session_cookie_name=music_user("soun_user") then
open=1
end if				
next
if open=0 then
        RESPONSE.WRITE "<font color='#ffffff'>"&L_MUSEC12&"</font>"
response.end
end if
%>
<table border="0" width="383" background="<%=img_path%>/music_img/dg.gif" cellspacing="0" cellpadding="0" height="140">
  <tr>
    <td width="10%" height="140" rowspan="8">　</td>
    <td width="23%" height="68">　</td>
    <td width="14%" height="140" rowspan="8">　</td>
    <td width="53%" height="68" colspan="3">　</td>
  </tr>
  <tr>
    <td width="23%" height="19">　</td>
    <td width="13%" height="54" rowspan="4">　</td>
    <td width="22%" height="54" rowspan="4" align="center">
<%=L_MUSEC3 %>:

<marquee direction="up" scrollamount="2" id=info onMouseOver=info.stop() onMouseOut=info.start() width="70" height="101">
<%=music_user("music_text")%>
</marquee>
	</td>
	<td width="18%" height="54" rowspan="4">　</td>
	</tr>
	<tr>
	<td width="23%" height="23">　</td>
	</tr>
	<tr>
	<td width="23%" height="34">　</td>
	</tr>
	<tr>
	<td width="23%" height="54">　</td>
	</tr>
	<tr>
	<td width="23%" height="65" rowspan="3">　</td>
 	<td width="53%" height="31" colspan="3">　</td>	
	</tr>
	<tr>
	<td width="13%" height="19">　</td>
	<td width="22%"  align="center">


<%
        RESPONSE.WRITE "<marquee width=80 scrolldelay=140>"
        RESPONSE.WRITE "<font color='#ff0000'>"
        RESPONSE.WRITE music_user("soun_user")&"</FONT>"
        RESPONSE.WRITE L_MUSEC9&"<font color='#ff0000'>"&music_user("music_name")
	RESPONSE.WRITE "</FONT>"&L_MUSEC10 &"<font color='#ff0000'>"&music_user("to_user")
	RESPONSE.WRITE "</FONT>"&L_MUSEC11
        RESPONSE.WRITE "</marquee></td><td width=18% height=19></td>"
        RESPONSE.WRITE "</tr><tr><td width=53% height=15 colspan=3>   </td></tr></table>"
music_user.close
sql="select music_url from [music] where music_name='"&m_name&"' and music_type='点歌' and g_id='"&session_cookie_gid&"'"  
set music=conn.execute(sql)
do while not music.eof
        RESPONSE.WRITE "<embed src='"&music("music_url")&"'  autostart='true' loop=-1 width='0' height='0' >"
music.movenext
loop
music.close

%>