CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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  %> 。

最后此篇关于asp 通用修改和增加函数代码的文章就讲到这里了,如果你想了解更多关于asp 通用修改和增加函数代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。