<%
id=RequestQueryNum("id")
Set rs=conn.Execute("Select * From multimedia Where id="& id &"")
If rs.bof And rs.eof Then
Response.Write "param error!"
Response.End
End If
title=rs("title")
singer=rs("singer")
lyrics=rs("lyrics")
url=rs("url")
cid=rs("categoryid")
Set rs=conn.Execute("Select top 1 id from multimedia Where id < "& id &" and categoryid="& cid &" order by id desc")
If rs.bof And rs.eof Then
Else
linkNext="下一首"
End If
Set rs=conn.Execute("Select top 1 id from multimedia Where id > "& id &" and categoryid="& cid &" order by id asc")
If rs.bof And rs.eof Then
Else
linkPre="上一首"
End If
Set rs=nothing
%>
<%=title%> 播放器