www.gusucode.com > 盘锦DJ舞曲网 商业版源码程序 > admin/savemusic.asp

    <!--#include file="loginOK.asp"-->
<!--#include file="../conn.asp"-->
<%
action=request.QueryString("action")
select case action
case "music_add"
call music_add()

case "music_edit"
call music_edit()

case "music_delete"
call music_delete()

case "goodup"
call goodup()

case "piliang"
call piliang()

end select
%>
<%
sub piliang

no=request.form("no")
set rs=server.createobject("adodb.recordset")
sql="select * from musiclist where (id is null)" 
rs.open sql,conn,1,3
for i= 1 to no
rs.addnew
rs("classid")=request.form("classname")
rs("serverid")=Request.Form("serverlist")
rs("musicpath")=trim(request.form("musicurl"&i&""))
rs("musicname")=trim(request.form("musicname"&i&""))
rs("adddate")=date
rs.update
id=rs("id")
next
rs.close
response.write "<script>alert('OK！歌曲添加成功！');location='music_list.asp';</script>"
end sub
%>


<%sub music_add()%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from musiclist" 
rs.open sql,conn,1,3
if request.form("classname")="music_class" or Request.Form("musicname")="server_url" then
response.write("<script>alert('请选择歌曲分类或者服务器地址!');history.go(-1)</script>")
response.end
else 
rs.addnew
rs("classid")=request.form("classname")
if request("good")=1 then
rs("good")=true
else
rs("good")=false
end if
rs("musicname")=Request.Form("musicname")
rs("serverid")=Request.Form("serverlist")
rs("musicpath")=Request.Form("musicurl")
rs("addDate")=date
rs.update
response.write "<script>alert('OK！歌曲添加成功,返回继续添加！');location='music_add.asp';</script>"
end if
%>
<%end sub%>

<%sub music_edit()%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from musiclist where ID="&request("ID")
rs.open sql,conn,1,3
rs("classid")=request.form("classname")
if request("good")=1 then
rs("good")=true
else
rs("good")=false
end if
rs("musicname")=Request.Form("musicname")
rs("serverid")=Request.Form("serverlist")
rs("musicpath")=Request.Form("musicurl")
rs.update
response.write "<script>alert('OK！歌曲修改成功！');location='music_list.asp';</script>"
%>
<%end sub%>
<%sub music_delete()%>
 <%   
id=replace(request("id")," ","")
if id="" then
response.write("<script>alert('请选择一首歌曲!');history.go(-1)</script>")
end if
if request("delete_act")="删除" then
conn.execute("delete from musiclist where id in ("&id&")")
conn.close
set conn=nothing
end if
response.redirect Request.ServerVariables("HTTP_REFERER")
%>
<%end sub%>

<%sub goodup()%>
<%
id=request.QueryString("id")
good=request.QueryString("good")
set rs=server.createobject("adodb.recordset")
sql="select * from musiclist where ID="&request("ID")
rs.open sql,conn,1,3
if request("good")=1 then
rs("good")=true
else
rs("good")=false
end if
rs.update
response.redirect Request.ServerVariables("HTTP_REFERER")
%>
<%end sub%>