📄 admin_adduser.asp
字号:
<!--#include file="include/conn.asp"-->
<html>
<head>
<link rel="stylesheet" href="inc/css.css" type="text/css" />
</head>
<body>
<form name="form1" method="post" action="">
<table width="550" border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#799AE1" class=tableBorder>
<tbody>
<tr>
<th colspan=2 align=center style="height: 23px">
<div align="center">
添加管理员</div></th>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="2" align="left" bgcolor="#DEE5FA" class=txlrow>
</td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td width="250" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">用户名：</div></td>
<td width="287" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">
<div align="left">
<input name="txtname" type="text" id="txtname" value="" size="15">
</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td width="250" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">密 码：</div></td>
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">
<div align="left">
<input name="txtpaw" type="password" id="txtpaw" size="15">
</div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td align="center" class="txlrow"><div align="center"></div></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow">
<div align="left">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="2" align="center" class="txlrow"><div align="center">
<p> </p>
<table width="350" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#799AE1">
<tr>
<td width="150"><div align="center" bgcolor="#799AE1">用户名</div></td>
<td width="150"><div align="center" bgcolor="#799AE1">密码</div></td>
<td width="150"><div align="center" bgcolor="#799AE1">编辑</div></td>
</tr>
<%
dim sql
sql="select * from user order by id"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr align="center">
<td height="10" align="center"><% =rs("usename") %> </td>
<td height="10" align="center"><% =rs("password") %> </td>
<td height="10" align="center"><a href="admin_edituser.asp?id=<%=rs("id")%>">修改 </a>
<a href="DELETE.asp?id=<%=rs("id")%>">删除</a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan=2 align=center class=txlrow></td>
</tr>
</tbody></table>
</FORM>
<%
dim s,usename,paw
paw=request.form("txtpaw")
usename=request.form("txtname")
if request.form("submit")="确定" then
if request.form("txtname")="" or request.form("txtpaw")="" then
response.write "<script> alert('用户名或密码不能为空!');history.go(-1);</script>"
else
set rs=server.CreateObject("adodb.recordset")
s="select * from user where usename='"&usename&"'"
rs.open s,conn,3,3
if not rs.eof then
response.write "<script> alert('该用户名已经存在!');history.go(-1);</script>"
else
rs.addnew
rs("password")=paw
rs("usename")=usename
rs.update
response.write "<script> alert('添加成功!');location.href='success.asp';</script>"
end if
rs.close
set rs=nothing
end if
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -