<%@language=vbscript codepage=936 %>
<%path="../basedata"%>
<!--#include file="../inc/function.asp"-->
<%call Loginpower%>
<%call legalpower%>
<!--#include file="../conn/conn_data.asp"-->
<%
dim id,arrid,sql,rs
id=request.querystring("id")
arrid=split(id,", ")
for i=0 to ubound(arrid)
if not idboolean(arrid(i)) then response.write errorback("´íÁË,´íÁË"):response.end
		conn_data.begintrans
		conn_data.execute("delete from songs where songs_id = "&arrid(i)&" and songs_pass=0")
		if conn_data.errors.count>0 then
		conn_data.rollbacktrans
		err.clear
		else
		conn_data.committrans
		end if
next
conn_data.close
set conn_data=nothing
response.write msgok("³É¹¦É¾³ý","Songs_Manager.asp")
%>
