【下载文档:  asp通用修改和增加函数代码.txt 】

---

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 "" 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 "" response.end end if if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then response.write "" response.end end if if Request.Form("Password")<>Request.Form("vPassword") then response.write "" 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 "" response.end end if if Request.Form("Password")<>Request.Form("vPassword") then response.write "" 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 "" 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 %>