位置：首页>> 网络编程>> Asp编程>> ASP模拟MVC模型的编程方式（2）

ASP模拟MVC模型的编程方式（2）

作者：蔡晓亮　来源：网页教学网　发布时间：2008-10-15 14:51:00　

标签：

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代码减少，这样美工就能很轻松的修改程序界面了！

第一页上一页 1

投稿

ASP模拟MVC模型的编程方式（2）

猜你喜欢