asp 通用修改和增加函数代码

　　接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。
复制代码 代码如下:
<%
sub AdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString(Action)
if Action=SaveEdit then 保存编辑管理员信息
set rs = server.createobject(adodb.recordset)
if Result=Add then 创建网站管理员
set rsCheckAdd = conn.execute(select AdminName from Ameav_Admin where AdminName= & trim(Request.Form(AdminName)) & )
if not (rsCheckAdd.bof and rsCheckAdd.eof) then 判断此管理员名是否存在
response.write <script language=javascript><!--
alert( & trim(Request.Form(AdminName)) & 管理员已经存在，请换一个登录名再试试！);history.back(-1);
// --></script>
response.end
end if
sql=select * from Ameav_Admin
rs.open sql,conn,1,3
rs.addnew
if len(trim(Request.Form(AdminName)))<3 or len(trim(Request.Form(Password)))>10 then
response.write <script language=javascript><!--
alert(管理员登录名必填，且字符数为3-10位！);history.back(-1);
// --></script>
response.end
end if
if len(trim(Request.Form(Password)))<6 or len(trim(Request.Form(Password)))>16 then
response.write <script language=javascript><!--
alert(管理员密码必填，且字符数为6-16位！);history.back(-1);
// --></script>
response.end
end if
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <script language=javascript><!--
alert(两次输入的密码不一样！);history.back(-1);
// --></script>
response.end
end if
rs(AdminName)=trim(Request.Form(AdminName))
if Request.Form(Working)=1 then
rs(Working)=Request.Form(Working)
else
rs(Working)=0
end if
rs(Password)=Md5(Request.Form(Password))
rs(UserName)=trim(Request.Form(UserName))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
Request.Form(Purview114) & Request.Form(Purview115) & Request.Form(Purview116) &_
Request.Form(Purview117) & Request.Form(Purview118) & Request.Form(Purview119) &_
Request.Form(Purview120) & Request.Form(Purview121) & Request.Form(Purview122) &_
Request.Form(Purview123) & Request.Form(Purview124) & Request.Form(Purview125) &_
Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_
Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_
Request.Form(Purview132) & Request.Form(Purview133) & Request.Form(Purview134) &_
Request.Form(Purview135) & Request.Form(Purview136) & Request.Form(Purview137) &_
Request.Form(Purview138) & Request.Form(Purview139) & Request.Form(Purview140) &_
Request.Form(Purview141) & Request.Form(Purview142) & Request.Form(Purview143) &_
Request.Form(Purview144) & Request.Form(Purview145) & Request.Form(Purview146) &_
Request.Form(Purview147) & Request.Form(Purview148) & Request.Form(Purview149) &_
Request.Form(Purview150) & Request.Form(Purview151) & Request.Form(Purview152) &_
Request.Form(Purview153)
rs(Explain)=trim(Request.Form(Explain))
rs(AddTime)=now()
end if
if Result=Modify then 修改网站管理员
sql=select * from Ameav_Admin where ID=&ID
rs.open sql,conn,1,3
rs(AdminName)=trim(Request.Form(AdminName))
if Request.Form(Working)=1 then
rs(Working)=Request.Form(Working)
else
rs(Working)=0
end if
if trim(Request.Form(Password))<> then
if len(trim(Request.Form(Password)))<6 or len(trim(Request.Form(Password)))>20 then
response.write <script language=javascript><!--
alert(管理员密码必填，且字符数为6-20位！);history.back(-1);
// --></script>
response.end
end if
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <script language=javascript><!--
alert(两次输入的密码不一样！);history.back(-1);
// --></script>
response.end
end if
rs(Password)=Md5(Request.Form(Password))
end if
rs(UserName)=trim(Request.Form(UserName))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
Request.Form(Purview114) & Request.Form(Purview115) & Request.Form(Purview116) &_
Request.Form(Purview117) & Request.Form(Purview118) & Request.Form(Purview119) &_
Request.Form(Purview120) & Request.Form(Purview121) & Request.Form(Purview122) &_
Request.Form(Purview123) & Request.Form(Purview124) & Request.Form(Purview125) &_
Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_
Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_
Request.Form(Purview132) & Request.Form(Purview133) & Request.Form(Purview134) &_
Request.Form(Purview135) & Request.Form(Purview136) & Request.Form(Purview137) &_
Request.Form(Purview138) & Request.Form(Purview139) & Request.Form(Purview140) &_
Request.Form(Purview141) & Request.Form(Purview142) & Request.Form(Purview143) &_
Request.Form(Purview144) & Request.Form(Purview145) & Request.Form(Purview146) &_
Request.Form(Purview147) & Request.Form(Purview148) & Request.Form(Purview149) &_
Request.Form(Purview150) & Request.Form(Purview151) & Request.Form(Purview152) &_
Request.Form(Purview153)
rs(Explain)=trim(Request.Form(Explain))
end if
rs.update
rs.close
set rs=nothing
response.write <script language=javascript><!--
alert(成功编辑网站管理员！);changeAdminFlag(网站管理员);location.replace(AdminList.asp);
// --></script>
else 提取管理员信息
if Result=Modify then
set rs = server.createobject(adodb.recordset)
sql=select * from Ameav_Admin where ID=& ID
rs.open sql,conn,1,1
AdminName=rs(AdminName)
Working=rs(Working)
UserName=rs(UserName)
Purview=rs(AdminPurview)
Explain=rs(Explain)
rs.close
set rs=nothing
end if
end if
end sub

%>