📄 song.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<%
if request("id")<>"" then
if isnull(session("DJ58User")) or isnull(session("HappyMusicPwd")) or session("DJ58User")="" or session("HappyMusicPwd")="" then
errmsg="<li>请登陆！只有会员才能听歌。</li>"
call error()
response.end
else
set rs=server.createobject("adodb.recordset")
sql="select * from user where UserName='"&Session("DJ58User")&"' and PassWord='"&Session("HappyMusicPwd")&"'"
rs.Open sql,conn,1,3
if not rs.eof then
rs("Listens")=rs("Listens")+1
rs.Update
else
errmsg="<li>会员不存在！请联系管理员或重新注册。</li>"
call error()
response.end
end if
rs.close
end if
id=request("id")
sql="select * from MusicList where id="&id
rs.open sql,conn,1,3
if rs.eof then
errmsg="<li>对不起！该歌曲不存在，可能已经被管理员删除。</li>"
call error()
Response.End
else
rs("hits")=rs("hits")+1
rs.Update
source=rs("ListenUrl")
MusicName=rs("MusicName")
end if
rs.Close
response.write "<html><head><title>歌曲播放："&MusicName&"--"&WebTitle&"</title></head>"
elseif request("checked")<>"" then
SongUrl=request("checked")
dim SongUrlArray(20)
randomize
SongUrl=trim(SongUrl)
if instr(SongUrl,",")=0 then
SongUrlArray(0)=SongUrl
else
SongUrl=replace(SongUrl," ","")
SongUrlArrayNew=split(SongUrl,",")
FoundNew=1
end if
if FoundNew=1 then
s=""
for intI=0 to ubound(SongUrlArrayNew)
s=s & SongUrlArrayNew(intI) & vbCrLf
next
else
s=SongUrl
end if
s=s&" "&vbCrLf
response.contenttype="audio/x-pn-realaudio"
response.addheader "Content-Disposition","inline; filename=playsong.ram"
response.write s
source="playsong.ram"
set rs=server.createobject("adodb.recordset")
if FoundNew=1 then
for intI=0 to ubound(SongUrlArrayNew)
sql="select hits from MusicList where ListenUrl='"&SongUrlArrayNew(intI)&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs("hits")=rs("hits")+1
rs.update
end if
rs.close
next
else
sql="select hits from MusicList where ListenUrl='"&SongUrlArray(0)&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs("hits")=rs("hits")+1
rs.update
end if
rs.close
end if
canend="ok"
else
errmsg= "<li>请选择歌曲！</li>"
call error()
Response.End
end if
if canend="ok" then response.end
set rs=nothing
conn.close
set conn=nothing
%>
<STYLE type=text/css>TD {
FONT-SIZE: 12px; COLOR: #ffffff
}
A {
COLOR: #cccccc; TEXT-DECORATION: none
}
</STYLE>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<div align="left">
<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#1F415C" id="AutoNumber4" bordercolorlight="#2C5B83" bordercolordark="#2C5B83">
<tr>
<td width="276" height="139">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5" bgcolor="#1F415C">
<tr>
<td width="274" height="7" colspan="3">
<p align="center">
<img border="0" src="补间" width="5" height="5"></td>
</tr>
<tr>
<td width="5" height="3" rowspan="3">
<img border="0" src="补间" width="5" height="5"></td>
<td bgcolor="#132839" height="112" width="261">
<div align="center">
<center>
<table border="3" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#0F212F" width="265" id="AutoNumber8">
<tr>
<td width="100%">
<p align="center">
<embed src="<%=source%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="imagewindow" loop="true" height=227 width=255 autostart=true> </embed>
</td>
</tr>
</table>
</center>
</div>
</td>
<td width="5" height="3" rowspan="3">
<img border="0" src="补间" width="5" height="5"></td>
</tr>
<tr>
<td width="261" height="1">
<img border="0" src="补间" width="5" height="5"></td>
</tr>
<tr>
<td width="261" height="1" bgcolor="#1B3850">
<p align="center"><font color="#FFFFFF">本站音乐仅供试听，严禁任何人用做商业用途!</font></td>
</tr>
<tr>
<td width="7" height="28"> </td>
<td width="261" height="28">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#183247" width="100%" id="AutoNumber6">
<tr>
<td width="100%" bgcolor="#1B3850">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#14293A" width="96%" id="AutoNumber7" height="1">
<tr>
<td width="100%" height="1" bgcolor="#0F212F" colspan="2">
<p align="center">
<img border="0" src="补间.gif" width="1" height="5"></td>
</tr>
<tr>
<td width="100%" height="1" bgcolor="#000000" colspan="2">
<embed src="<%=source%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel" height=27 width=261></embed></td>
</tr>
<tr>
<td width="66%" height="1" bgcolor="#000000">
舞曲:<%=musicname%> </td>
<td width="34%" height="1" bgcolor="#000000">
<!-- <a title="点歌给朋友" target="_blank" href="WriteSMusic.asp?id=<%=id%>">
<img border="0" src="images/admin_class1.gif">点歌</a>-->
<a title="收藏此舞曲]" target="_blank" href="UserCollect.asp?action=add&id=<%=id%>">
<img border="0" src="images/admin_class2.gif">收藏</a></td>
</tr>
<tr>
<td width="100%" height="1" bgcolor="#0F212F" colspan="2">
<p align="center">
<img border="0" src="补间.gif" width="1" height="3"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="6" height="28"> </td>
</tr>
<tr>
<td width="274" height="12" colspan="3"> <p align="center"><br>
<font color="#FF0000"> 版权所有 Copyright © 2003</font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</div>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -