admin_classsave.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%checkadmint%>
<!--#include file="conn.asp"-->
<%
Newclass=request.form("Newclass")
Classid=request.form("Classid")
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" and Newclass<>"" then
call add()
elseif action="edit" and Newclass<>"" then
call edit()
elseif action="del" then
call del()
end if

sub add()
sql="select * from class"
rs.open sql,conn,1,3
rs.addnew
rs("class")=Newclass
rs.update
rs.close
end sub

sub edit()
sql="select * from class where classid="&Classid
rs.open sql,conn,1,3
if not rs.eof then
rs("class")=Newclass
rs.update
end if
rs.close
end sub

sub del()
sql="delete * from class where classid="&Classid
conn.execute sql
sql="delete * from nclass where classid="&Classid
conn.execute sql
sql="delete * from pic where classid="&classid
conn.execute sql
sql="delete * from stamp where classid="&classid
conn.execute sql
end sub
set rs=nothing
conn.close
set conn=nothing
response.redirect"admin_classmana.asp?classid="&classid
%>