category_save.asp

来自「这是我根据动网新闻核心自行设计的校园新闻系统」· ASP 代码 · 共 46 行

<!-- #include file="../login/check.asp" -->
<!-- #include file="../../inc/conn.asp" -->
<!-- #include file="../../inc/function.asp" -->
<!-- #include file="../category/category_class.asp" -->
<%
'接收参数
dim deep,categorytype
dim action
dim categoryname
dim fid
dim categoryid
action=request.querystring("action")
deep=dishtml(request.querystring("deep"))
categorytype=dishtml(request.querystring("categorytype"))
categoryname=DisHtml(request.Form("categoryname"))
fid=Dishtml(request.Querystring("fid"))
categoryid=dishtml(request.querystring("categoryid"))


set ct=new LBCategory
ct.CategoryType=categorytype

Select Case action
	Case "add"
		if len(fid)/5<deep or deep=0 then
			ct.CategoryName=categoryname
			ct.Add(fid)
		end if
	Case "mod"
		ct.categoryName=categoryname
		ct.Modify(categoryid)
	Case "del"
		ct.Delete(categoryid)
end Select

if err then
	call showerror("操作失败")
else
	call showsuccess("操作成功","category_list.asp?categorytype="&categorytype&"&deep="&deep)
end if
set ct=nothing
call connclose

		

%>