category_save.asp

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

<!-- #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")

cfid=request.Querystring("fid")
cid=request.querystring("id")
deep=0
ctype="新闻"
dim cname,ctemplate
set ct=new LBCategory
ct.CategoryType="新闻"

Select Case action
	Case "add"
		cname=getsplit(request.Form("categoryname"))

		if len(cfid)/5<deep or deep=0 then
			for n=0 to ubound(cname)
				ct.CategoryName=cname(n)
				ct.Add(cfid)
			next	
		end if
	Case "modify"
		cname=request.Form("categoryname")
		ctemplate=request.Form("categorytemplate")
		ct.NewsModify cid,cname,ctemplate
	Case "del"
		ct.DeleteID(cid)
end Select

if err then
	call showerror("操作失败")
elseif action="del" then
	response.Write( "<Script>alert('删除成功');location.href='news_category.asp';</script>")	
elseif action="modify" then
	response.Write("<Script>alert('修改成功');window.close();</script>")
else
	response.write "<script>alert('添加成功');window.close();</script>"
end if
set ct=nothing
call connclose

		

%>