bbsboard_inc.asp

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

<%
	call CheckType(40)	
	dim i,j,k,Level,Num,rs,action,ID,LevelName,LevelOrder,LevelNum,LevelJifen,TitleType,TitleTypeNum
	dim BoardType
	
	action = sqlchg(Request.QueryString("action"))
	ID = sqlcheck(Request.QueryString("ID"))
	BoardType = sqlcheck(Request.Form("BoardType"))
	LevelName = sqlchg(Request.Form(("LevelName")))
	LevelOrder = sqlchg(Request.Form("LevelOrder"))
	LevelNum = sqlchg(Request.Form("LevelNum"))
	LevelJifen = sqlchg(Request.Form("LevelJifen"))
	
	
	if action = "add" then
		conn.execute("Insert into bbsBoard (BoardName,BoardPic,BoardContent,OrderID,BoardType) values ('"&LevelName&"','"&LevelOrder&"','"&LevelNum&"','"&LevelJifen&"','"&BoardType&"')")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='bbsBoard.asp';</script>")
		Response.End()
	end if
	if action = "edit" then
		conn.execute("Update bbsBoard set BoardName = '"&LevelName&"',BoardPic = '"&LevelOrder&"',BoardContent = '"&LevelNum&"',OrderID = '"&LevelJifen&"',BoardType = '"&BoardType&"' where BoardID = "&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='bbsBoard.asp';</script>")
		Response.End()
	end if
	if action = "del" then
		conn.execute("Delete from bbsBoard where BoardID = "&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='bbsBoard.asp';</script>")
		Response.End()
	end if
	
	set rs = conn.execute("Select BoardID,BoardName,BoardPic,BoardContent,OrderID,BoardType from bbsBoard order by OrderID,BoardID desc")
	if not rs.eof then
		Level = rs.getrows
		Num = ubound(Level,2)
		if not isnumeric(LevelNum) then
			Num = 1
		end if
	end if
	
	'读主题类别
	set rs = conn.execute("Select * from BoardType")
	if not rs.eof then
		TitleType = rs.getrows
		TitleTypeNum = ubound(TitleType,2)
		if not isnumeric(TitleTypeNum) then
			TitleTypeNum = 1
		end if
	else
		Response.Write("请先添加论坛类别")
		Response.End()
	end if
%>