<% NetsysID=Request("NetsysID") NetsyClass=Trim(Request.Form("NetsyClass")) if NetsysID=0 or not isnumeric(NetsysID) then response.Write "" response.End end if If Request.Cookies("Netsys")("NetsyClass")="管理员" Then sql="select * from Netsys_Manage where NetsysID="&NetsysID else response.Write "" 'response.End sql="select * from Netsys_Manage where NetsysName like '%" & Request.Cookies("Netsys")("NetsysName") & "%' order by netsysid desc" end if if request.Form("modify")="yes" then NetsysQuestion=Trim(Request.Form("NetsysQuestion")) NetsysPass=Trim(Request.Form("NetsysPass")) set rs=createobject("adodb.recordset") rs.open sql,conn,1,3 rs("NetsyClass")=NetsyClass rs("NetsysPass")=MD5(NetsysPass) rs("NetsysQuestion")=NetsysQuestion rs.update rs.close set rs=nothing response.Write "" Response.end end if set rspro=createobject("adodb.recordset") rspro.open sql,conn,1,1 'If Request.Cookies("Netsys")("NetsyClass")="管理员" Then 'IF Request.Cookies("Netsys")("NetsysName")= rspro("NetsysName") then %>

当前位置 >> 网站管理员 | 编辑管理员

<%If Request.Cookies("Netsys")("NetsyClass")="管理员" Then%> <%Else%> <%End if%> 用户名： <%= rspro("NetsysName") %> 角色权限： selected<%End if%>>管理员 selected<%End if%>>员工 * 角色权限： "><%=rspro("NetsyClass")%> * 用户全名： "> * 登录密码： * 确认密码 *   "">