manageuserlevel_inc.asp

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

<%
	dim i,j,Level,Num,rs,action,ID,LevelName,LevelOrder,LevelNum,LevelJifen
	
	action = sqlchg(Request.QueryString("action"))
	ID = sqlcheck(Request.QueryString("ID"))
	LevelName = sqlchg(Request.Form(("LevelName")))
	LevelOrder = Cint(sqlcheck(Request.Form("LevelOrder")))
	LevelNum = Cint(sqlcheck(Request.Form("LevelNum")))
	LevelJifen = Cint(sqlcheck(Request.Form("LevelJifen")))
	
	
	if action = "add" then
	call CheckType(32)	
		conn.execute("Insert into [Level] (LevelName,LevelOrder,LevelNum,LevelJifen) values ('"&LevelName&"','"&LevelOrder&"','"&LevelNum&"','"&LevelJifen&"')")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='ManageUserLevel.asp';</script>")
		Response.End()
	end if
	if action = "edit" then
	call CheckType(33)	
		conn.execute("Update [Level] set LevelName = '"&LevelName&"',LevelOrder = '"&LevelOrder&"',LevelNum = '"&LevelNum&"',LevelJifen = '"&LevelJifen&"' where LevelID = "&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='ManageUserLevel.asp';</script>")
		Response.End()
	end if
	if action = "del" then
	call CheckType(34)	
		conn.execute("Delete from [Level] where LevelID = "&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='ManageUserLevel.asp';</script>")
		Response.End()
	end if

	call CheckType(31)		
	set rs = conn.execute("Select LevelName,LevelOrder,LevelNum,LevelJifen,LevelID from [Level] where LevelOrder <> 0 and LevelOrder <> 9999 order by LevelOrder")
	if not rs.eof then
		Level = rs.getrows
		Num = ubound(Level,2)
		if not isnumeric(Num) then
			Num = 1
		end if
	else
		Num = -1
	end if
%>