admin_save.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<!-- #include file="../inc/const.asp" -->
<%
pagename="adminsave"
pageadmin=10
%>

<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../inc/function.asp" -->
<!-- #include file="../inc/vote_function.asp" -->
<!-- #include file="../inc/sql.asp" -->
<!-- #include file="../inc/md5.asp" -->
<%
dim action
dim adminname
dim adminpassword
dim admin
action=FormatText(request("action"))
select case action
	case "add"
		adminname=FormatText(request("username"))
		adminpassword=FormatText(request("password"))
		admin=FormatText(request("admin"))
		if adminname="" or adminpassword="" then
			response.write "<script>alert('登陆名和密码不能为空');history.back();</script>"
			call connclose
			response.end
		end if

		conn.BeginTrans
		adminpassword=md5(adminpassword)
		call InsertSql("vote_admin","adminname,adminpassword,admin,userid","'"&adminname&"','"&adminpassword&"','"&admin&"','"&userid&"'")
		if err then
			conn.RollBackTrans
			'response.write err.description
			call showerror("添加管理员操作失败.")
		else
			conn.CommitTrans
			call showsuccess("管理员添加成功","admin_list.asp")
		end if



	case "mod"
		adminname=FormatText(request("username"))
		adminpassword=FormatText(request("password"))
		admin=FormatText(request("admin"))
		if adminname="" then
			response.write "<script>alert('登陆名不能为空');history.back();</script>"
			call connclose
			response.end
		end if
		conn.BeginTrans
		if adminpassword<>"" then
			adminpassword=md5(adminpassword)
			call UpdateSql("vote_admin","adminname,adminpassword,admin","'"&adminname&"','"&adminpassword&"','"&admin&"'","id="&FormatText(request("id")))
		else
			call UpdateSql("vote_admin","adminname,admin","'"&adminname&"','"&admin&"'","id="&FormatText(request("id")))
		end if
		if err then
			conn.RollBackTrans
			'response.write err.description
			call showerror("修改管理员资料操作失败.")
		else
			conn.CommitTrans
			call showsuccess("管理员资料修改成功","admin_list.asp")
		end if




	case "del"
		conn.BeginTrans
		call DeleteSql("vote_admin","id="&FormatText(request("id")))
		if err then
			conn.RollBackTrans
			'response.write err.description
			call showerror("删除管理员操作失败.")
		else
			conn.CommitTrans
			call showsuccess("管理员删除成功","admin_list.asp")
		end if
end select
call connclose	

%>