ASP模拟MVC模式编程

esponse.Redirect("messages.asp?mess_name=DEL_SUCCESS&back_page=adminusers_gl.asp?action=list")
ASO.Close
End Function

''获取所有管理员组列表
Public Function Get_AdminGroups() 
sql="select admingroup_id,admingroup_name from ce_admingroups where admingroup_language=''"&LANGUAGE&"'' order by admingroup_id asc"
ASO.Open sql,conn,1,3
response.Write("&nbsp;<select name=admingroup_id>")
while not ASO.eof
response.Write("<option value="&ASO("admingroup_id")&">"&ASO("admingroup_name")&"</option>")
ASO.movenext
wend
response.Write("</select>")
ASO.Close
End Function

''获取所有管理员组列表,并选中当前所在管理员组
Public Function Get_AdminGroups_S() 
sql="select admingroup_id,admingroup_name from ce_admingroups where admingroup_language=''"&LANGUAGE&"'' order by admingroup_id asc"
ASO.Open sql,conn,1,3
response.Write("&nbsp;<select name=admingroup_id>")
while not ASO.eof
if ASO("admingroup_id")=admingroup_id then
s="selected"
else
s=""
end if
response.Write("<option value="&ASO("admingroup_id")&" "&s&">"&ASO("admingroup_name")&"</option>")
ASO.movenext
wend
response.Write("</select>")
ASO.Close
End Function

''公用属性，供外部程序调用
Public Property Get AUName 
AUName = adminuser_name 
End Property

Public Property Get AUPassword 
AUPassword = adminuser_password 
End Property

Public Property Get AUGroupid 
AUGroupid = admingroup_id 
End Property

Public Property Get AUIsshow 
AUIsshow = adminuser_isshow 
End Property

Public Property Get AUSelfconfig 
AUSelfconfig = adminuser_selfconfig 
End Property

Public Property Get AURealname 
AURealname = adminuser_realname 
End Property

End Class
%>
adminusers_gl.asp代码如下：
<%
  rem *****************通用网站管理系统***********************************
  rem 页面功能：网站后台管理员添加修改表单
  rem @author 蔡晓亮
  rem @version 1.0
  rem @date 2005-2-22
%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!--#include file="../include/common.config.asp"-->
<!--#include file="../include/common.function.asp"-->
<!--#include file="../include/md5.asp"-->
<!--#include file="adminusers_class.asp"-->
<%
action=trim(replace(request("action"),"''",""))
Set GL = New AdminUsersGl      ''建立类的实例
%>
<%
if action="add" then
adminuser_name=trim(replace(request("adminuser_name"),"''",""))
adminuser_password=md5(trim(replace(request("adminu