📄 user.asp
字号:
<!--#include file="sysconfig.asp"-->
<%
dim rs,sqltest
set rs=server.createobject("adodb.recordset")
sqltext="select * from Admin"
rs.open sqltext,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<script language="javascript">
function confirmdel(id){
if (confirm("真的要禁用此用户帐号?"))
window.location.href="user_Del.asp?id="+id+" " }
</script>
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--
function form1_onsubmit()
{
if (document.FORM1.pwd1.value!=document.FORM1.pwd2.value)
{
alert ("请确认您的密码。");
document.FORM1.pwd1.value='';
document.FORM1.pwd2.value='';
document.FORM1.pwd1.focus();
return false;
}
}
//-->
</SCRIPT>
<BR>
<%if admin_quanli=1 or admin_quanli=2 then%>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><strong>添加用户</strong></td>
</tr>
<tr class="a4">
<td align="center">
<FORM language=javascript name=FORM1 onsubmit="return form1_onsubmit()" action="user_Add.asp" method=post>
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="25" colspan="2"> </td>
</tr>
<tr class="t1">
<td height="22">
<div align="right">业务科室：</div></td>
<td>
<%if admin_quanli=1 then %>
<select name="guikou_id" id="guikou_id">
<% set rsguikou=Server.CreateObject("ADODB.RecordSet")
sql="select id,guikou_name from guikou "
rsguikou.open sql,conn,1,1%>
<% if rsguikou.eof then %>
<option selected>==必须先增业务科室==</option>
<% else Do While Not rsguikou.Eof %>
<option value=<%=rsguikou(0)%>><%=rsguikou(1)%></option>
<% rsguikou.MoveNext
Loop
end if
%>
</select>
<%else
Response.Write"与"&Session("username")&"同归口<input type='hidden' name='guikou_id' size='16' maxlength='20' value="&admin_guikou_id&"> "
end if%>
</td>
</tr>
<tr class="t1">
<td height="22">
<div align="right">权限：</div></td>
<td>
<%if admin_quanli=1 then%>
<select name="quanli" id="quanli">
<option value=1 selected>==系统管理员==</option>
<option value=2>==管理员=====</option>
<option value=3>==查询者=====</option>
</select>
<%else%>
查询者<input type="hidden" name="quanli" size="16" maxlength="20" value="3">
<%end if%>
</td>
</tr>
<tr class="t1">
<td width="32%" height="22">
<div align="right">登陆帐号：</div></td>
<td width="68%">
<input type="text" name="username" size="16" maxlength="20"></td>
</tr>
<tr class="t1">
<td height="22">
<div align="right">姓 名：</div></td>
<td>
<input type="text" name="realname" size="16" maxlength="20"></td>
</tr>
<tr class="t1">
<td height="22">
<div align="right">密 码：</div></td>
<td>
<input type="text" name="pwd1" size="16"></td>
</tr>
<tr class="t1">
<td height="22">
<div align="right">确认密码：</div></td>
<td>
<input type="text" name="pwd2" size="16"></td>
</tr>
<tr>
<td height="22" colspan="2"><div align="center">
<INPUT type=submit value='确认添加'name=Submit2>
</div></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%else
end if%>
<BR>
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><strong>用户帐号管理</strong></td>
</tr>
<tr class="a4">
<td align="center">
<FORM language=javascript action="user_Add.asp" method=post>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="2">
<tr class="t1">
<td width="16%" bgcolor="#C0C0C0">
<div align="center">业务科室部门</div></td>
<td width="16%" height="25" bgcolor="#C0C0C0">
<div align="center">登陆帐号</div></td>
<td width="16%" bgcolor="#C0C0C0">
<div align="center">姓名</div></td>
<td width="16%" bgcolor="#C0C0C0">
<div align="center">权限</div></td>
<td width="16%" bgcolor="#C0C0C0">
<div align="center">操作</div></td>
<td width="16%" bgcolor="#C0C0C0">
<div align="center">状态</div></td>
</tr>
<%
if not rs.eof then
do while not rs.eof
%>
<tr class="t1">
<td width="16%" bgcolor="#E3E3E3">
<div align="center" class="t5">
<p>
<%if rs("guikou_id")<>"" then %>
<%set rsguikou=conn.execute("select * from guikou where id="&rs("guikou_id")&"")%>
<%=rsguikou("guikou_name")%>
<%else%>
无
<% end if%>
</p>
</div></td>
<td width="16%" height="22" bgcolor="#E3E3E3">
<div align="center"><%=rs("UserName")%></div></td>
<td width="16%" bgcolor="#E3E3E3">
<div align="center"><%=rs("realname")%></div></td>
<td width="16%" bgcolor="#E3E3E3">
<div align="center">
<%if rs("quanli")=1 then %>
系统管理员
<%else %>
<%if rs("quanli")=2 then %>
管理员
<%else %>
查询人员
<% end if%>
<%end if%>
</div></td>
<td width="16%" bgcolor="#E3E3E3">
<div align="center">
<%if admin_quanli=1 then
Response.Write"<a href='Pass_Edit.asp?ID="&rs("Id")&"' >修改密码</a>"
else
if admin_quanli=2 and rs("quanli")=3 and rs("guikou_id")=admin_guikou_id then
Response.Write"<a href='Pass_Edit.asp?ID="&rs("Id")&"' >修改密码</a>"
else
if rs("username")=session("username") then
Response.Write"<a href='Pass_Edit.asp?ID="&rs("Id")&"' >修改密码</a>"
else%>
修改密码
<%end if%>
<%end if%>
<%end if%>
</div></td>
<td width="16%" bgcolor="#E3E3E3">
<div align="center">
<%if rs("disable") then %>
已禁用
<%else%>
<% if admin_quanli=1 and rs("username")<>"admin" then %>
<%Response.Write"<a href='javascript:confirmdel(" & rs("Id") & ")'>禁用</a>"%>
<%else%>
<%if admin_quanli=2 and rs("quanli")=3 and rs("guikou_id")=admin_guikou_id then %>
<%Response.Write"<a href='javascript:confirmdel(" & rs("Id") & ")'>禁用</a>"%>
<%else%>
可用
<%end if%>
<%end if%>
<%end if%>
</div></td>
</tr>
<%
rs.movenext
loop
end if
%>
<%
rs.close
conn.close
%>
</table>
</form>
</td>
</tr>
</table>
<BR>
<%call htmlend%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -