<%@ LANGUAGE = VBScript.Encode %> 企业信息列表 <% if Instr(session("AdminPurview"),"|29,")=0 then response.write ("

您没有管理该模块的权限！
") response.end end if dim Result Result=request.QueryString("Result") dim ID,AdminName,Working,Password,vPassword,UserName,Purview,Explain,AddTime ID=request.QueryString("ID") if ID="" then ID=0 call AdminEdit() %>
网站管理员：添加，修改管理员信息
添加管理员 | 查看所有管理员 | 修改管理员密码

> > > > 1 then response.write ("style=display:none")%>>
【<%If Result = "Add" then%>添加<%ElseIf Result = "Modify" then%>修改<%End If%>管理员】
登录名称： > *3-10个字符
生效： >
管理员密码： *6-16个字符
确认密码： *
管理员名称：
操作权限： 0 then response.write ("checked")%>>网站参数设置 0 then response.write ("checked")%>> 日程类别管理 0 then response.write ("checked")%>> 日程列表管理 0 then response.write ("checked")%>> 添加日程 0 then response.write ("checked")%>> 价格类别管理 0 then response.write ("checked")%>> 价格列表管理
0 then response.write ("checked")%>>添加价格 0 then response.write ("checked")%>> 网站管理员查看 0 then response.write ("checked")%>> 网站管理员管理 0 then response.write ("checked")%>> 后台登录日志管理
0 then response.write ("checked")%>>生成静态页面管理 0 then response.write ("checked")%>> 编辑器和上传文件管理 0 then response.write ("checked")%>> 修改管理员密码 0 then response.write ("checked")%>> 数据库操作管理
0 then response.write ("checked")%>>空间统计管理 0 then response.write ("checked")%>>阻止SQL注入记录 0 then response.write ("checked")%>>访问统计管理 0 then response.write ("checked")%>> 首页幻灯显示
操作权限： 内置超级管理员帐号
备注：
<% 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 LiangJingCMS_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'") if not (rsCheckAdd.bof and rsCheckAdd.eof) then response.write "" response.end end if sql="select * from LiangJingCMS_Admin" rs.open sql,conn,1,3 rs.addnew if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("AdminName")))>10 then response.write "" response.end end if if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then response.write "" response.end end if if Request.Form("Password")<>Request.Form("vPassword") then response.write "" 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("Purview1") & Request.Form("Purview2") &_ Request.Form("Purview3") & Request.Form("Purview4") & Request.Form("Purview5") &_ Request.Form("Purview6") & Request.Form("Purview7") & Request.Form("Purview8") &_ Request.Form("Purview9") & Request.Form("Purview10") & Request.Form("Purview11") &_ Request.Form("Purview12") & Request.Form("Purview13") &_ Request.Form("Purview14") & Request.Form("Purview15") & Request.Form("Purview16") &_ Request.Form("Purview17") & Request.Form("Purview18") &_ Request.Form("Purview19") & Request.Form("Purview20") & Request.Form("Purview21") &_ Request.Form("Purview22") & Request.Form("Purview23") & Request.Form("Purview24") &_ Request.Form("Purview25") &_ Request.Form("Purview26") & Request.Form("Purview27") & Request.Form("Purview28") &_ Request.Form("Purview29") & Request.Form("Purview30") & Request.Form("Purview31") &_ Request.Form("Purview32") & Request.Form("Purview33") & Request.Form("Purview34") &_ Request.Form("Purview35") & Request.Form("Purview36") & Request.Form("Purview37") &_ Request.Form("Purview38") & Request.Form("Purview39") & Request.Form("Purview40") rs("Explain")=trim(Request.Form("Explain")) rs("AddTime")=now() end if if Result="Modify" then sql="select * from LiangJingCMS_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")))>16 then response.write "" response.end end if if Request.Form("Password")<>Request.Form("vPassword") then response.write "" response.end end if rs("Password")=Md5(Request.Form("Password")) end if rs("UserName")=trim(Request.Form("UserName")) rs("AdminPurview")=Request.Form("Purview1") & Request.Form("Purview2") &_ Request.Form("Purview3") & Request.Form("Purview4") & Request.Form("Purview5") &_ Request.Form("Purview6") & Request.Form("Purview7") & Request.Form("Purview8") &_ Request.Form("Purview9") & Request.Form("Purview10") & Request.Form("Purview11") &_ Request.Form("Purview12") & Request.Form("Purview13") &_ Request.Form("Purview14") & Request.Form("Purview15") & Request.Form("Purview16") &_ Request.Form("Purview17") & Request.Form("Purview18") &_ Request.Form("Purview19") & Request.Form("Purview20") & Request.Form("Purview21") &_ Request.Form("Purview22") & Request.Form("Purview23") & Request.Form("Purview24") &_ Request.Form("Purview25") &_ Request.Form("Purview26") & Request.Form("Purview27") & Request.Form("Purview28") &_ Request.Form("Purview29") & Request.Form("Purview30") & Request.Form("Purview31") &_ Request.Form("Purview32") & Request.Form("Purview33") & Request.Form("Purview34") &_ Request.Form("Purview35") & Request.Form("Purview36") & Request.Form("Purview37") &_ Request.Form("Purview38") & Request.Form("Purview39") & Request.Form("Purview40") rs("Explain")=trim(Request.Form("Explain")) end if rs.update rs.close set rs=nothing response.write "" else if Result="Modify" then set rs = server.createobject("adodb.recordset") sql="select * from LiangJingCMS_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 %>