admin_nclasssave.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%checkadmint%>
<!--#include file="conn.asp"-->
<%
NewNclass=request.form("NewNclass")
NClassid=request.form("NClassid")
Classid=request("Classid")
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" and NewNclass<>"" then
call add()
elseif action="edit" and NewNclass<>"" then
call edit()
elseif action="del" then
call del()
end if
'程序添加
sub add()
sql="select Nclass,Classid from nclass"
rs.open sql,conn,1,3
rs.addnew
rs("Nclass")=NewNclass
rs("Classid")=Classid
rs.update
rs.close
end sub
'程序修改
sub edit()
sql="select Nclass from nclass where Nclassid="&NClassid
rs.open sql,conn,1,3
if not rs.eof then
rs("Nclass")=NewNclass
rs.update
end if
rs.close
end sub
'删除栏目
sub del()
sql="delete * from nclass where Nclassid="&NClassid
conn.execute sql
sql="delete * from pic where Nclassid="&Nclassid
conn.execute sql
sql="delete * from stamp where Nclassid="&Nclassid
conn.execute sql
end sub
set rs=nothing
conn.close
set conn=nothing
response.redirect"admin_classmana.asp?classid="&classid
%>