📄 administratormanage.asp
字号:
</table>
<%end if
if request("cur_action")="edit" then
set rs_edit=server.CreateObject("adodb.recordset")
sql_edit="select * from tManageUser where LoginID='"&request("EditID")&"'"
rs_edit.open sql_edit,conn,1,1
if rs_edit.bof and rs_edit.eof then
response.write "<script>alert('读取数据时出错，请与管理员联系！');history.back();</script>"
response.end
end if
%>
<br>
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form name="form2" method="post" action="?cur_action=editsave">
<tr>
<td height="22" colspan="2" align="center" bgcolor="#FFFFFF" class="fonttitle"><strong><font color="#CC0000">修改操作员信息</font></strong></td>
</tr>
<tr>
<td width="15%" height="26" align="right" bgcolor="ECF2D6">
<font color="#CC0000">*</font> 用户名：</td>
<td width="85%" bgcolor="#FFFFFF"> <input name="T_LoginID" type="text" id="T_LoginID" size="30" value="<%=rs_edit("LoginID")%>">
<input name="H_LoginID" type="hidden" id="H_LoginID" value="<%=rs_edit("LoginID")%>"></td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ECF2D6">操作员姓名：</td>
<td bgcolor="#FFFFFF"> <input name="T_TrueName" type="text" id="T_TrueName" size="30" value="<%=rs_edit("TrueName")%>"></td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ECF2D6">密码：</td>
<td bgcolor="#FFFFFF"> <input name="T_PassWord" type="text" id="T_PassWord" size="30">
注：如果密码为空则保持原来的密码</td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ECF2D6">帐号性质：</td>
<td bgcolor="#FFFFFF"> <input type="radio" name="R_StateFlag" value="2" <% if rs_edit("StateFlag")=2 then response.write " checked"%>>
正常
<input type="radio" name="R_StateFlag" value="0" <% if rs_edit("StateFlag")=0 then response.write " checked"%>>
禁用 </td>
</tr>
<tr>
<td height="44" align="right" bgcolor="ECF2D6">操作权限：<br>
<input name="chkall" type="checkbox" id="chkall" onClick="CheckAll(this.form)" value="on">
<font color="#CC0000"><b>全选 </b></font></td>
<td align="center" bgcolor="#FFFFFF"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <% for i=0 to ubound(ManageMenu,1)
if isempty(ManageMenu(i,10)) then exit for
response.write "<b>"&ManageMenu(i,10)&"</b><br>"
for j=11 to ubound(ManageMenu,2)
if isempty(ManageMenu(i,j)) then exit for
if (j mod 6)=0 then response.write "<br>"
response.write "<input type='checkbox' name='SelectID' value='"&i&j&"'"
if instr(rs_edit("PopFlag"),i&j)<>0 then response.write " checked"
response.write ">"
response.write ManageMenu(i,j)&" "
next
response.write "<br>"
next
%> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="31" colspan="2" align="center"><input name="PageNo" type="hidden" id="PageNo" value="<%=request("PageNo")%>">
<input name="EditID" type="hidden" id="EditID" value="<%=request("EditID")%>">
<input type="submit" name="Submit4" value="正确提交" onClick="return check_data(this.form)">
<input type="reset" name="Submit22" value="重新填写"> <input type="button" name="Submit32" value="返回" onClick="javascript:history.back();"></td>
</tr>
</form>
</table>
<%end if
'----------------------------
PERPAGE =15
PageNo=request("PageNo")
set rs=server.createobject("ADODB.recordset")
sql="select * from tManageUser"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂时没有数据!"
else
rs.pagesize = PERPAGE
if isempty(PageNo) or cstr(PageNo)<"1" then PageNo = 1
CurPage=PageNo
if int(PageNo)>=int(rs.pagecount) then CurPage=cint(rs.pagecount)
rs.absolutepage = CurPage
%>
<br> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#FFFFFF">
<td width="13%" height="22"><strong>用户名</strong></td>
<td width="14%" height="22"><strong>姓名</strong></td>
<td width="21%"><strong>最后登入时间</strong></td>
<td width="17%" height="22"><strong>功能操作</strong></td>
</tr>
<% for i = 1 to rs.pagesize %>
<tr align="center" onMouseOver="this.style.backgroundColor='#e7e7e7';" onMouseOut="this.style.backgroundColor='#ffffff'" bgcolor="#FFFFFF">
<td height="22"><%=rs("LoginID")%></td>
<td height="22"> <% select case rs("StateFlag")
case "0":response.write "<font color='ff0000'>"
case "1":response.write "<font color='669900'>"
end select
response.write rs("TrueName")&"<font>"
%> </td>
<td height="22"><%=rs("LastlyDate")%></td>
<td height="22"> <%if rs("StateFlag")=2 then%> <a href='?cur_action=lock&EditID=<%=rs("LoginID")%>&PageNo=<%=PageNo%>'>锁定</a>|
<%end if%> <%if rs("StateFlag")=0 then%> <a href='?cur_action=unlock&EditID=<%=rs("LoginID")%>&PageNo=<%=PageNo%>'>解开</a>|
<%end if%> <a href='?cur_action=edit&EditID=<%=rs("LoginID")%>&PageNo=<%=PageNo%>'>修改</a>|<a href="?cur_action=delete&EditID=<%=rs("LoginID")%>&PageNo=<%=PageNo%>" onclick="{if(confirm('确定删除选定的纪录吗?')){return true;}return false;}">删除</a></td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table></td>
</tr>
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="33%"> 页次：<b><%=CurPage%></b>/<b><%=rs.pagecount %></b>页 共<b><%=rs.recordcount %></b>条记录</td>
<td width="67%" align="right">
<%
if CurPage = 1 then
response.write " 首页 | 上一页 | "
else
response.write "<a href='?PageNo=1&T_key="&request("T_key")&"'><b> 首页 </b></a> | <a href='?PageNo="&CurPage-1&"&T_key="&request("T_key")&"'><b>上一页</b></a>| "
end if
if CurPage = rs.pagecount then
response.write "后一页 | 尾页 "
else
response.write "<a href='?PageNo="&CurPage+1&"&T_key="&request("T_key")&"'><b>后一页</b> </a>| <a href='?PageNo="&rs.pagecount&"&T_key="&request("T_key")&"'><b>尾页</b> </a>"
end if
%>
跳转到：<select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
<% for i=1 to rs.pagecount
if CurPage=i then
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"' selected>第"&i&"页"
else
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"'>第"&i&"页"
end if
next
%>
</select>
</td>
</tr>
</table>
<%end if%>
<br>
<br> </td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -