📄 admin_webmaster.asp
字号:
<input type=text name="username2" maxLength=30> (3位-30位以内)
</td>
</tr>
<tr class=KenQiao_Net_ds>
<td width="26%" align="right" class=forumrow>后台登陆密码：</td>
<td width="74%" class=forumrow>
<input type="password" name="password2" maxLength=30> (6位-30位以内 下同)
</td>
</tr>
<tr class=KenQiao_Net_ds>
<td width="26%" align="right" class=forumrow>确认登陆密码：</td>
<td width="74%" class=forumrow>
<input type="password" name="password1" maxLength=30>
</td>
</tr>
<tr class=KenQiao_Net_ds>
<td width="26%" align="right" class=forumrow>后台管理权限：</td>
<td width="74%" class=forumrow>
<input type=radio name="QX" value="超级管理员" onclick="document.all.U_A.style.display='none';" checked><strong><font color="#FF0000">超级管理员</font></strong><font color="#808080">(</font><font color="#FF0000">注意</font><font color="#808080">:开通"超级管理"权限即是给了该用户全部管理权限，请慎重。)<br>
<input type=radio name="QX" value="超级管理员"><strong><font color="#FF0000">权限管理员</font></strong>[<strong><font color="#FF0000">预设功能,此版本不可用</font></strong>]<font color="#808080">(</font><font color="#FF0000">提示</font><font color="#808080">:用户除此权限外，不会拥有任何附加权限。)
</td>
</tr>
<tr ID=U_A class=KenQiao_Net_ds style="display:none">
<td width="26%" align="right" class=forumrow>设置相关权限：</td>
<td width="74%" class=forumrow>
<%=Admin_QX("","<input type=""checkbox"" name=""QX2"" $选中显示 value=""$权限名称"">$权限名称","checked",6,1)%>
</td>
</tr>
<tr align="center" class=KenQiao_Net_qs>
<td colspan="2" class=forumrow>
<input type="submit" name="Submit" value="添 加" class="button">
</td>
</tr>
</table>
</form>
<%
end sub
sub newb()
dim adminuserid,X_Qx
dim X_username,X_password1,X_password2
X_username=ReplaceBadChar(trim(request.form("username2")))
X_password1=ReplaceBadChar(trim(request.form("password1")))
X_password2=ReplaceBadChar(trim(request.form("password2")))
X_Qx=ReplaceBadChar(trim(request.form("Qx")))
if X_username="" then
founderr=true
errmsg=errmsg&"<br>"+"<li>请输入后台登陆用户名！"
end if
if X_Qx="" then
founderr=true
errmsg=errmsg&"<br>"+"<li>请输入管理权限！"
end if
If X_Qx<>"超级管理员" And trim(request.form("Qx2"))="" Then
founderr=true
errmsg=errmsg&"<br>"+"<li>如果选择成“权限管理员”则该用户的权限不能为空！</Li>"
End if
if Len(X_username)<3 Or Len(X_username)>30 then
founderr=true
errmsg=errmsg&"<br>"+"<li>后台登陆名称必须是3-30位的合法数字！"
Elseif Len(X_password1)<6 Or Len(X_password1)>30 then
founderr=true
errmsg=errmsg&"<br>"+"<li>密码必须是6-30位的合法数字！"
Elseif X_password1="" Or X_password2="" then
founderr=true
errmsg=errmsg&"<br>"+"<li>密码与确认密码不一致！"
elseif X_password1<>X_password2 then
founderr=true
errmsg=errmsg&"<br>"+"<li>密码与确认密码不一致！"
end if
set rs=conn.execute("select 管理账号 from [管理员_Admin] where 管理账号='"&replace(request.form("username2"),"'","")&"'")
if not (rs.eof and rs.bof) then
founderr=true
errmsg=errmsg&"您输入的用户名已经在管理用户中存在！"
end if
If founderr=False Then
conn.execute("insert into [管理员_Admin] (管理账号,[安全密码],状态,权限) values ('"&X_username&"','"&md5(X_password2)&"',0,'"&X_Qx&"')")
Call WriteSuccessMsg("<li>管理员资料添加成功，请记住更新信息！<br><Li> 管理员："&X_username&" <br><Li> 密 码：[隐藏设置]</Li>","Admin_WebMaster.asp")
Else
Call WriteErrMsg(errmsg)
End if
rs.close
set rs=nothing
end sub
sub del()
If Admin_Check_B(request("id"),1,0)=1 Then
Call WriteErrMsg("<li>您不能处理自己的账号，您只有对自己的密码进行修改的权利！</Li>")
Else
conn.execute("delete from [管理员_Admin] where 编号="&clng(request("id")))
Call WriteSuccessMsg("<li>管理员删除成功！</Li>",Request.ServerVariables("HTTP_REFERER"))
End if
end sub
sub isactive()
If Admin_Check_B(request("id"),1,0)=1 Then
Call WriteErrMsg("<li>您不能处理自己的账号，您只有对自己的密码进行修改的权利！</Li>")
Else
conn.execute("update [管理员_Admin] set 状态='"&clng(request("l"))&"' where 编号="&clng(request("id")))
Call WriteSuccessMsg("<li>更改管理员状态成功！</Li>",Request.ServerVariables("HTTP_REFERER"))
End if
end sub
sub edita()
dim oldpassword
set rs=conn.execute("select 管理账号 from [管理员_Admin] where 编号="&clng(request("id")))
%>
<form action="?action=editb&id=<%=clng(request("id"))%>" method=post>
<table width=100% align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<tr class=KenQiao_Net_ss>
<th colspan=2 height=23>管理员资料管理－－密码修改
</th>
</tr>
<tr class=KenQiao_Net_ds>
<td width="26%" align="right" class=forumrow>后台登陆名称：</td>
<td width="74%" class=forumrow> <%=rs("管理账号")%> [禁止修改账号，如有需要，请添加新账号]
</td>
</tr>
<%If clng(request("id"))=clng(Request.Cookies(FY_cookies)("AdminId")) Then%>
<tr class=KenQiao_Net_ds>
<td width="26%" align="right" class=forumrow>原来登陆密码：</td>
<td width="74%" class=forumrow>
<input type="password" name="password" maxLength=30 value=""> (如输入目前登陆密码)
</td>
</tr>
<%End if%>
<tr class=KenQiao_Net_ds>
<td width="26%" align="right" class=forumrow>新的登陆密码：</td>
<td width="74%" class=forumrow>
<input type="password" name="password1" maxLength=30 value=""> (6位-30位以内 下同)
</td>
</tr>
<tr class=KenQiao_Net_ds>
<td width="26%" align="right" class=forumrow>确认登陆密码：</td>
<td width="74%" class=forumrow>
<input type="password" name="password2" maxLength=30 value="">
</td>
</tr>
<tr align="center" class=KenQiao_Net_qs>
<td colspan="2" class=forumrow>
<input type="submit" name="Submit" value="更 新" class="button">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
sub editb()
If clng(request("id"))=clng(Request.Cookies(FY_cookies)("AdminId")) Or Request.Cookies(FY_cookies)("AdminFlag")="超级管理员" Then
dim X_password,X_password1,X_password2
X_password=ReplaceBadChar(trim(request.form("password")))
X_password1=ReplaceBadChar(trim(request.form("password1")))
X_password2=ReplaceBadChar(trim(request.form("password2")))
errmsg=errmsg
if Len(X_password1)<6 Or Len(X_password1)>30 then
founderr=true
errmsg=errmsg&"<br>"+"<li>新密码必须是6-30位的合法数字！"
Elseif X_password1="" Or X_password2="" then
founderr=true
errmsg=errmsg&"<br>"+"<li>新密码与确认密码不一致！"
elseif X_password1<>X_password2 then
founderr=true
errmsg=errmsg&"<br>"+"<li>新密码与确认密码不一致！"
end if
set rs=server.createobject("adodb.recordset")
sql="select 安全密码,管理账号 from [管理员_Admin] where 编号="&clng(Request.Querystring("Id"))&""
rs.open sql,conn,1,3
if rs.eof and rs.bof then
founderr=true
errmsg=errmsg&"<br>"+"<li>管理账号错误，此账号不存在，请不要通过非法路径进行修改信息！"
ElseIf rs(0)<>md5(X_password) And clng(Request.Querystring("id"))=clng(Request.Cookies(FY_cookies)("AdminId")) Then
founderr=true
errmsg=errmsg&"<br>"+"<li>旧密码确认错误，请确认后再继续修改！"
End if
If founderr=False Then
rs("安全密码")=md5(X_password2)
rs.update
Call WriteSuccessMsg("<li>管理员资料更新成功，请记住更新信息！<br><Li> 管理员："&Rs("管理账号")&" <br><Li> 密 码：[隐藏设置]</Li>","Admin_WebMaster.asp")
Else
Call WriteErrMsg(errmsg)
end if
rs.close
set rs=nothing
Else
Call WriteErrMsg("<br>"+"<li>非法信息来源，您没有权限对该用户的信息进行修改")
End if
end sub
call admin_footer()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -