asp功能代码的通用修改与添加

然后我用一点点空余时间发送和添加和删除一个功能函数。实验的结构可以由iis.5web服务器访问数据库的应用。我没有详细说，因为每个人都应该知道，我把函数直接。你只要稍微修改使用它。
复制代码代码如下所示：
<
Sub AdminEdit（）
昏暗的行动，rscheckadd，RS，SQL
行动= request.querystring（行动）
如果行动=SaveEdit ，然后保存修改管理员信息
集= server.createobject（ADODB。记录集）
如果结果，则创建Web管理员
集rscheckadd = conn.execute（选择从哪里adminname ameav_admin adminname =装饰（Request.Form（adminname ）））
如果不是（rscheckadd.bof和rscheckadd。EOF）然后决定是否存在此管理员名称
response.write <！——
警报（'trim（Request.Form（adminname ））管理员已经存在，请换一个用户名再试一次！）；（1）history.back；

response.end
最后如果
SQL =SELECT * FROM ameav_admin
rs.open sql，Conn，1,3
rs.addnew
如果len（TRIM（Request.Form（adminname ）））10
response.write <！——
警报（3-10 'administrator登录名和需要的字符数！）；（1）history.back；

response.end
最后如果
如果len（TRIM（Request.Form（密码）））16
response.write <！——
警报（'administrator需要密码，和字符数6-16！）；（1）history.back；

response.end
最后如果
如果请求。形式（密码）> Request.Form（vpassword ）然后
response.write <！——
警报（两个密码不同！）；（1）history.back；

response.end
最后如果
RS（adminname （Request.Form饰）=（adminname ））
如果请求表单（工作）= 1，那么
RS（）=要求表单（工作）
其他的
RS（）= 0
最后如果
RS（密码）= MD5（Request.Form（密码））
RS（用户名（Request.Form饰）=（用户名））
RS（adminpurview ）=要求表单（purview111 ）的要求。形式（purview112 ）的要求。形式（purview113 ）_
要求。形式（purview114 ）的要求。形式（purview115 ）的要求。形式（purview116 ）_
要求。形式（purview117 ）的要求。形式（purview118 ）的要求。形式（purview119 ）_
要求。形式（purview120 ）的要求。形式（purview121 ）的要求。形式（purview122 ）_
要求。形式（purview123 ）的要求。形式（purview124 ）的要求。形式（purview125 ）_
要求。形式（purview126 ）的要求。形式（purview127 ）的要求。形式（purview128 ）_
要求。形式（purview129 ）的要求。形式（purview130 ）的要求。形式（purview131 ）_
要求。形式（purview132 ）的要求。形式（purview133 ）的要求。形式（purview134 ）_
要求。形式（purview135 ）的要求。形式（purview136 ）的要求。形式（purview137 ）_
要求。形式（purview138 ）的要求。形式（purview139 ）的要求。形式（purview140 ）_
要求。形式（purview141 ）的要求。形式（purview142 ）的要求。形式（purview143 ）_
要求。形式（purview144 ）的要求。形式（purview145 ）的要求。形式（purview146 ）_
要求。形式（purview147 ）的要求。形式（purview148 ）的要求。形式（purview149 ）_
要求。形式（purview150 ）的要求。形式（purview151 ）的要求。形式（purview152 ）_
要求。形式（purview153 ）
RS（解释（Request.Form饰）=（解释））
RS（增加）=现在（）
最后如果
如果结果，那么修改Web管理员
SQL =SELECT * FROM ameav_admin id是ID
rs.open sql，Conn，1,3
RS（adminname （Request.Form饰）=（adminname ））
如果请求表单（工作）= 1，那么
RS（）=要求表单（工作）
其他的
RS（）= 0
最后如果
如果修剪（Request.Form（密码））< >然后
如果len（TRIM（Request.Form（密码）））20
response.write <！——
警报（'administrator需要密码，和字符数6-20！）；（1）history.back；

response.end
最后如果
如果请求。形式（密码）> Request.Form（vpassword ）然后
response.write <！——
警报（两个密码不同！）；（1）history.back；

response.end
最后如果
RS（密码）= MD5（Request.Form（密码））
最后如果
RS（用户名（Request.Form饰）=（用户名））
RS（adminpurview ）=要求表单（purview111 ）的要求。形式（purview112 ）的要求。形式（purview113 ）_
要求。形式（purview114 ）的要求。形式（purview115 ）的要求。形式（purview116 ）_
要求。形式（purview117 ）的要求。形式（purview118 ）的要求。形式（purview119 ）_
要求。形式（purview120 ）的要求。形式（purview121 ）的要求。形式（purview122 ）_
要求。形式（purview123 ）的要求。形式（purview124 ）的要求。形式（purview125 ）_
要求。形式（purview126 ）的要求。形式（purview127 ）的要求。形式（purview128 ）_
要求。形式（purview129 ）的要求。形式（purview130 ）的要求。形式（purview131 ）_
要求。形式（purview132 ）的要求。形式（purview133 ）的要求。形式（purview134 ）_
要求。形式（purview135 ）的要求。形式（purview136 ）的要求。形式（purview137 ）_
要求。形式（purview138 ）的要求。形式（purview139 ）的要求。形式（purview140 ）_
要求。形式（purview141 ）的要求。形式（purview142 ）的要求。形式（purview143 ）_
要求。形式（purview144 ）的要求。形式（purview145 ）的要求。形式（purview146 ）_
要求。形式（purview147 ）的要求。形式（purview148 ）的要求。形式（purview149 ）_
要求。形式（purview150 ）的要求。形式（purview151 ）的要求。形式（purview152 ）_
要求。形式（purview153 ）
RS（解释（Request.Form饰）=（解释））
最后如果
rs.update
关闭
设置=无
response.write <！——
警报（Web管理员'successful编辑！）；changeadminflag（'webmaster '）；location.replace（'adminlist。asp）；

其他提取管理员信息
如果结果，那么
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM ameav_admin id是ID
rs.open sql，Conn，1,1
adminname = RS（adminname ）
工作= RS（）
用户名= RS（用户名）
权限= RS（adminpurview ）
解释= RS（解释）
关闭
设置=无
最后如果
最后如果
端子

%>