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 

%>