返回大旺国际登录网站

ASP通用修改和增加函数示例代码

时间:2010-05-13 11:07来源:大旺国际登录网站www.zhixing123.cn 编辑:麦田守望者

 

  1. 一般来说编数据库类的程序主要要解决的问题无非是添加,删除,修改和查询。这类编程都非常的简单。接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了,因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。  
  2.  
  3.  
  4. --------------------------------------------------------------------------------  
  5.  
  6. <%     
  7. sub AdminEdit()     
  8.   dim Action,rsCheckAdd,rs,sql     
  9.   Action=request.QueryString("Action")     
  10.   if Action="SaveEdit" then '保存编辑管理员信息     
  11.     set rs = server.createobject("adodb.recordset")     
  12.     if Result="Add" then '创建网站管理员     
  13.       set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")     
  14.       if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判断此管理员名是否存在     
  15.         response.write "<mce:script language=javascript><!--     
  16.  alert('" & trim(Request.Form("AdminName")) & "管理员已经存在,请换一个登录名再试试!');history.back(-1);     
  17. // --></mce:script>"     
  18.         response.end     
  19.       end if       
  20.       sql="select * from Ameav_Admin"    
  21.       rs.open sql,conn,1,3     
  22.       rs.addnew     
  23.       if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10  then     
  24.         response.write "<mce:script language=javascript><!--     
  25.  alert('管理员登录名必填,且字符数为3-10位!');history.back(-1);     
  26. // --></mce:script>"     
  27.         response.end     
  28.       end if           
  29.       if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16  then     
  30.         response.write "<mce:script language=javascript><!--     
  31.  alert('管理员密码必填,且字符数为6-16位!');history.back(-1);     
  32. // --></mce:script>
------分隔线----------------------------
标签(Tag):asp代码 asp实例 ASP函数
------分隔线----------------------------
推荐内容
猜你感兴趣
XML 地图 | Sitemap 地图