songsave.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!--#include file="char.inc"-->
<%
action=Request("Action")
Song_Id=Request.Form("Song_Id")

set rs=Server.createobject("adodb.recordset")
select case (action)
        case "add0" call add0()
		case "add"  call add()
		case "edit" call edit()
		case "del"  call del()
end select

sub add()
sql="select * from Song"
rs.open sql,conn,1,3
rs.AddNew
rs("class_ID")=request.form("Class_ID")
rs("nclass_ID")=request.form("Nclass_ID")
rs("Special_Id")=Request.form("Special_ID")
rs("Song_Name")=Request.form("Song_Name")
rs("rm")=server.htmlencode(Trim(Request("content")))
rs("mp3")=Request.form("Song_mp3")
rs("mv")=Request.form("Song_mv")
rs("swf")=Request.form("Song_swf")
rs("singer")=Request.form("Song_singer")
rs.update
rs.close
response.redirect"songlist.asp?Special_ID="&request.form("Special_ID")
end sub 

sub add0()
sql="select * from Song"
rs.open sql,conn,1,3
rs.AddNew
rs("class_ID")=request.form("Class_ID")
rs("nclass_ID")=request.form("Nclass_ID")
rs("Special_Id")=Request.form("Special_ID")
rs("Song_Name")=Request.form("Song_Name")
rs("rm")=Request.form("Song_rm")
rs("mp3")=Request.form("Song_mp3")
rs("mv")=Request.form("Song_mv")
rs("swf")=Request.form("Song_swf")
rs("singer")=Request.form("Song_singer")
rs.update
rs.close
response.redirect"songlist.asp?Special_ID="&Request.form("Special_ID")
end sub 

sub edit()
sql="select * from Song where Song_Id="&Request("Song_Id")
rs.open sql,conn,1,3
if not rs.EOF then
rs("Song_Name")=Request.form("Song_Name")
rs("rm")=server.htmlencode(Trim(Request("content")))
rs("mp3")=Request.form("Song_mp3")
rs("mv")=Request.form("Song_mv")
rs("swf")=Request.form("Song_swf")
rs("singer")=Request.form("Song_singer")
rs.update
rs.close
end if
response.redirect"songedit.asp?song_ID="&request("song_ID")
end sub


sub del()
sql="delete * from Song where Song_Id="&Request("Song_Id")
conn.execute sql
response.redirect"SongSpecialList.asp"
%>
<%
end sub
%>