📄 usermanage.asp
字号:
<!--#include file="articleconn.asp"-->
<%
IF Session("KEY")<>"super"THEN
response.redirect "mymanage.asp"
response.end
END IF
%> <%
dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>天荣现代农业</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="style.css">
<style type="text/css">
<!--
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<div align="center" class="unnamed1">
<center>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#304D7C">
<td width="771" bgcolor="#304D7C" class="unnamed1" height="17"> <div align="center"><a href="myaddarticle.asp"><font color="#FFFFFF">增加新闻文章</font></a>
<font color="#FFFFFF"><b>|</b></font> <a href="makeindex.asp"><font color="#FFFFFF">生成首页图片新闻</font></a>
<font color="#FFFFFF"><b>|</b></font> <a href="newschk.asp"><font color="#FFFFFF">审核新闻</font></a>
<font color="#FFFFFF"><b></b></font><font color="#FFFFFF"><b>|</b></font>
<a href="usermanage.asp"><font color="#FFFFFF">用户管理</font></a><font color="#FFFFFF">
<b>|</b> </font><a href="change.ASP"><font color="#FFFFFF">栏目管理</font></a>
<font color="#FFFFFF"><b>|</b></font> <a href="templates.asp"><font color="#FFFFFF">新闻模版管理</font></a>
<font color="#FFFFFF"><b>|</b></font> <a href="mymanage.asp"><font color="#FFFFFF">浏览</font></a><font color="#FFFFFF">
<b>|</b> </font><a href="myaddarticle.asp"><font color="#FFFFFF"></font></a><a href=""><font color="#FFFFFF">退出系统</font></a></div></td>
<td width="10" valign="bottom" align="right" height="17"><img src="images/x1.gif" width="11" height="11"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" height="1">
<tr>
<td bgcolor="#3A5C9F" width="168" height="143" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#000000">
<td><img src="images/dot.gif" width="1" height="1"></td>
</tr>
</table>
<table width="151" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#DFDFDF">
<td width="131" class="unnamed2" height="2">
<div align="center" class="unnamed1"> 增 加 用 户</div>
</td>
<td width="20" valign="bottom" align="right" height="2"><img src="images/x9.gif" width="16" height="8"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <FORM METHOD=POST ACTION="UserADD.asp">
<div align="center">
<table width="98%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td>
<div align="center"><font color="#FFFFFF">用 户 名: <br>
<input type=text name=UserName2 size="15" class="smallInput">
</font></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font color="#FFFFFF">用 户 权 限: <br>
<select name="select">
<option value=super selected>系统管理员</option>
<option value=check>录入、审核</option>
<option value=input>新闻录入</option>
</select>
</font></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font color="#FFFFFF">密 码： <br>
<input type=text name=Passwd2 size="15" class="smallInput">
</font></div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type=submit value=增加 name="submit" class="smallInput">
<input type="submit" name="Submit" value="取消" class="smallInput">
</div>
</td>
</tr>
</table>
</div>
</FORM></td>
</tr>
</table>
</td>
<td bgcolor="#C4C4C4" width="3" height="143"><img src="images/dot1.gif" width="1" height="1"></td>
<td colspan="2" height="143" valign="top" align="right">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%
SET DATABASE=Server.CreateObject("ADODB.connection")
%>
<p>用户列表<br><%
rst.open "select * from admin ",conn,1
if rst.EOF then
response.write "没有栏目：（"
else
%>
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="8%" bgcolor="#304D7C">
<div align="center"><font color="#FFFFFF">ID号</font></div>
</td>
<td width="21%" bgcolor="#304D7C">
<div align="center"><font color="#FFFFFF">用户名</font></div>
</td>
<td width="18%" bgcolor="#304D7C">
<div align="center"><font color="#FFFFFF">密码</font></div>
</td>
<td width="30%" bgcolor="#304D7C">
<div align="center"><font color="#FFFFFF">权限</font></div>
</td>
<td width="23%" bgcolor="#304D7C">
<div align="center"><font color="#FFFFFF">删除</font></div>
</td>
</tr>
<%do while NOT rst.EOF%>
<tr bgcolor="#FFFFFF">
<td width="8%" align="center"><%=rst("id")%></td>
<td width="21%" align="center"><%=rst("Username")%></td>
<td width="18%" align="center"><%=rst("Passwd")%></td>
<td width="30%" align="center"><%=rst("oskey")%></td>
<td width="23%" align="center"><font color="#FFFFFF"><a href="userdel.asp?id=<%=rst("id")%>&name=del">删除</a></font></td>
</tr>
<%
rst.MoveNext
loop
end if
rst.close
%>
</table>
<p>系统管理员： super<br>
录入、审核员： check<br>
新闻录入： input</p>
</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#304D7C">
<td width="777" bgcolor="#304D7C" class="unnamed1" height="2">
<div align="center"></div>
</td>
<td width="10" valign="top" align="right" height="2"><img src="images/x4.gif" width="14" height="12"></td>
</tr>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -