<%
id=trim(request.querystring("id"))
if request.querystring("id")="" then
Response.Write ""
Response.End
else
if not isInteger(request.querystring("id")) then
Response.Write ""
Response.End
end if
end if
Set CmsDjMusic = New CmsDj_Com_Dj
Set Rs=CmsDjMusic.GetRs("CD_ID,CD_Name,CD_Singer,CD_Lrc",0,"CD_ID="&ID)
if Rs.eof and Rs.bof then
response.write""
else
%>
（<%=Rs("CD_Singer")%>）歌词" />
<%=Rs("CD_Name")%>（<%=Rs("CD_Singer")%>）歌词
<%
If Rs("CD_Lrc")<>"" Then
Response.Write Rs("CD_Lrc")
Else
%>
[ti:<%=Rs("CD_Name")%>]
[ar:<%=Rs("CD_Singer")%>]
[al:<%=Rs("CD_Singer")%>]
[by:<%=CD_WebUrl%>]
[00:00.00]没有歌词
<%
End If
%>
<%
end if
Rs.close
set Rs=nothing
%>