📄 play.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&" —【宏光DJ站】</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: #ffffff; TEXT-DECORATION: none
}
</STYLE>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 width="757" oncontextmenu="self.event.returnValue=false" onselectstart="event.returnValue=false" ondragstart="window.event.returnValue=false" onkeydown='if(event.keyCode==78&&event.ctrlKey)return false;'>
<table border="0" bgColor=#020286 cellpadding="0" cellspacing="0" width="306" height="300">
<tr>
<td width="306" colspan="3" height="20"><img border="0" src="images/pad_top.gif"></td>
</tr>
<tr colspan="4">
<td width="10" height="240"><img border="0" src="images/pad_left.gif"></td>
<td width="275" height="275">
<embed src="<%=ServerUrl%><%=source%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="imagewindow" loop="true" height=275 width=275 autostart=true>
</embed> <img src="images/pad_top1.gif" border="0" width="275" height="7">
<img src="images/djlw.gif" width="273" height="56">
<td width="19" height="240"><img border="0" src="images/pad_right.gif"></td>
</tr>
<tr>
<td width="306" colspan="4">
<table border="0" colspan="4" bgColor=#020286 style="border-collapse: collapse" cellpadding="0" cellspacing="0" width="306">
<tr>
<td width="10" height="20"><img border="0" src="images/pad_left2.gif"></td>
<td width="200" height="7" background="images/pad_top2.gif"> 舞曲名称:<%=musicname%></td>
<td height="7" background="images/pad_top2.gif"> <a title="收藏此舞曲" target="_blank" href="UserCollect.asp?action=add&id=<%=id%>">
<img border="0" align=absMiddle src="images/admin_class2.gif">收藏</a></td>
<td width="19" height="20"><img border="0" src="images/pad_right2.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="306" colspan="3" height="36"><map name="FPMap0">
<area href="javascript:window.close();" shape="rect" coords="259, 5, 287, 34"></map><img border="0" src="images/pad_bottom.gif" usemap="#FPMap0"></td>
</tr>
</table>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -