📄 admin_user.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Response.Buffer =True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache" %>
<!--#include file="conn_fj16.asp" -->
<!--#include file="admin_qx.asp" -->
<% isgjgl %>
<%
sql="select * from admin156"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<title>添加用户及用户管理</title>
<style type="text/css">
<!--
.style3 {color: #FF0000}
.style1 {color: #0000FF}
body {
background-color: #DECDFA;
}
.STYLE4 {color: #FFFFFF}
.STYLE5 {color: #000000}
.STYLE6 {
color: #FFFFFF;
font-weight: bold;
font-size: 24px;
}
-->
</style>
</head>
<body>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
<tbody>
<tr>
<th width="100%" height=21 sytle="line-height:150%"><span class="STYLE4">【添加用户及用户管理】</span></th>
</tr>
<tr>
<td class=forumRow>
<form id="form1" name="form1" method="post" action="admin_user_add_save.asp">
<table width="545" border="1" align="center" cellpadding="3" cellspacing="1" bordercolor="#F3F3F3" style="border-collapse: collapse">
<tr>
<td width="112" class="style3">用户名：</td>
<td width="407"><label>
<input name="yonghuming" type="text" id="yonghuming" <%if session("xingming_zhengshu")<>"" then%>value="<%=session("xingming_zhengshu")%>"<%end if%> />
可以用真实姓名</label></td>
</tr>
<tr>
<td class="style3">密码：</td>
<td><label>
<input name="pwd" type="password" id="pwd" />
</label></td>
</tr>
<tr>
<td class="style3">确认密码：</td>
<td><label>
<input name="pwd2" type="password" id="pwd2" />
</label></td>
</tr>
<tr>
<td class="style3">真实姓名</td>
<td><input name="xingming" type="text" id="xingming" /></td>
</tr>
<tr>
<td class="style3">访问级别</td>
<td><label>
<select name="jibie" id="jibie">
<option value="0" selected>普通浏览用户(只读)</option>
<option value="1">系统管理员(学员增删减)</option>
<option value="2">最高级管理员(系统维护)</option>
</select>
</label></td>
</tr>
<tr>
<td class="style3">备注：</td>
<td><label>
<textarea name="beizhu" cols="50" rows="3" id="beizhu"></textarea>
</label></td>
</tr>
</table>
<p>
<label>
<div align="center">
<div align="center">
<input type="submit" name="Submit" value="新增用户" style="width:60;background-color: #FFCC66; color: #000000; border: 1 solid #00CC00" />
</div>
</label>
<label></label>
</form>
<table width="720" border="1" align="center" cellpadding="3" cellspacing="1" bordercolor="#F3F3F3" style="border-collapse: collapse">
<tr>
<td width="125" bgcolor="#F1BDFB">用户名</td>
<td width="86" bgcolor="#F1BDFB">真实姓名</td>
<td width="224" bgcolor="#F1BDFB">访问级别</td>
<td width="170" bgcolor="#F1BDFB">备注</td>
<td colspan="2" bgcolor="#F1BDFB"><div align="center">操作</div></td>
</tr>
<%
do while not rs.eof %>
<tr>
<td bgcolor="#EFE0FE"><span class="STYLE5"><%=rs("yonghuming")%></span></td>
<td bgcolor="#EFE0FE"><span class="STYLE5"><%=rs("xingming")%></span></td>
<td bgcolor="#EFE0FE"><span class="STYLE5">
<%if rs("jibie")="0" then response.Write "普通浏览用户(只读)"%><%if rs("jibie")="1" then response.Write "系统管理员(学员增删减)"%><%if rs("jibie")="2" then response.Write "最高级管理员(系统维护)"%></span></td>
<td bgcolor="#EFE0FE"><span class="STYLE5"><%=rs("beizhu")%></span></td>
<td width="48" bgcolor="#EFE0FE" ><div align="center" class="STYLE5"><a href="admin_user_update.asp?ID=<%=rs("ID")%>" target="_self"><img src="images/edit.gif" alt="修改" width="16" height="16" border="0"></a> </div></td>
<td width="53" bgcolor="#EFE0FE" ><div align="center"><a href="admin_user_delete.asp?ID=<%=rs("ID")%>&jb=<%=rs("jibie")%>" target="_self" class="STYLE5" onClick="return confirm('确认删除吗？')"><img src="images/delete.gif" alt="删除" width="18" height="18" border="0"></a></div></td>
</tr>
<%rs.movenext
loop
%>
</table>
<p align="center"><span class="style3">共<%=rs.recordcount%>条记录</span></p>
</td>
</tr>
</tbody>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -