songclasssave.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 49 行

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<%
NewClass_Name=Trim(request.form("NewClass_Name"))
Class_Id=request.form("Class_Id")
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" and NewClass_Name<>"" then
call add()
elseif action="edit" and NewClass_Name<>"" then
call edit()
elseif action="del" then
call del()
end if

sub add()
sql="select Class_Name from songClass where (Class_Id IS NULL)"
rs.open sql,conn,1,3
rs.addnew
rs("Class_Name")=NewClass_Name
rs.update
rs.close
end sub

sub edit()
sql="select Class_Name from songClass where Class_Id="&Class_Id
rs.open sql,conn,1,3
if not rs.eof then
rs("Class_Name")=NewClass_Name
rs.update
end if
rs.close
end sub

sub del()
sql="delete * from songClass where Class_Id="&Class_Id
conn.execute sql
sql="delete * from songclass2 where Class_Id="&Class_Id
conn.execute sql
sql="delete * from songSpecial where Class_Id="&Class_Id
conn.execute sql
sql="delete * from Song where Class_Id="&Class_Id
conn.execute sql
end sub
set rs=nothing
conn.close
set conn=nothing
response.redirect"songClass.asp?Class_Id="&Class_Id
%>