admin_admin_user_save.asp

于毕业设计与论文以及做课题用-MSK Simulink simulation program for the design and graduation thesis topic, and makin

<!--#include file="../Conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="Admin_Session.asp"-->
<%
dim action,AdminName,AdminPass,AdminRank,Admin_Bmenu,Admin_Smenu,ID
action=Trim(request("action"))
ID=Trim(request("id"))
AdminName=trim(request.form("AdminName"))
AdminPass=Trim(Request.Form("AdminPass"))
IF Len(AdminPass)>1 Then
AdminPass=md5(AdminPass)
End IF
AdminRank=Trim(Request.Form("AdminRank"))

select case action
'如果是修改一个后台用户
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from HX33_Admin where id="&id,conn,1,3
Rs("AdminName")=AdminName
		IF Len(AdminPass)>1 Then
		Rs("AdminPass")=AdminPass
		End IF		
		Rs("AdminRank")=AdminRank
		Rs.update()
rs.Close
set rs=nothing
 response.Write "<script language='javascript'>alert('修改成功！');location='Admin_Admin_User.asp';</script>"
'如果是新增加一个后台用户
case "add"

set Rs=server.CreateObject("adodb.recordset")
Sqlstr="select * from [HX33_Admin] Where AdminName='"&AdminName&"'"
Rs.open Sqlstr,conn,1,3
    IF  Rs.Recordcount=0 Then
		Rs.addnew()
		Rs("AdminName")=AdminName
		Rs("AdminPass")=AdminPass
		Rs("AdminRank")=AdminRank
		Rs.update()
		 response.Write "<script language='javascript'>alert('添加成功！');location='Admin_Admin_User.asp';</script>"
	Else
	    response.Write "<script language='javascript'>alert('该用户名已经存在！');location='Admin_Admin_User.asp';</script>"
	
	End IF
Rs.close()
set Rs=nothing
'如果是删除一个后台用户
case "del"
conn.execute ("delete from HX33_Admin where id="&ID)
response.Write "<script language='javascript'>alert('删除成功！');location='Admin_Admin_User.asp';</script>"
end select
ConnClose()
%>