当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 通用修改和增加函数代码

ASP
ASP连接SQL2005数据库连接代码
ASP程序与SQL存储过程结合使用详解
asp 小偷采集程序原理与常用函数方法
防盗链接ASP函数
asp将table生成excel文件(xls)
asp实现新评论自动发短信提示的代码
asp最简单的生成验证码代码
ASP 常见对象总结(熟悉一下利用以后的开发使用)
ASP UTF-8编码生成静态网页的函数
ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法
asp Access数据备份,还原,压缩类代码
asp fso操作类
ASP 自动采集实现代码
asp 一些支付接口
ASP 递归调用 已知节点查找根节点的函数
用asp实现读取文件的最后一行的代码
用asp实现的获取文件夹中文件的个数的代码
ASP与Excel结合生成数据表和Chart图的代码
iis7 ASP+Access数据库连接错误
ASP 日期的加减运算实现代码

No. « 220 221 222 223 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-12   浏览: 94 ::
收藏到网摘: n/a

一般来说编数据库类的程序主要要解决的问题无非是添加，删除，修改和查询。这类编程都非常的简单。 接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用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
%>