asp 通用修改和增加函数代码
来源:asp之家 发布时间:2011-03-16 11:15:00
接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用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
%>
猜你喜欢
- 上一篇的DOCTYPE声明好以后,接下来的代码是:<html xmlns="xhtml" ta
- 社会上的任何人,都不愿意自己给人留下难以交往的印象,就算是那些冷漠、寡情的人他们也在不断地寻求一种通道,达到与他人的交流和沟通。如果,在你与
- 选用Access作为建站数据库,除了低成本的原因之外,主要是Access数据库的易发布性,一个MDB文件就包括了全部的表和数据,开发完后连同
- 问题:我想上传文件时后改名,下载时又将名改回来。 如:我上传一张“我的照片.jpg”上传后改为系统数名“20040302001.jpg”下载
- 方法一:利用Cookies对象 因为Cookies对象把变量的值保存在浏览器客户端,所以可以根据Cookies保存的IsVoted的值来判断
- 使用字符串建立查询能加快服务器的解析速度吗?我记的在那儿看过,好像是说使用字符串建立SQL查询是有它的道理的,像这样:<%mySQL=
- Oracle SQL语句中的Update可以和SEQUENCE联合使用,以达到更新某字段的值连续编号,而不需要使用游标去逐条遍历更新数据库记
- 使用ASP设置指定站点CPU最大使用程度'=============================================
- 目前代码应该没什么bug了,兼容IE6.0 & FF 1.5, 通过xHTML 的Transitional验证和 CSS 验证。为了
- key_buffer_size - 这对MyISAM表来说非常重要。如果只是使用MyISAM表,可以把它设置为可用内存的 30-40%。合理
- 是扫盲文章, 其实我自己就是个被扫对象, 为了学习W3C标准地设计网页, 想到写这个系列的文章当作自己的学习笔记, 不求每篇都写很好, 只求
- 译者的话:寡妇、孤儿、捧打鸳鸯,这些场面足以让你有想哭的冲动,但当你在排版设计时,同样会碰到这些问题,甚至可能更槽。虽说今天的页面排版软件可
- 通过优化CSS代码,减小对系统资源的占用。自己整理出几个能减少系统资源占用的CSS写法,要优化网站的页面加载速度,这些注意点不能忽视!一、尽
- 在CSS中,模式(pattern)匹配规则决定那种样式规则应用于文档树(document tree)的哪个元素。这些模式叫着选择符(sele
- 在本身比较复杂的页面里,再突出信息,往往是把几种方法叠加起来使用,比如加粗加大、加粗加色等,区别在于使用的类别和程度。导致的结果是呈现越来越
- 一个简单的JS显示日期代码,可以显示星期几<script type="text/javascript">fu
- 数据库优化是一项很复杂的工作,因为这最终需要对系统优化的很好理解才行。尽管对系统或应用系统的了解不多的情况下优化效果还不错,但是如果想优化的
- :hover是我们在CSS设计中最常运用的伪类之一,许多绚丽效果的实现离不开伪类:hover,比如我们常见的纯CSS菜单、相册效果等等。或许
- 可能接触网站与编程设计的人都知道,一个属性值需要引号包括起来,但是有的时候就是因为没有正确设定引号类型,导致程序出错,就连我自己也是这样,我
- 1、800*600下,网页宽度保持在778以内,就不会出现水平滚动条,高度则视版面和内容决定。2、1024*768下,网页宽度保持在1002