admin_nclasssave.asp

本文通过分析国内外网上购物系统的发展现状

<!--#include file="Admin_function.asp"-->
<%check_Third%>
<!--#include file="Admin_conn.asp"-->
<%
NewNclass_Name=Trim(request.form("NewNclass_Name"))
Nclass_Id=request.form("Nclass_Id")
Class_id=request("Class_id")
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" and NewNclass_Name<>"" then
call add()
elseif action="edit" and NewNclass_Name<>"" then
call edit()
elseif action="del" then
call del()
end if
'程序添加
sub add()
sql="select Nclass_Name,Class_id from Nclass"
rs.open sql,conn,1,3
rs.addnew
rs("Nclass_Name")=NewNclass_Name
rs("Class_id")=Class_id
rs.update
rs.close
end sub
'程序修改
sub edit()
sql="select Nclass_Name from Nclass where Nclass_Id="&Nclass_Id
rs.open sql,conn,1,3
if not rs.eof then
rs("Nclass_Name")=NewNclass_Name
rs.update
end if
rs.close
end sub
'删除栏目
sub del()
sql="delete * from Nclass where Nclass_Id="&Nclass_Id
conn.execute sql
sql="delete * from Special where Nclass_Id="&Nclass_Id
conn.execute sql
sql="delete * from Song where Nclass_Id="&Nclass_Id
conn.execute sql
end sub
set rs=nothing
conn.close
set conn=nothing
response.redirect"admin_classmana.asp?class_id="&class_id
%>