<!--#include file="conn.asp"-->
<!--#include file="../const.asp"-->
<!--#include file="CHAR.INC"-->
<%
id_array=split(request.QueryString("id"),",")
id=request.QueryString("id")
founderr=false
if id="" then
errmsg=errmsg+"<br><li>对不起!请选择歌曲!</li>"
call error()
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql = "SELECT * FROM MusicList WHERE id="&id
rs.open sql,conn,1,3
if rs.eof then
errmsg=errmsg+"<br><li>对不起!请正确选择歌曲。</li>"
founderr=true
else
MusicName=rs("MusicName")
Singer=rs("Singer")
ListenUrl=rs("ListenUrl")
Specialid=rs("Specialid")
Classid=rs("Classid")
SClassid=rs("SClassid")
NClassid=rs("NClassid")
hits=rs("hits")
%>
<%
end if
rs.close
if Specialid<>"" and not isnull(Specialid) then
sql = "SELECT pic,name FROM Special WHERE Specialid="&Specialid
rs.open sql,conn,1,1
if not rs.eof then
SpecialName=rs("name")
pic=rs("pic")
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
if founderr=true then
call error()
else
call ShowMusic
end if