ASP模拟MVC模式编程
ser_password"),"''","")),32)
admingroup_id=trim(replace(request("admingroup_id"),"''",""))
adminuser_realname=trim(replace(request("adminuser_realname"),"''",""))
adminuser_selfconfig=trim(replace(request("adminuser_selfconfig"),"''",""))
adminuser_isshow=trim(replace(request("adminuser_isshow"),"''",""))
adminuser_language=LANGUAGE
if adminuser_name<>"" then
GL.AdminUsers_Add adminuser_name,adminuser_password,admingroup_id,adminuser_realname,adminuser_selfconfig,adminuser_isshow,adminuser_language
end if
end if
if action="modi" then
adminuser_id=trim(replace(request("adminuser_id"),"''",""))
GL.AdminUsers_Xx adminuser_id
end if
if action="modideal" then
adminuser_id=trim(replace(request("adminuser_id"),"''",""))
adminuser_name=trim(replace(request("adminuser_name"),"''",""))
adminuser_password_n=trim(replace(request("adminuser_password_n"),"''",""))
adminuser_password_o=trim(replace(request("adminuser_password_o"),"''",""))
admingroup_id=trim(replace(request("admingroup_id"),"''",""))
adminuser_isshow=trim(replace(request("adminuser_isshow"),"''",""))
adminuser_selfconfig=trim(replace(request("adminuser_selfconfig"),"''",""))
adminuser_realname=trim(replace(request("adminuser_realname"),"''",""))
adminuser_language=LANGUAGE
if adminuser_id<>"" and adminuser_password_n<>"" then
adminuser_password_n=md5(adminuser_password_n,32)
''response.Write(adminuser_password_n)
GL.AdminUsers_Modideal adminuser_id,adminuser_name,adminuser_password_n,admingroup_id,adminuser_isshow,adminuser_selfconfig,adminuser_language,adminuser_realname
end if
if adminuser_id<>"" and adminuser_password_n="" then
''response.Write(adminuser_password_n&"cxl")
GL.AdminUsers_Modideal adminuser_id,adminuser_name,adminuser_password_o,admingroup_id,adminuser_isshow,adminuser_selfconfig,adminuser_language,adminuser_realname
end if
end if
if action="del" then
adminuser_id=trim(replace(request("adminuser_id"),"''",""))
GL.AdminUsers_Del adminuser_id
end if
%>
<%
title="管理员管理"
css="<link rel=stylesheet href=style/css/style.css type=text/css>"
body="<body topmargin=5 leftmargin=5 bgcolor=#555555>"
ShowHeadHtml title,LANGUAGE,css,body ''调用公用函数产生头部代码
%>
<%if action="add" then%>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center height="85">
<form name="form1" method="post" action="adminusers_gl.asp?action=add">
<tr>
<td height="50" colspan="2" align="center" bgcolor="#f1f1f1"><font class="title"><b><%=title%></b></font></td>
</tr>
<tr align="center">
<td width="23%" height="32" align=
admingroup_id=trim(replace(request("admingroup_id"),"''",""))
adminuser_realname=trim(replace(request("adminuser_realname"),"''",""))
adminuser_selfconfig=trim(replace(request("adminuser_selfconfig"),"''",""))
adminuser_isshow=trim(replace(request("adminuser_isshow"),"''",""))
adminuser_language=LANGUAGE
if adminuser_name<>"" then
GL.AdminUsers_Add adminuser_name,adminuser_password,admingroup_id,adminuser_realname,adminuser_selfconfig,adminuser_isshow,adminuser_language
end if
end if
if action="modi" then
adminuser_id=trim(replace(request("adminuser_id"),"''",""))
GL.AdminUsers_Xx adminuser_id
end if
if action="modideal" then
adminuser_id=trim(replace(request("adminuser_id"),"''",""))
adminuser_name=trim(replace(request("adminuser_name"),"''",""))
adminuser_password_n=trim(replace(request("adminuser_password_n"),"''",""))
adminuser_password_o=trim(replace(request("adminuser_password_o"),"''",""))
admingroup_id=trim(replace(request("admingroup_id"),"''",""))
adminuser_isshow=trim(replace(request("adminuser_isshow"),"''",""))
adminuser_selfconfig=trim(replace(request("adminuser_selfconfig"),"''",""))
adminuser_realname=trim(replace(request("adminuser_realname"),"''",""))
adminuser_language=LANGUAGE
if adminuser_id<>"" and adminuser_password_n<>"" then
adminuser_password_n=md5(adminuser_password_n,32)
''response.Write(adminuser_password_n)
GL.AdminUsers_Modideal adminuser_id,adminuser_name,adminuser_password_n,admingroup_id,adminuser_isshow,adminuser_selfconfig,adminuser_language,adminuser_realname
end if
if adminuser_id<>"" and adminuser_password_n="" then
''response.Write(adminuser_password_n&"cxl")
GL.AdminUsers_Modideal adminuser_id,adminuser_name,adminuser_password_o,admingroup_id,adminuser_isshow,adminuser_selfconfig,adminuser_language,adminuser_realname
end if
end if
if action="del" then
adminuser_id=trim(replace(request("adminuser_id"),"''",""))
GL.AdminUsers_Del adminuser_id
end if
%>
<%
title="管理员管理"
css="<link rel=stylesheet href=style/css/style.css type=text/css>"
body="<body topmargin=5 leftmargin=5 bgcolor=#555555>"
ShowHeadHtml title,LANGUAGE,css,body ''调用公用函数产生头部代码
%>
<%if action="add" then%>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center height="85">
<form name="form1" method="post" action="adminusers_gl.asp?action=add">
<tr>
<td height="50" colspan="2" align="center" bgcolor="#f1f1f1"><font class="title"><b><%=title%></b></font></td>
</tr>
<tr align="center">
<td width="23%" height="32" align=