• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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 "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面向对象的认识分析
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp 通用修改和增加函数代码 asp,通用,修改,和,增加,函数,