<% CD_ID=SafeRequest("ID","auto") if CD_ID="" then Response.Write "" Response.End else if not isInteger(CD_ID) then Response.Write "" Response.End end if end if Dim CmsDjMusic:Set CmsDjMusic = New CmsDj_Com_Dj Set Rs = CmsDjMusic.GetRs("",0,"CD_Passed=0 and CD_Deleted=0 and CD_ID="&CD_ID) if rs.eof and rs.bof then Response.Write "" Response.End end if %>

舞曲名：<%=rs("CD_Name")%>
舞曲格式：Mp3文件 总 点 击：<%=rs("CD_Hits")%> 总 收 藏：<%=rs("CD_FavHits")%> 总 下 载：<%=rs("CD_DownHits")%> 上 传 者：<%=rs("CD_User")%> 上传时间：<%=Year(rs("CD_AddTime"))&"-"&Month(rs("CD_AddTime"))&"-"&Day(rs("CD_AddTime"))%>	<%If UserLogined<>True Then%> <%Else%> <%End If%> 下载此舞曲 需要扣除 <%=rs("CD_Points")%> 点数 (必须登陆才能下载舞曲 " target="_top">立即登陆) (你目前可用点数 <%=CmsDj_Com_Points%> 点 立即充值)  VIP用户不扣点 可任意下 " onClick="return confirm(' 下载此首舞曲 需扣除 <%=rs("CD_Points")%> 点数，确定下载吗？\n \n 注：24小时内不重复扣点，VIP用户不扣点！\n');"> 本舞曲已有 <%=rs("CD_DownHits")%> 人下载过
注：舞曲下载每天只扣除一次费用，再次下载不会重复扣费！ 登陆 / 注册
提醒：上传的舞曲如发现音质问题请留言，我们将会进行核查！ 进入留言

<% rs.Close set rs=nothing %>