📄 editadmin.asp
字号:
<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<%
dim password,username,rs,sql
username=request.cookies("administrator")
set rs=server.createobject("adodb.recordset")
sql="select UserName,Password from [administrator] where UserName='"&UserName&"'"
rs.open sql,conn,1,1
password=rs("password")
rs.close
set rs=nothing
%>
<div align="center">
<FORM name=theForm method=POST action=editadminchk.asp>
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="95">
<tr>
<td bgColor="#008000" height="20" vAlign="bottom" style="border-style: solid; border-width: 1">
<p style="MARGIN-LEFT: 6px" align="center">
<font color="#FFFFFF"><span style="font-size: 9pt"><b>修改我的密码</b></span></font></td>
</tr>
<tr>
<td bgColor="#f7f7f7" height="25" width="156" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1">
<span style="FONT-SIZE: 12px">
用户名:<font color="#FF0000"><b><%=username%></b></font></span></td>
</tr>
<tr>
<td bgColor="#f7f7f7" height="25" width="156" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1">
<span style="FONT-SIZE: 12px">
密 码:<input name="Password" size="13" style="BACKGROUND-COLOR: #f9f9f9; COLOR: #384249; FONT-FAMILY: Verdana; FONT-SIZE: 11px; FONT-WEIGHT: bold" tabIndex="1" value="<%=Password%>"></span><span style="FONT-SIZE: 12px"><input type=hidden name="username" size="13" style="BACKGROUND-COLOR: #f9f9f9; COLOR: #384249; FONT-FAMILY: Verdana; FONT-SIZE: 11px; FONT-WEIGHT: bold" tabIndex="1" value="<%=username%>"></span></td>
</tr>
<tr>
<td bgColor="#f7f7f7" height="7" vAlign="top" width="156" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1">
<p align="center">
<input type="submit" value="修改" name="B1"><br>
</td>
</tr>
<tr>
<td bgColor="#f7f7f7" height="6" vAlign="top" width="156" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium">
<br>
密码已经加密,修改请直接输入<font color="#FF0000">新密码</font>。</td>
</tr>
</table>
</center>
</form>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="416">
<tr>
<td width="100%" colspan="5"> </td>
</tr>
<tr>
<td width="29%">
<p align="center"><font color="#0000FF"><span style="font-size: 9pt">操作</span></font></td>
<td width="19%"><font color="#0000FF"><span style="font-size: 9pt">用户名</span></font></td>
<td width="21%"><font color="#0000FF"><span style="font-size: 9pt">
市、区级</span></font></td>
<td width="19%"><font color="#0000FF"><span style="font-size: 9pt">县级</span></font></td>
<td width="12%"> </td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [administrator]"
rs.open sql,conn,1,1
do while not rs.eof
dim quanxian,diqu
quanxian=rs("quanxian")
%>
<tr>
<td width="29%"><span style="font-size: 9pt"><font color="#808080">【</font><a onclick="{if(confirm("是否确认删除该管理员??")){return true;}return false;}" href="deladmin.asp?id=<%=rs("username")%>"><font color="#808080">删除</font></a><font color="#808080">】【</font><a href="edit_admin.asp?username=<%=rs("username")%>"><font color="#808080">编辑</font></a><font color="#808080">】</font></span></td>
<td width="19%"><span style="FONT-SIZE: 12px"><font color="#FF0000"><b><%=rs("username")%></b></font></span></td>
<td width="21%"><span style="font-size: 9pt">
<%
if rs("yesno")<>0 then
response.write "*"
else
select case quanxian
case 0
diqu="总管理员"
case 1
diqu="北京市"
case 2
diqu="天津市"
case 3
diqu="上海市"
case 4
diqu="重庆市"
case 5
diqu="广东省"
case 6
diqu="江苏省"
case 7
diqu="浙江省"
case 8
diqu="福建省"
case 9
diqu="湖南省"
case 10
diqu="湖北省"
case 11
diqu="山东省"
case 12
diqu="辽宁省"
case 13
diqu="吉林省"
case 14
diqu="云南省"
case 15
diqu="四川省"
case 16
diqu="安徽省"
case 17
diqu="江西省"
case 18
diqu="黑龙江省"
case 19
diqu="河北省"
case 20
diqu="陕西省"
case 21
diqu="海南省"
case 22
diqu="河南省"
case 23
diqu="山西省"
case 24
diqu="内蒙古自治区"
case 25
diqu="广西壮族自治区"
case 26
diqu="贵州省"
case 27
diqu="宁夏回族自治区"
case 28
diqu="青海省"
case 29
diqu="新疆维吾尔自治区"
case 30
diqu="西藏自治区"
case 31
diqu="甘肃省"
case 32
diqu="台湾省"
case 33
diqu="香港特别行政区"
case 34
diqu="澳门特别行政区"
case else
diqu="未知"
end select
response.write ""&diqu&""
end if
%></span></td>
<td width="19%"><span style="font-size: 9pt"><%if rs("yesno")=0 then%>*<%else%><%=rs("quyu")%><%end if%></span></td>
<td width="12%"> </td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table></center>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -