<!--#Include File="CmsDj.Conn.asp"-->
<!--#Include File="CmsDj.Function.asp"-->
<!--#Include File="../data/Dj95_Config.asp"-->
<!--#Include File="CmsDj.Md5.asp"-->

<%
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
If mid(From_url,8,len(Serv_url)) <> Serv_url Then
     Response.Write "不支持外部链接！"
     Response.End
End If
id=SafeRequest("id","get")
ac=SafeRequest("ac","get")
   Set CmsDjMusic = New CmsDj_Com_Dj
   Set CmsDjServer = New CmsDj_Com_Server
   Set Rs = CmsDjMusic.GetRs("CD_ID,CD_Url,CD_Server,CD_Singer,CD_Name,CD_ClassID",0,"CD_ID="&ID)
        If rs.EOF And rs.BOF Then
             Response.write " "
             Response.End
        Else
             CD_Name=Rs("CD_Name")
             CD_Url=Rs("CD_Url")
             CD_Server=Rs("CD_Server")
             If CD_Server<>0 Then
                  Set RsServer = CmsDjServer.GetRs("CD_ID,CD_Url",0,"CD_ID="&CD_Server)
                       Ser_Url=RsServer("CD_Url")
                       PlayUrl = RsServer("CD_Url")&CD_Url
                  Set RsServer = Nothing
             Else
                  PlayUrl = CD_Url
             End If
        End If


if Ser_Url="http://dj95.www.dj95.com/" then
DJ95_md5=md5(Dj95_ym&Dj95_key&id)
PlayUrl="http://mp3.95Dj.com:81/B.do?u="&CD_Url&"&i="&Dj95_name&"&id="&id&"&qq="&DJ95_md5&"&fwdid="&CD_Server&"&ac=1&n="&CD_Name&""
else
PlayUrl=PlayUrl
end if


        If ac="lplay" Then
             Response.Write "var i"&rs("CD_ID")&"="""&rs("CD_ID")&""";var s"&rs("CD_ID")&"="""&rs("CD_Singer")&""";var n"&rs("CD_ID")&"="""&rs("CD_Name")&""";var u"&rs("CD_ID")&"="""&PlayUrl&""";var t"&rs("CD_ID")&"="""&rs("CD_ClassID")&""";"
        Else
             Response.write PlayUrl
        End If
   Set Rs = Nothing
%>