📄 mod_add.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
if session("loginpass")<>true then Response.Redirect "notlogin.htm"
if session("IsAdmin")<>true then Response.Redirect "notlogin1.htm"
%>
<html>
<head>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
dim sql,username,password,opp,rs,rs2,message,rs3,sql3,aa,str,isadmin
opp=cint(request("opp"))
username=request("username")
password=request("password")
aa=request("R1")
if aa="V1" then
str="超级管理员"
isadmin=true
else
str="工作人员"
isadmin=false
end if
if opp=0 or username="" or password="" then
call loginform
Response.End
else
select case opp
case 1
set rs=server.CreateObject ("adodb.recordset")
sql="select * from Admin where UserName='"&username&"'"
rs.Open sql,conn,1,3
rs("Password")=md5(password)
rs("IsAdmin")=isadmin
rs.Update()
rs.Close()
set rs=nothing
message="你已经成功修改密码，请记住新密码！"
call success
case 2
'sql="insert into Admin(UserName,Password) values('"&username&"','"&md5(password)&"')"
set rs2=server.CreateObject ("adodb.recordset")
sql="select * from Admin"
rs2.Open sql,conn,1,3
rs2.AddNew()
rs2("UserName")=username
rs2("Password")=md5(password)
rs2("IsAdmin")=isadmin
rs2.Update()
rs2.Close()
set rs2=nothing
message="你已经成功添加"&username&"用户，他的管理员类型为"&str&"，请注意保密性！"
call success
case else
message="没有修改任何数据"
call success
end select
end if
%>
<%
sub loginform()
%>
<table width="103%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="#F7F7F7"><strong>修改用户密码或者添加管理用户</strong></td>
</tr>
<tr>
<td align="center"><form method="post" name="logform" action="mod_add.asp"><p><br>
请输入你的用户名：
<input name="username" type="text" id="username" size="20">
</p>
<p> 请输入你的密码：
<input name="password" type="password" id="password" size="20">
</p>
<p> 请选择管理员类型：<input type="radio" value="V1" checked name="R1">超级管理员<input type="radio" name="R1" value="V2">工作人员
</p>
<p><input name="opp" type="hidden" value="">
<input name="modify" type="button" id="modify" value="修 改" onclick="javascript:csubmit(1)">
<input name="adduser" type="button" id="adduser" value="添 加" onclick="javascript:csubmit(2)">
</p>
</form></td>
</tr>
</table>
<script language="javascript">
function csubmit(p){
if (p==1){
logform.opp.value =1;
if (logform.username!="" && logform.password!=""){
logform.submit();
}else{
alert("请填上正确信息！");
logform.username.focus();
}
}
if (p==2){
logform.opp.value =2;
if (logform.username!="" && logform.password!=""){
logform.submit();
}else{
alert("请填上正确信息！");
logform.username.focus();
}
}
}
</script>
<%
set rs3=Server.CreateObject("ADODB.Recordset")
sql3="select * from Admin"
rs3.open sql3,conn,1,1
%>
<form name="deluser" action="del_user.asp" method="post"><input type="hidden" name="delid" value=""></form>
<script language="JavaScript">
function del_user(id)
{
deluser.delid.value=id;
deluser.submit();
}
</script>
<table width="103%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="#F7F7F7"><strong>删除用户</strong></td>
</tr>
<% 'password=md5("aa")
'response.write md5(password)
'response.end
while not(rs3.eof)
if rs3("IsAdmin") then%>
<tr>
<td align="center">管理员类型：<font color="#FF0000">超级管理员</font><br>用户名： <font color="#0000FF"><%=rs3(1)%></font> [<font color="#FF0000"><span onClick="javascript:del_user(<%=rs3(0)%>)" style="cursor:hand">删除</span></font>]</td>
</tr>
<% else%><tr>
<td align="center">管理员类型：<font color="#FF0000">工作人员</font><br>用户名： <font color="#0000FF"><%=rs3(1)%></font> 密码：<font color="#0000FF"><%=rs3("Password")%></font> [<font color="#FF0000"><span onClick="javascript:del_user(<%=rs3(0)%>)" style="cursor:hand">删除</span></font>]</td>
</tr>
<% end if
rs3.movenext
wend
%>
</table>
<%
end sub
sub success()
%>
<table width="103%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="#F7F7F7"><strong>成功</strong><strong></strong></td>
</tr>
<tr>
<td align="center"><br>
服务器时间： <strong><%=now()%></strong>
<hr width="98%">
<div align="left"> 环境监测：<strong>通过</strong>
<p> <%=message%></p>
</div>
<hr width="98%">
<div align="left"> PowerBy：<a href="mailto:jsbaba@sina.com">ＪＳ</a></div></td>
</tr>
</table>
<%
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -