classmanage_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 88 行

<%
	dim i,j,k,action,ID,rs,ClassName,OrderID,ClassLevel,ReturnUrl,ClassID,ClassNameNow,ClassIDNow,ClassTree,ClassTreeNow,ClassNum
	dim ProClass(200,3)
	i=0
	
	action=Request.QueryString("action")
	ID=sqlcheck(Request.QueryString("ID"))
	ClassName=Request.Form("ClassName")
	OrderID=Request.Form("OrderID")
	ClassTree=Request.Form("ClassTree")
	
	ClassLevel=sqlcheck(Request.QueryString("ClassLevel"))
	if ClassLevel="" or ClassLevel<0 then
		ClassLevel=0
	end if
	
	ClassID=sqlcheck(Request.QueryString("ClassID"))
	if ClassID="" or ClassID<0 then
		ClassID=0
	end if
	
	ReturnUrl="ClassManage.asp?ClassLevel="&ClassLevel&"&ClassID="&ClassID&""
	
	if action="save" then
	call CheckType(17)
		if ClassLevel=0 then
			conn.execute("Insert into [Class] (ClassName,orderID,ClassLevel,ClassHeadID) values ('"&ClassName&"','"&OrderID&"','"&ClassLevel&"','"&ClassID&"')")
		else
			conn.execute("Insert into [Class] (ClassName,orderID,ClassLevel,ClassHeadID,ClassTree) values ('"&ClassName&"','"&OrderID&"','"&ClassLevel&"','"&ClassID&"','"&ClassTree&"')")
		end if
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
	
	if action="edit" then
	call CheckType(18)
		conn.execute("Update [Class] set ClassName='"&ClassName&"',orderID='"&OrderID&"' where ClassID="&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
	
	if action="del" then
	call CheckType(19)
		'判断下面有没有小分类
		
		conn.execute("Delete p.* from Product p inner join [Class] c on c.ClassID=p.ProductClassID where instr(c.ClassTree,"&ID&")")
		conn.execute("Delete from Product where ProductClassID="&ID&"")
		conn.execute("Delete from [Class] where instr(ClassTree,"&ID&")")
		conn.execute("Delete from [Class] where ClassID="&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
	
	call CheckType(16)
	'读数据
	set rs=server.CreateObject("adodb.recordset")
	if ClassLevel=0 then
		rs.open"select ClassID,ClassName,orderID,ClassLevel from [Class] where ClassLevel="&ClassLevel&" order by orderID,ClassID desc",conn,1,1
	else
		rs.open"select ClassID,ClassName,orderID,ClassLevel from [Class] where ClassLevel="&ClassLevel&" and ClassHeadID="&ClassID&" order by orderID,ClassID desc",conn,1,1
	end if
	if rs.eof then
		ClassNum = -1
	end if
	while not rs.eof
		proClass(i,0)=rs("ClassID")
		proClass(i,1)=rs("ClassName")
		proClass(i,2)=rs("orderID")
		proClass(i,3)=rs("ClassLevel")
	i=i+1
	rs.movenext
	wend
	rs.close
	
	if ClassLevel>0 then
		rs.open"select ClassID,ClassName,ClassTree,ClassHeadID from [Class] where ClassID="&ClassID&"",conn,1,1
			ClassNameNow=rs("ClassName")
			ClassIDNow=rs("ClassHeadID")
			'取家谱
			if ClassLevel=1 then
				ClassTreeNow=rs("ClassID")
			else
				ClassTreeNow=rs("ClassTree")&","&rs("ClassID")
			end if
		rs.close		
	end if
	set rs=nothing
%>