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
％>
<!--#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("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代码减少，这样美工就能很轻松的修改程序界面了！
0
投稿猜你喜欢
- 本文更多将会介绍三思在日常中经常会用到的，或者虽然很少用到，但是感觉挺有意思的一些函数。分二类介绍，分别是： 著名函数篇－经常用到的函数 非
- 如下拉框的text是<input type=button value=ggg>，那么生成的combobox里
- 代码如下:CREATE TABLE #tmptb(tbname sysname,tbrows int ,tbREserved varchar
- Macromedia Dreamweaver MX 2004提供了更多功能强劲的可视化设计工具、应用开
- SQL是用于访问ORACLE数据库的语言，PL/SQL扩展和加强了SQL的功能，它 同时引入了更强的程序逻辑。 PL/SQL支持DML命令和
SqlBulkCopy 来自数据源的 String 类型的给定值不能转换为指定目标列的类型 nvarchar。 在网上找了下，大都说是因为数- 这篇论坛文章（赛迪网技术社区）主要介绍了配置一个高可用性的MySQL服务器负载均衡群集的具体过程，详细内容请参考下文：本文将告诉你如何配置一
- 1.MySQL中并发和隔离控制机制Meta-data元数据锁：在table cache缓存里实现的，为DDL(Data Definition
- 使用SQL Server事件探查器工具，你可用一个捕获到的跟踪来收集有关服务器的重要信息。与索引优化向导(Index Tuning Wiza
- 我们经常使用动态创建 JavaScript 的方式来实现 JavaScript 文件的无阻塞（Non-blocking）、并行下载（Para
- Application对象 Application对象是个应用程序级的对象，用来在所有用户间共享信息，并可以在Web应用程序运行期间持久地保
- 代码如下: var lishustr = "qwertyuiopasdfghjklmnbvcxz"; var s = l
- 1、授权机制的主要作用是什么?授权机制的基本作用是给某个主机上的用户对某个数据库以select，insert，update和detete的权
- google 的设计原则中文1.易用性-聚焦在人，方便他们的生活，工作，梦想。2.速度-分秒必争3.简单-简单而强有力4.关联性- 对初学者
- 方法一：<script language="JavaScript"> <!--
- 问题:1. 访问 ASP 页面时，出现以下错误:Active Server Pages 错误 'ASP 0201'错误无效的
- 一、输出指令ASP的输出指令<％ =expression ％>显示表达式的值。这个输出指令等同于使用Resp
- 一共4个页面：form.asp; chk.asp; num.asp; count.asp得到一个随即数字。加密
- 今天无意在坛子里看到这样一个求救帖（这里），看了一下，感觉问题比较好解决。但是问题背后的问题却引起了我的反思。把他的页面整理一下看看（为了便
- 1 引言 在关系数据库（DB2，Oracle，Sybase，Informix和SQL Server）最小的恢复和交易单位为一个事务（Tran
