boardtype_inc.asp

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

<%
	call CheckType(40)	

	dim i,j,rs
	dim BoardType,BoardTypeNum,action,BoardTypeName,ID
	
	action = sqlchg(Request.QueryString("action"))
	ID = sqlcheck(Request.QueryString("ID"))
	BoardTypeName = sqlchg(Request.Form("TypeName"))
	
	
	if action = "add" then
		conn.execute("Insert into BoardType (boardTypeName) values ('"&BoardTypeName&"')")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='boardType.asp';</script>")
		Response.End()
	end if 
	
	if action = "edit" then
		conn.execute("Update BoardType set boardTypeName = '"&BoardTypeName&"' where boardTypeID = "&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='boardType.asp';</script>")
		Response.End()
	end if 
	
	if action = "del" then
		conn.execute("Delete from BoardType where boardTypeID = "&ID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='boardType.asp';</script>")
		Response.End()
	end if 
	
	set rs = conn.execute("select * from BoardType")
	if not rs.eof then
		BoardType = rs.getrows
		BoardTypeNum = ubound(BoardType,2)
		if not isnumeric(BoardTypeNum) then
			BoardTypeNum = 1
		end if
	else
		BoardTypeNum = -1
	end if
%>