📄 a_add.asp
字号:
<%if session("admin")<>"" then%>
<!--#include file="x_conn.asp"-->
<%
'**********************************************************
' zhuzhu 1.0 Free Power by zgrq.com
' Email:ringsbot@163.com OICQ：500985
' 网站: http://www.zgrq.com 演示：http://www.zgrq.com
'**********************************************************
set rs=server.createobject("adodb.recordset")
sql="select * from [admin] order by id desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<link href="skin_1.css" rel="stylesheet" type="text/css">
<title>RanRan</title>
<style type="text/css">
<!--
.zit {
font-size: 12px;
}
-->
</style>
</head>
<body>
<form action="save.asp?action=a_add" method="post" name="add">
<font color="#006699" class="zit"><strong>添加管理员帐号</strong></font>
<table width="310" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="36"><div align="right">帐号：</div></td>
<td width="266"><input name="admin" type="text" class=xndyk id="names" size="20" maxlength="10">
</td>
</tr>
<tr>
<td><div align="right">密码：</div></td>
<td><input name="passwd" type="text" class=xndyk size="20" maxlength="10">
</td>
</tr>
<tr align="center">
<td> </td>
<td><div align="left">
<input type="submit" name="Submit" value="添加管理员" class=xndyk>
<input type="reset" name="Submit" value="重 填" class=xndyk>
</div></td>
</tr>
</table>
</form>
<hr align="left" width="310" size="1" noshade>
<br>
<table width="310" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="107"><div align="center"><strong><font color="#006699">管理帐号</font></strong></div></td>
<td width="187"><div align="center"><font color="#006699"><strong>其他操作</strong></font></div></td>
</tr>
<%do while not rs.eof%>
<tr>
<td><div align=center><a href="a_edit.asp?id=<%=rs("id")%>"><%=rs("admin")%></a></div></td>
<td><div align="center"><a href="a_edit.asp?id=<%=rs("id")%>">修改资料</a> ┊ <a href="a_del.asp?id=<%=rs("id")%>">删除此管理员</a></div></td>
</tr>
<tr>
<td colspan="2" height="1" background="images/bg_dian.gif"></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<p> </p>
</body>
</html>
<%
else
response.Redirect("a_admin.asp")
end if
'**********************************************************
' zhuzhu 1.0 Free Power by zgrq.com
' Email:ringsbot@163.com OICQ：500985
' 网站: http://www.zgrq.com 演示：http://www.zgrq.com
'**********************************************************
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -