?? adminadminedit.asp
字號:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
adminid=trim(request("adminid"))
sql1="select * from tbadmin where adminid="&adminid&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sql="select * from tbkc order by kcid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
powerid=rs1("power")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系統管理 | 綜合管理 | 管理員管理 | 管理員修改</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<div align="center">
<center>
<table cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber2" border="1">
<form method="POST" action="adminadmineditsave.asp"><tr class="trh">
<td width="100%" height="25" bgcolor="#6699CC">
<p align="center"><b> <font color="#FFFFFF">管理員信息修改</font></b></td>
</tr>
<tr>
<td width="100%" height="160" bgcolor="#FFFDE8">
<p align="center"> </p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="217">
<tr>
<td width="26%" height="37">
<p align="right">用 戶 名：</td>
<td width="74%" height="37">
<input name="username" size="40" value="<%=rs1("username")%>" readonly class="inputnormal" style="float: left"> </td>
</tr>
<tr>
<td width="26%" height="38">
<p align="right">密 碼：</td>
<td width="74%" height="38"><p align="right">
<input name="pwd" size="40" value="<%=rs1("pwd")%>" onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal" style="float: left"></td>
</tr>
<tr>
<td width="26%" height="38">
<p align="right">姓 名：</td>
<td width="74%" height="38"><p align="right">
<input name="tname" size="40" value="<%=rs1("tname")%>" onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal" style="float: left"></td>
</tr>
<tr>
<td width="26%" height="38">
<p align="right">電子郵箱：</td>
<td width="74%" height="38"><p align="right">
<input name="email" size="40" value="<%=rs1("email")%>" onblur="this.className='inputnormal'" onfocus="this.className='inputedit';this.select()" class="inputnormal" style="float: left"></td>
</tr>
<tr>
<td width="26%" height="66" rowspan="2">
<p align="right">老師權限： </td>
<td width="74%" height="31"> <center>
<input type="checkbox" name="power" value="-1" <%if powerid="-1" then %>checked<% end if %>>最高管理員
<input type="checkbox" name="power" value="0" <%if powerid="0" then %>checked<% end if %> >一般管理員
</center>
</td>
</tr>
<tr>
<td width="74%" height="35"><%
do while not rs.eof %><li>
<input type="checkbox" name="power" value="<%=rs("kcid")%>" <%
idlistt=powerid
kcid=rs("kcid")
dim idarra
idArra=split(idlistt)
dim idd,kcid
if instr(idlistt,",")>0 then
for i = 0 to ubound(idarra)
idd=clng(idarra(i))
call power(idd,kcid)
if flag=1 then
%>checked<%
end if
next
if clng(idarra(0))=1 and kcid=1 then
%>checked<%
end if
else
if clng(powerid)=kcid then
%>checked<%
end if
end if %>><%=rs("kcm")%>
<% rs.movenext
loop %> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="25" bgcolor="#FFFDE8">
<p align="center">
<input type="submit" value="保存" name="B1" class="s02"><span lang="en-us">
</span>
<input type="button" value="關閉窗口" name="B2" onclick="self.close()" class="s02"></td>
<input name="adminid" type="hidden" size="40" value="<%=adminid%>">
</tr></form>
</table>
</center>
</div>
<p align="center">
</p>
<%
sub power(idd,kcid)
if idd=kcid then
flag=1
else
flag=0
end if
End sub
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -