<% '检查用户权限 call checkuser("管理员管理") %> <% strID=GetVariable("id") if strID="" then else '取指定ID的新闻出来编辑 strSQL="select * from web_admin where ID=" & strID set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL,conn,1,1 strUserName=trim(rs("LoginName")) strRealName=trim(rs("RealName")) 'strPassWord=trim(rs("PassWord")) strLimit=trim(rs("Limit")) rs.close end if %> 网站管理员
::网站管理员
账 号: [必填]
密 码: <%if strID="" then %> [必填] <%else%> [如果不希望修改密码,请不要填] <%end if%>
确认密码:
真实姓名:
管理权限分配
管理员管理  <%if GetKey("Enable",WebUserID,"vote")="Yes" then%> 调查管理 <%end if%> <%if GetKey("Enable",WebUserID,"popwin")="Yes" then%> 公告管理  <%end if%> <%if GetKey("Enable",WebUserID,"counter")="Yes" then%> 流量控制 <%end if%>
<% for i=1 to ubound(arrMenu) %> <%=arrMenu(i)%>  <% next %>
<%if GetKey("Enable",WebUserID,"member")="Yes" then%> 会员管理 <%end if%> <%if GetKey("Enable",WebUserID,"ad")="Yes" then%> 广告管理  <%end if%> <%if GetKey("Enable",WebUserID,"link")="Yes" then%> 友情链接 <%end if%>