usermana.asp
来自「实现对图片的基本处理：打开、增加、删除等。」· ASP 代码 · 共 150 行
ASP
150 行
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<%
sql="select * from [admin]"
set rs=Server.CreateObject("Adodb.Recordset")
rs.open sql,conn,1,1
If rs.Bof Then
Response.Write("<script language=javascript>alert('非法操作。请返回！！！');history.back()</script>")
Response.End
End If
If Request.QueryString("style")="del" Then
conn.execute("delete * from admin where ID=" & Request.QueryString("id"))
Response.Write("<script language=javascript>alert('删除成功！！！');window.location.replace('usermana.asp');</script>")
End If
If Request.QueryString("style")="add" Then
sql="select * from [admin] where admin='"&Request.Form("user")&"'"
set rs=Server.CreateObject("Adodb.Recordset")
rs.open sql,conn,1,1
If not rs.Bof Then
Response.Write("<script language=javascript>alert('已经有此用户。请返回！！！');history.back()</script>")
Response.End
End If '判断一下。是否已经有此用户。如果有的话程序返回
conn.execute("insert into admin (admin,password,flag) values ('"&Request.Form("user")&"','"&Request.Form("pass")&"',"&Request.Form("flag")&")")
Response.Write("<script language=javascript>alert('填加用户成功！！！');window.location.replace('usermana.asp');</script>")
connclose()
Response.end
End If
'填加一个用户
If Request.QueryString("style")="edit" Then
conn.execute("update admin set password='"&Request.Form("password")&"' where admin='"&Request.Form("admin")&"'")
Response.Write("<script language=javascript>alert('修改成功！！！');window.location.replace('usermana.asp');</script>")
connclose()
Response.end
End If '修改用户的密码
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function rusure()
{ question = confirm("你确定要删除这条记录吗？本操作无法撤消！！！")
if (question !="0")
{ parent.right.location = "del.asp" }
}
function xxg()
{
if (form2.user.value=="")
{
alert("姓名？？？");
return false;
}
if (form2.pass.value=="")
{
alert("密码？？？");
return false;
}
return true
}
</script>
</head>
<body>
<br>
<br>
<%
if session("flag")>0 then
Response.Write("<br><br><br><center>对不起。你没有权限进入此页面！！！</center>")
Response.end
end if
%>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<td width="6%" height="25">ID</td>
<td width="30%" height="25">姓名</td>
<td width="30%">密码</td>
<td width="34%" height="25">操作</td>
</tr></table>
<%
rs.pagesize=8
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
Do While Not rs.Eof %>
<table width="580" align="center">
<%
if rs("flag")>0 then
%>
<form action="usermana.asp?style=edit" method="post">
<tr>
<td width="41" height="25" align="center"><%=rs("ID")%></td>
<td width="202" height="25">
<input name="admin" type="text" id="admin" value="<%=rs("admin")%>" size="18" readonly="true">
</td>
<td width="208" height="25">
<input name="password" type="password" id="password" value="<%=rs("password")%>" size="18"></td>
<td width="109" height="25" align="center"><input name="submit" type="submit" id="submit" value="修改"><a href="usermana.asp?id=<%=rs("ID")%>&style=del" onClick="rusure();return false;">
删除</a></td>
</tr>
</form>
</table>
<% else %>
<table width="580" align="center">
<tr bgcolor="#CCCCCC">
<td width="35" height="25" align="center"><%=rs("ID")%></td>
<td width="209" height="25" bgcolor="#CCCCCC"><%=rs("admin")%></td>
<td width="214" height="25" bgcolor="#CCCCCC">******</td>
<td width="102" height="25" align="center"> </td>
</tr>
</table>
<%
end if
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop %>
</table>
<form name="form1" method="post" action="usermana.asp">
<table width="62%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>共有用户:<font color=red><%=rs.recordcount%></font> <a href=usermana.asp>首页</a> <a href=usermana.asp?page=<%=currentpage-1%>>
上一页</a> <a href=usermana.asp?page=<%=currentpage+1%>>
下一页 </a> <a href=usermana.asp?page=<%=rs.pagecount%>>尾页</a>
转到
<input name="page" type="text" id="page" value="<%=currentpage%>" size="4">
<input type="submit" name="Submit" value="GO"> <input name="search" type="hidden" id="search" value="<%=search%>">
<input name="key" type="hidden" id="key" value="<%=key%>"></td>
</tr>
</table>
</form>
<form name="form2" method="post" action="usermana.asp?style=add" onsubmit="return xxg()">
<table width="400" height="101" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center">填加用户</td>
</tr>
<tr>
<td width="113" align="center">姓名</td>
<td width="287"><input name="user" type="text" id="user"></td>
</tr>
<tr>
<td align="center">密码</td>
<td><input name="pass" type="password" id="pass"></td>
</tr>
<tr>
<td align="center">权限</td>
<td> <input name="flag" type="radio" value="1" checked>
用户⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?