ASP模拟MVC模型的编程方式

adminusers_gl.asp代码如下：
<%
rem *****************通用网站管理系统***********************************
rem 页面功能：网站后台管理员添加修改表单
rem @author 蔡晓亮
rem @version 1.0
%>
<%
Response.Buffer=true
Response.Expires=0
%>




<%
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("adminuser_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="right" bgcolor="#f1f1f1"><strong>用户名：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_name" type="text" size="40"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>密码：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_password" type="password" size="40"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>重复密码：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_password2" type="password" size="40"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong><span class="td1">是否有效</span> ：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input type="radio" value="Y" name="adminuser_isshow" checked>
是 <input type="radio" value="N" name="adminuser_isshow">否</td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>真实姓名：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_realname" type="text" size="40"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>管理员组：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1">
<%
GL.Get_AdminGroups
%>
</td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>备注：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1">
       <textarea name="adminuser_selfconfig" cols="60" rows="10"></textarea></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"> </td>
    <td width="77%" align="left" bgcolor="#f1f1f1">
     <input type="submit" name="submit" value="添加">
<input type="reset" name="reset" value="重置">
    </td>
</tr>
</form>
</table>
<%end if%>
<%if action="modi" 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=modideal">
<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="right" bgcolor="#f1f1f1"><strong>用户名：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_id" type="hidden" value=<%=adminuser_id%>><input name="adminuser_name" type="text" size="40" value="<%=GL.AUName%>"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>新密码：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_password_n" type="password" size="40"><input name="adminuser_password_o" type="hidden" value="<%=GL.AUPassword%>"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>重复新密码：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_password2_n" type="password" size="40"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong><span class="td1">是否有效</span> ：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input type="radio" value="Y" name="adminuser_isshow" <%if GL.AUIsshow="Y" then%>checked<%end if%>>
是 <input type="radio" value="N" name="adminuser_isshow" <%if GL.AUIsshow="N" then%>checked<%end if%>>否</td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>真实姓名：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1"> <input name="adminuser_realname" type="text" size="40" value="<%=GL.AURealname%>"></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>管理员组：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1">
<%
GL.Get_AdminGroups_S
%>
</td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"><strong>备注：</strong></td>
    <td width="77%" align="left" bgcolor="#f1f1f1">
       <textarea name="adminuser_selfconfig" cols="60" rows="10"><%=GL.AUSelfconfig%></textarea></td>
</tr>
<tr align="center">
    <td width="23%" height="32" align="right" bgcolor="#f1f1f1"> </td>
    <td width="77%" align="left" bgcolor="#f1f1f1">
     <input type="submit" name="submit" value="添加">
<input type="reset" name="reset" value="重置">
    </td>
</tr>
</form>
</table>
<%end if%>
<%
if action="list" then
%>
<table width="100%" align=center border="0" cellspacing="1" cellpadding="0">
<tr><td colspan=6></td></tr>
<tr bgcolor="#999999"><td align=right class=td1 width="27%" height="25">
<p align="center">名称</td>
   <td width="30%" align=right class=td1><div align="center">所属组</div></td>
   <td width="13%" align=right class=td1><div align="center">登陆次数</div></td>
   <td width="10%" height="25" class=td2><div align="center">是否有效</div></td>
<td width="10%" class=td2><div align="center">修改</div></td>
<td width="10%" class=td2><div align="center">删除</div></td>
</tr>
<%
GL.AdminUsers_List
%>
<tr>
   <td height="25" colspan="6" align=right bgcolor="#F1F1F1" class=td1> </td>
    </tr>
</table>
<%end if%>
<%
Set GL = Nothing
%>
<%
ShowBottomHtml    '调用公用函数产生尾部代码
%>

以上程序写的不是很好，但结构还是比较清晰的，在adminusers_gl.asp中分别对action进行判断，去调用类中的不同方法，在下面页面部分，尽量使ASP代码减少，这样美工就能很轻松的修改程序界面了！