📄 adminedit.asp
字号:
<td height="20" align="right"> </td>
<td>
<input name="Purview104" type="checkbox" value="|104," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|104,")>0 then response.write ("checked")%>> 会员列表
<input name="Purview105" type="checkbox" value="|105," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|105,")>0 then response.write ("checked")%>> 会员组别
<input name="Purview111" type="checkbox" value="|111," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|111,")>0 then response.write ("checked")%>> 修改密码
<input name="Purview112" type="checkbox" value="|112," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|112,")>0 then response.write ("checked")%>> 网站信息设置
<input name="Purview113" type="checkbox" value="|113," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|113,")>0 then response.write ("checked")%>> 导航栏目
<input name="Purview114" type="checkbox" value="|114," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|114,")>0 then response.write ("checked")%>> 常量设置
<input name="Purview115" type="checkbox" value="|115," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|115,")>0 then response.write ("checked")%>> 数据库操作
<input name="Purview116" type="checkbox" value="|116," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|116,")>0 then response.write ("checked")%>> 空间统计</td>
</tr>
<tr <%if ID=1 then response.write ("style=display:none")%>>
<td height="20" align="right"> </td>
<td>
<input name="Purview117" type="checkbox" value="|117," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|117,")>0 then response.write ("checked")%>> 访问统计查看
<input name="Purview118" type="checkbox" value="|118," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|118,")>0 then response.write ("checked")%>> 访问统计修改
<input name="Purview119" type="checkbox" value="|119," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|119,")>0 then response.write ("checked")%>> 友情链接
<input name="Purview120" type="checkbox" value="|120," style="HEIGHT: 13px;WIDTH: 13px;"
<%if Instr(Purview,"|120,")>0 then response.write ("checked")%>> 查看阻止SQL注入记录</td>
</tr>
<tr <%if ID<>1 then response.write ("style=display:none")%>>
<td height="20" align="right">操作权限：</td>
<td nowrap><font color="#FF0000">内置超级管理员帐号，不可修改！</font></td>
</tr>
<tr>
<td height="20" align="right" valign="top">备注说明：</td>
<td><textarea name="Explain" cols="88" rows="3" class="textfield" id="Explain" style="WIDTH: 580;" ><%=Explain%></textarea></td>
</tr>
<tr>
<td height="30" align="right"> </td>
<td valign="bottom"><input name="submitSaveEdit" type="submit" class="button" id="submitSaveEdit" value="保存" style="WIDTH: 60;" ></td>
</tr>
<tr>
<td height="20" align="right"> </td>
<td valign="bottom"> </td>
</tr>
</table></td>
</tr>
</form>
</table>
</BODY>
</HTML>
<%
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 Csys_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 Csys_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("Purview11") & Request.Form("Purview12") &_
Request.Form("Purview21") & Request.Form("Purview22") & Request.Form("Purview23") &_
Request.Form("Purview31") & Request.Form("Purview32") & Request.Form("Purview33") &_
Request.Form("Purview41") & Request.Form("Purview42") & Request.Form("Purview43") &_
Request.Form("Purview51") & Request.Form("Purview52") & Request.Form("Purview53") &_
Request.Form("Purview61") & Request.Form("Purview62") &_
Request.Form("Purview71") & Request.Form("Purview72") & Request.Form("Purview73") &_
Request.Form("Purview81") & Request.Form("Purview82") & Request.Form("Purview97") &_
Request.Form("Purview91") & Request.Form("Purview92") & Request.Form("Purview93") &_
Request.Form("Purview94") & Request.Form("Purview95") & Request.Form("Purview96") &_
Request.Form("Purview98") & Request.Form("Purview98") & Request.Form("Purview101") &_
Request.Form("Purview102") & Request.Form("Purview103") & Request.Form("Purview104") &_
Request.Form("Purview105") & 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")
rs("Explain")=trim(Request.Form("Explain"))
rs("AddTime")=now()
end if
if Result="Modify" then '修改网站管理员
sql="select * from Csys_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("Purview11") & Request.Form("Purview12") &_
Request.Form("Purview21") & Request.Form("Purview22") & Request.Form("Purview23") &_
Request.Form("Purview31") & Request.Form("Purview32") & Request.Form("Purview33") &_
Request.Form("Purview41") & Request.Form("Purview42") & Request.Form("Purview43") &_
Request.Form("Purview51") & Request.Form("Purview52") & Request.Form("Purview53") &_
Request.Form("Purview61") & Request.Form("Purview62") &_
Request.Form("Purview71") & Request.Form("Purview72") & Request.Form("Purview73") &_
Request.Form("Purview81") & Request.Form("Purview82") & Request.Form("Purview97") &_
Request.Form("Purview91") & Request.Form("Purview92") & Request.Form("Purview93") &_
Request.Form("Purview94") & Request.Form("Purview95") & Request.Form("Purview96") &_
Request.Form("Purview98") & Request.Form("Purview98") & Request.Form("Purview101") &_
Request.Form("Purview102") & Request.Form("Purview103") & Request.Form("Purview104") &_
Request.Form("Purview105") & 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")
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 Csys_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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -