📄 songreal.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<%
if request("id")<>"" then
set rs=server.createobject("adodb.recordset")
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
%>
<head>
<STYLE type=text/css>TD {
FONT-SIZE: 12px; COLOR: #ffffff
}
A {
COLOR: #cccccc; TEXT-DECORATION: none
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 oncontextmenu="self.event.returnValue=false" onselectstart="event.returnValue=false" ondragstart="window.event.returnValue=false" onkeydown='if(event.keyCode==78&&event.ctrlKey)return false;'>
<div align="left">
<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#1F415C" id="AutoNumber4" bordercolorlight="#2C5B83" bordercolordark="#2C5B83" height="353">
<tr>
<td width="276" height="353">
<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>
</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">MUSICTEA.NET 音乐试听</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></td>
</tr>
<tr>
<td width="100%" height="1" bgcolor="#000000" colspan="2">
看不到图像或听不到声音请下载<a href="tools/real_plus.zip"><font color="#FF0000">Realplayer_plus</font></a></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">
</embed><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">
<font color="#FFFF00">请把地址发给你QQ上的好友 <font color="#FF0000">www.</font>musictea<font color="#FF0000">N</font>et</font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</div>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -