manage_ok.asp

狼道公司源码下载

<!--#include file="../Inc/Conn.asp" -->


<!--#include file="Check.asp" -->
<%
act=Request("act")
ID=Request("ID")
UserName=Request("UserName")
PassWord=Request("PassWord")
'Roles=Request("Roles")

select case act
   case "add"
      Set rs=server.CreateObject("adodb.recordset")
	  rs.open "select * from LangDaoManage where UserName='"&UserName&"'",Conn,3,3
	  if not rs.eof then
	     rs.close
		 set rs=nothing
	     response.Write("<script>alert('您添加的管理员的已经存在！');history.back();</script>")
		 Response.End()
	  end if
	  rs.addnew
	    rs("UserName")=UserName
		rs("Password")=PassWord
		'rs("Roles")=Roles
	  rs.update
	  rs.close
	  set rs=nothing
   case "mod"
      Set rs=server.CreateObject("adodb.recordset")
	  rs.open "select * from LangDaoManage where UserName='"&UserName&"' and ID<>"&ID,Conn,3,3
	  if not rs.eof then
	     rs.close
		 set rs=nothing
	     response.Write("<script>alert('您修改的管理员的名称已经存在！');history.back();</script>")
		 Response.End()
	  end if
	  rs.close
	  rs.open "select * from LangDaoManage where ID="&ID,Conn,3,3	
	    rs("UserName")=UserName
		rs("PassWord")=PassWord
	  rs.update
	  rs.close
	  set rs=nothing   
   case "del"
      Conn.Execute("Delete from LangDaoManage where ID="&ID)
end select   
Response.Redirect("Manage.asp")
%>