📄 setsapass.asp
字号:
<!--#include file="conn2.asp"-->
<!--#include file="loginV.asp"-->
<%
if not VerificationRole("ROLE_3") then
response.Write("<p> </p><center><img src='img/error.jpg'></center>")
response.End()
end if
RoleId=request("ModfiyId")
if RoleId="" or isNull(RoleId) then
RoleId=session("saLoginRole")
end if
'RoleId=1
adminSql="select * from admin where ID="&RoleId
set rsT=conn.execute(adminSql)
SaNameT=rsT("SANAME")
SaPassT=rsT("SAPASS")
Role_1=rsT("ROLE_1")
Role_2=rsT("ROLE_2")
Role_3=rsT("ROLE_3")
%>
<html>
<head>
<title> </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<p> </p>
<form name="setForm" method="post" action="save_setsapass.asp">
<TABLE width="500" border=0 align=center cellPadding=2 cellSpacing=1
bgColor=#d2ebff class="Xsmall">
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff> <TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD
height=25 background=img/backt.gif class="Xsmall"> <strong>密码权限设置</strong></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top bgColor=#ffffff><table width="88%" border="0" align="center" cellpadding="0" cellspacing="0" class="Xsmall">
<TR>
<TD height="30" colspan="2" bgColor=#ffffff><div align="center"><font color="#FF0000"><%=session("sa_help")%></font></div></TD>
</TR>
<tr>
<td width="20%" height="25">管理用户名：</td>
<td width="80%"> <input name="SaName" type="text" class="Sborder" id="SaName" value="<%=SaNameT%>" size="16" maxlength="16">
<input name="SaveModfiyId" type="hidden" id="SaveModfiyId" value=<%=RoleId%>>
<%=RoleId%></td>
</tr>
<tr>
<td height="25">管理员密码：</td>
<td><input name="SaPass" type="text" class="Sborder" id="SaPass" value="<%=SaPassT%>" size="16" maxlength="16">
</td>
</tr>
<tr>
<td height="25">权限设置：</td>
<td>
<%
if Role_1 then
response.Write("<input name='try' type='checkbox' id='try' value=true checked>试题管理")
else
response.Write("<input name='try' type='checkbox' id='try' value=true>试题管理")
end if
if Role_2 then
response.Write("<input name='stu' type='checkbox' id='stu' value=true checked>考生管理")
else
response.Write("<input name='stu' type='checkbox' id='stu' value=true>考生管理")
end if
if Role_3 then
response.Write("<input name='set' type='checkbox' id='set' value=true checked>系统管理")
else
response.Write("<input name='set' type='checkbox' id='set' value=true>系统管理")
end if
%>
</td>
</tr>
<tr>
<td height="25">其它用户：</td>
<td height="50">
<%
AllAdminSql="select ID,SANAME from admin"
set rsT=conn.execute(AllAdminSql)
SaNum=1
while not rsT.Eof
SaIdOne=rsT("ID")
SaNameOne=rsT("SANAME")
response.Write("<img src='images/sauser_3.gif' align='absmiddle'> <a href='setsapass.asp?ModfiyId="&SaIdOne&"'>"&SaNameOne&"</a> ")
if SaNum\3=SaNum/3 then
response.Write("<br>")
end if
rsT.movenext
SaNum=SaNum+1
wend
%>
</td>
</tr>
<tr>
<td height="25" colspan="2"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="Xsmall">
<tr>
<td><div align="center">
<input name="Submit" type="submit" class="Sborder" value="确 定">
</div></td>
<td><div align="center">
<input name="reset" type="reset" class="Sborder" id="reset3" value="重 写">
</div></td>
<td><div align="center">
<input name="back" type="button" class="Sborder" id="back3" value="返 回" onClick="javascript:history.back(1)">
</div></td>
<td><div align="center">
<input name="add" type="button" class="Sborder" id="back4" value="添 加" onClick="javascript:location.href ='setsapass_add.asp'">
</div></td>
<td><div align="center">
<input name="del" type="button" class="Sborder" id="back5" value="删 除" onclick=javascript:window.confirm('你真的删除此管理员吗？')?window.location.href('save_setsapass_del.asp?SaveDelId=<%=RoleId%>'):window.location.href('#')>
</div></td>
</tr>
</table></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</form>
</body>
</html>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -