addinfoclassdone.asp

来自「招标代码」· ASP 代码 · 共 32 行

<!--#include file="path.asp"-->
<!--#include file="IsAdmin.asp"-->
<%
	if Admin_Flag=1 or Admin_Flag=3 or Admin_Flag=4 then
	set rs=conn.execute("select * from Type where TypeName='"&request("InfoClassName")&"'")
		if rs.eof or rs.bof then
		rs.close
		set rs=nothing
		conn.execute("insert into Type(TypeName) values('"&request("InfoClassName")&"')")
		conn.close
		set conn=nothing
		response.write "<script language=javascript>"
		response.write"alert('添加成功！');"
		response.write"location.href='AddInfoClass.asp';"
		response.write "</script>"
		else
		rs.close
		set rs=nothing
		response.write "<script language=javascript>"
		response.write"alert('该分类名已经存在！');"
		response.write"location.href='AddInfoClass.asp';"
		response.write "</script>"
		end if

	else
		response.write "<script language=javascript>"
		response.write"alert('你的权限不够此操作！');"
		response.write"location.href='AdminLogin.asp';"
		response.write "</script>"
	end if
	
%>