asp 通用修改和增加函数代码- ASP - 软晨网（RuanChen.com）

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

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 89 ::

收藏到网摘: n/a

asp 采集程序常用函数分析初学js者对javascript面向对象的认识分析

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

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

评论 (0) All