<% '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,CD_Hits",0,"CD_ID="&ID) If rs.EOF And rs.BOF Then Response.write " " Response.End Else If Rs("CD_Server")<>0 Then Set RsServer = CmsDjServer.GetRs("CD_Url",0,"CD_ID="&Rs("CD_Server")) PlayUrl = RsServer("CD_Url")&Rs("CD_Url") Set RsServer = Nothing Else PlayUrl = Rs("CD_Url") End If End If Response.write "" Response.write "" Response.write "" Response.write ""&CD_WebUrl&"" Response.write "歌手和唱片公司所有" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Rs.close Set Rs = Nothing %>