📄 userpass.asp
字号:
<!--#include file="setup.asp" -->
<%
dim rs,sql,action
set rs=server.createobject("adodb.recordset")
action=request("action")
if action<>"" and action<>"modify" then '校验密码
sql="select * from admin where user='"&request("admin")&"' and pwd='"&request("pass")&"'"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
action="error"
else
response.cookies("admin")=request("admin")
response.cookies("pass")=request("pass")
end if
rs.close
end if
select case action '选择动机～～
case "add"
if request("user")="" or request("newpass")="" or request("admin")<>"admin" then
response.write "<center>没有填写完必须的内容！没有保存...</center>"
else
sql="select * from admin where user='"&request("user")&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
conn.execute "insert into admin(user,pwd) values('"&request("user")&"','"&request("newpass")&"')"
response.write "<center>成功添加了一个用户...</center>"
else
response.write "<center>已经有一个同名的用户存在，请另选用户名...</center>"
end if
rs.close
end if
case "modify"
if request("user")="" or request("oldpass")="" or request("newpass")="" then
response.write "<center>没有填写完必须的内容！没有保存...</center>"
else
sql="select * from admin where user='"&request("user")&"'"
rs.open sql,conn,1,3
oldpass=rs("pwd")
if request("oldpass")=oldpass then
rs("pwd")=request("newpass")
rs.update
response.cookies("admin")=request("user")
response.cookies("pass")=request("newpass")
response.write "<center>已经成功修改了密码...请牢记新密码</center>"
else
response.write "<center>用户密码错误，密码没有修改...</center>"
end if
rs.close
end if
case "del"
if request("admin")="admin" then
sql="delete from admin where user='"&request("id")&"'"
conn.execute sql
response.write "<center>已经成功删除了...</center>"
else
response.write "<center>你是不是想冒充超级管理员？</center>"
end if
case "error"
response.write "<center>用户名/密码错！没有保存...</center>"
end select
%>
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<style type="text/css">
<!--
.inputbox { border-style: groove; border-top-width: 0px; border-right-width: 0px; border-bottom-width: thin; border-left-width: 0px}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<form name="form1" method="post" action="<%=request.servervariables("script_name")%>">
<div align="center">
<div align="center"><%=news_title%> - 用户管理 </div>
<table width="48%" border="1" align="center" cellspacing="0" cellpadding="0" bordercolor="#FFFFCC">
<tr>
<td>
<table width="100%" border="1" align="center" bgcolor="#FF9966" cellspacing="0" cellpadding="0" bordercolor="#FFCC66">
<tr>
<td>
<div align="center">超级管理员名称：
<input type="text" name="admin" value="<%=request.cookies("admin")%>">
</div>
<div align="center">超级管理员密码：
<input type="password" name="pass" value="<%=request.cookies("pass")%>">
</div>
<div align="center">*注意：超级用户必须输入此密码才能进行修改</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<BR>
<table width="68%" border="0" align="center">
<tr>
<td width="45%" valign="top">
<table width="100%" border="1" bordercolor="#339900">
<tr>
<td bgcolor="#CCCCCC">已经存在的用户</td>
</tr>
<%
sql="select * from admin"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td>没有类别</td></tr>"
else
do while not rs.eof
%>
<tr>
<td>
<div align="right"><%=rs("user")%> - <a href="javascript:setvalue('<%=rs("user")%>')">修改密码</a>
<a href="javascript:cdel('<%=rs("user")%>')">删除用户</a></div>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=Nothing
endconnection
%>
<tr>
<td>
<div align="right"><a href="javascript:newc()"";form1.action.value="add";form1.id.value="0"">+新增用户+</a>
<script language="JavaScript">
function setvalue(v){
var v;
form1.user.value=v;
form1.user.readOnly=true;
form1.oldpass.disabled=false;
form1.action.value='modify';
document.all.act.innerHTML="修改密码";
}
</script>
<script language="JavaScript">
function newc(){
//新增用户
form1.user.value="";
form1.user.readOnly=false;
form1.oldpass.disabled=true;
form1.action.value="add";
document.all.act.innerHTML="新增用户";
}
</script>
<script language="JavaScript">
function cdel(id){
//删除用户
var id;
if(form1.admin.value=="admin"){
if (confirm("你真的要删除 "+id+" 这个用户吗？")){
document.location.href="<%=request.servervariables("script_name")%>?action=del&id="+id+"&admin="+form1.admin.value+"&pass="+form1.pass.value;
}
}
else{alert("你不是超级用户，不能删除用户！")}
}
</script>
</div>
</td>
</tr>
</table>
</td>
<td width="55%" valign="top">
<div align="center">
<table width="88%" border="1" bordercolorlight="#000000" bordercolordark="#000000" cellspacing="2" cellpadding="0">
<tr>
<td>
<div align="center"><br>
...:.<span id="act"></span>.:...
<hr width="60%" size="1" noshade>
<br>
用户名：
<input type="text" name="user" size="12" class="inputbox">
<br>
旧密码：
<input type="password" name="oldpass" size="12" class="inputbox" disabled>
<br>
新密码：
<input type="password" name="newpass" size="12" class="inputbox">
<br>
再确认：
<input type="password" name="confirmpass" size="12" value="" class="inputbox">
<br>
<input type="hidden" name="action" value="add">
<br>
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Submit2" value="取消">
<br>
<br>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<script language="vbscript">
function form1_OnSubmit()
if document.form1.newpass.value="" or document.form1.newpass.value<>document.form1.confirmpass.value then
msgbox "密码校验错误！请确认新密码和确认密码一致！",vbcritical,"error"
form1_OnSubmit=false
exit function
end if
if document.form1.action.value="add" and document.form1.admin.value<>"admin" then
msgbox "你不是超级用户，只有超级管理员才能增加用户！",vbcritical,"error"
form1_OnSubmit=false
exit function
end if
end function
document.all.act.innerHTML="新增用户"
</script>
<BR>
<BR>
<div align="center">[<a href="admin.asp">返回管理</a>] [<a href="default.asp">返回主页</a>]
[<a href="addnews.asp">增加新闻</a>] [<a href="addcata.asp">管理类别</a>] [<a href="newscode.asp">新闻代码</a>]</div>
</form>
<script language="JavaScript">
document.write("<hr width='80%' size='1'>");
document.write("<div align='center' style=fontsize:9pt;><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<a href=<%=homepage_link%> target=_blank><font color=red><%=homepage_title%></font></a> - <a href=<%=news_location%>\default.asp><font color=black><%=news_title%></font></a><br>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>");
document.write("Copyright</font><font face='Verdana, Arial, Helvetica, sans-serif' color='#FF0000'> ");
document.write("<font color='#0000FF'>©</font></font>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>By ");
document.write("<a href=http://www.qbtrade.com target=_blank>QBTrade<font color='#0000FF'>™</font> Group</a>, 2000.8.30</font><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<br><font color='#000000'>All rights Reserved</font>");
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -