📄 user.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "a"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
Unit=trim(request("Unit"))
Department=trim(request("Department"))
set rs=Server.CreateObject("ADODB.RecordSet")
set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open "select DaiHao from tblUnit where ID="&Unit,conn,1,1
if not rs2.eof then
UnitDaiHao=rs2("DaiHao")
end if
rs2.close
rs2.open "select Department from tblDepartment where UnitDaiHao="&UnitDaiHao&" and DaiHao="&Department,conn,1,1
if not rs2.eof then
Dept=rs2("Department")
end if
rs2.close
if trim(request("dele"))="yes" then
conn.execute("delete from tblUserLogin where ID="&request("ID"))
end if
sql="select ID,LoginName,Name,Unit,Dept from tblUserLogin where Unit="&UnitDaiHao&" and Dept="&Department&" and LoginName<>'administrator'"
rs.open sql,conn,1,1
%>
<HTML>
<HEAD>
<TITLE>用户管理</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="../css/main.css" type="text/css">
</HEAD>
<BODY bgColor=#996600>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="../image/top_2.jpg" width="750" height="80"></td>
</tr>
</table>
<div align="center"></div>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 width=750>
<TR>
<TD align=middle
style="BORDER-BOTTOM: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-RIGHT: #996600 1px solid; BORDER-TOP: #996600 1px solid"
vAlign=top width="100%" bgcolor="#FFCC33" height="368">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TR bgcolor="#FF9900">
<TD align=middle
style="BORDER-BOTTOM:1 solid #996600;"> </TD>
</TR>
</TABLE>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="362">
<tr>
<td width="17%" height="391" valign="top">
<br>
<div align="center">
<!--#include file="../inc/Rights.asp"-->
</div>
</td>
<td width="83%" valign="top" align="center" height="391" style="border-left: 1px solid #996600" bgcolor="#FFD680">
<table width="520" border="0" cellspacing="0" cellpadding="0" style="BORDER-BOTTOM: 1px solid #996600">
<tr>
<td valign="bottom"><img src="../image/tit_au.gif" width="111" height="24"></td>
</tr>
</table>
<table width="520" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align=left><font color=red><u><b><%=Dept%></b></u> 用户列表</font></td>
<td width=200 valign="bottom" align="right">
<img src="../image/sub.gif" width="53" height="19" onclick="OpenWindow('UserMain.asp?Unit=<%=UnitDaiHao%>&Department=<%=Department%>','UserMain');" style="cursor:hand"> <a href="../Unit/Department.asp?ID=<%=Unit%>"><img border=0 src="../image/back.gif" width="53" height="19"></a>
</td>
</tr>
</table>
<table width="520" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr bgcolor="#FF9900" align=center>
<td style="border-left:1 solid #996600;border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><font color=#ffffff><b>用户名</b></font></td>
<td style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><font color=#ffffff><b>修改</b></font></td>
<td style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><font color=#ffffff><b>删除</b></font></td>
</tr>
<%
do while not rs.eof
if not rs.eof then
name=trim(rs("Name"))
ID=trim(rs("ID"))
%>
<tr align=center>
<td style="border-left:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><%=Name%></td>
<td style="border-right:1 solid #996600;border-bottom:1 solid #996600;"><a href=# onclick="OpenWindow('UserMain.asp?Unit=<%=UnitDaiHao%>&Department=<%=Department%>&SelectID=<%=ID%>','UserMain');">修改</a></td>
<td style="border-right:1 solid #996600;border-bottom:1 solid #996600;"><a href="User.asp?ID=<%=ID%>&Unit=<%=UnitDaiHao%>&Department=<%=Department%>&dele=yes" onclick="return CheckDelete();">删除</a></td>
</tr>
<%
end if
rs.movenext
loop
rs.close
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="510" >
<TR >
<TD><B>说明：</B>权限设置是按照如下级别设置，领导→处长→干事；对项目的管理原则是，“谁录入谁维护”；处长可以对本处室的项目进行维护，但不可以跨处室进行项目管理；领导可对各个处室的项目进行维护。</TD>
</TR>
</table>
</table>
</td>
</tr>
</table>
</div>
</TD>
</TR>
</TABLE>
<script language=javascript>
function CheckDelete()
{
return confirm("确实删除吗？");
}
function OpenWindow(url,windowname)
{
window.open(url,windowname,'left=50,top=20,height=405,width=500,toolbar=no,menubar=no,scrollbars=yes')
}
</script>
</BODY>
</HTML>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -