📄 changepass.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
If session("kenanbook")="" Then
Response.Redirect("login.asp")
End If
sql="select * from admin where admin='"&session("kenanbook")&"' and flag=0"
set rs=conn.execute(sql)
If rs.Bof Then
Response.write "<script language=javascript>alert('你没有权限进入此页！');history.back();</script>"
Response.End
End If
If Request.Querystring("style")="chk" Then
new_user=Replace(Trim(Request.Form("new_user")),"'","''")
new_pass=Replace(Trim(Request.Form("new_pass")),"'","''")
sql="select * from [admin] where admin='"&new_user&"'"
set rs=conn.execute(sql)
If not rs.Bof Then
Response.Redirect("error.asp?err=107")
End If
sql2="insert into admin (admin,password,flag) values ('"&new_user&"','"&new_pass&"',1)"
conn.execute(sql2)
Response.write "<script language=javascript>alert('填加用户成功！请进行其它操作！');location.replace('changepass.asp?manage=add');</script>"
ElseIf Request.Querystring("style")="del" Then
conn.execute("delete * from [admin] where ID=" & Request.QueryString("id"))
connclose()
Response.write "<script language=javascript>alert('删除用户成功！请进行其它操作！');location.replace('changepass.asp?manage=del');</script>"
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%>留言本管理页面</title>
<script language=javascript>
function check(){
if (form1.new_user.value==""){
alert("用户的名字？");
form1.new_user.focus();
return false }
if (form1.new_pass.value==""){
alert("用户的密码？");
form1.new_pass.focus();
return false }
if (form1.new_pass2.value==""){
alert("请重复输入用户密码");
form1.new_pass2.focus();
return false }
if (form1.new_pass.value!=form1.new_pass2.value){
alert("第一次输入密码和第二次输入的密码不一致！");
form1.new_pass2.focus();
form1.new_pass2.select();
return false }
return true }
function rusure()
{ question = confirm("你 确 定 要 删 除 吗?！")
if (question !="0")
{ parent.right.location = "loginout.asp" }
}
</script>
</head>
<body>
<%
If showbanner=true Then
call banner()
End If
%>
<% header()%>
<table width=<%=bodywidth%> height="264" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="216" align="center"><br>
<!--#include file="menu.asp"-->
</td>
<td width="544" valign="top"><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="33" align="center"><a href="changepass.asp?manage=add">填加用户</a>
| <a href="changepass.asp?manage=del">管理用户</a></td>
</tr>
</table>
<%
select case Request.QueryString("manage")
case "add"
Call add()
case "del"
Call del()
case Else
Response.write "<script language=javascript>alert('非法操作！');location.replace('adminindex.asp');</script>"
End select
%>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<% footer()
connclose()
%>
</body>
</html>
<% sub add() %>
<form name="form1" method="post" action="changepass.asp?style=chk" onsubmit="return check()">
<fieldset style="padding: 2; width:370; height:120">
<legend>填加用户</legend>
<table width=400 height="202" border="0" align="center" cellpadding="3" cellspacing="1" class="sft">
<tr>
<td colspan=2 class="sfh" align="center"></td>
</tr>
<tr>
<td width="40%" align="right">新管理员名称<font color="#990000"> </font><b></b></td>
<td width="60%"> <input type=text name="new_user" size=20> </td>
<tr>
<td align="right">新管理员密码</td>
<td> <input type=password name="new_pass" size=20> </td>
</tr>
<tr>
<td align="right">重复输入新管理员密码</td>
<td> <input type=password name="new_pass2" size=20> </td>
</tr>
<tr>
<td colspan=2 align=center> <input type=submit value="确 定" name="submit">
<input type="button" name="Submit" value="取 消" onclick=javascript:history.back()>
</td>
</tr>
</table>
</fieldset>
</form>
<% end sub %>
<%
sub del()
sql="select * from [admin] where flag=1"
set rs=server.CreateObject("Adodb.Recordset")
rs.open sql,conn,1,1
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="52%" height="25">用户</td>
<td width="48%" height="25">操作</td>
</tr>
<%
If rs.Bof Then
Response.Write("<tr align=center><td height=25></td><td height=25>现在没有用户管理。请返回！！！</td></tr>")
Else
DO While Not rs.Eof
%>
<tr align="center">
<td height="25"><%=rs("admin")%></td>
<td height="25"><a href="changepass.asp?style=del&id=<%=rs("ID")%>" onClick="rusure(); return false;">删除</a></td>
</tr>
<% i=i+1
rs.MoveNext
Loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
rs.pagesize=maxsize
'**********************分页程序*******************************************
dim currentpage,page,pagenum
max=rs.recordcount
pages=max/maxsize
dim gotopage '-------------------->注意！！在这里定义分页程序所跳转的页面
gotopage="changepass.asp" '----->如果这个程序的页面发生改变。可以设定值改变它
Rem 以下为判断分页逻辑
if pages>int(pages) then
pagenum=int(pages)+1
else
pagenum=int(pages)
end if
if trim(request("page"))<>"" then
currentpage=Clng(request("page"))
if currentpage=0 then currentpage=1
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
rs.absolutepage=currentpage
'******************************************************************
Response.Write("</table>")
Response.write("<form name=form1 method=post action="&gotopage&" onsubmit=""return xxg()"">")
Response.Write("<table align=""center"" width=""98%"" border=""0"" height=""20"">")
Response.Write("<tr><td width=""723"" height=""14""align=""center"">")
Response.Write("共<font color=red>"&rs.recordcount&"</font>条记录 ")
If currentpage-1>0 Then
Response.Write("<a href="&gotopage&">首页</a> ")
Response.Write("<a href="&gotopage&"?page="&(currentpage-1)&">上一页</a> ")
Else
Response.Write("<font color=#BBBBBB>首页 上一页 </font>")
End If
If currentpage<>pagenum Then
Response.Write("<a href="&gotopage&"?page="&(currentpage+1)&">下一页</a> ")
Response.Write("<a href="&gotopage&"?page="&pagenum&">尾页</a> ")
Else
Response.Write("<font color=#BBBBBB>下一页 尾页 </font>")
End If
Response.Write("转到：")
Response.Write("<input class=smallInput maxlength=10 name=page size=4 value="¤tpage&">")
Response.Write(" <input class=buttonface name=""submit"" type=submit value=GO>")
Response.Write("</td><td width=""11"" height=""14""> </td></tr></table></form>")
End If
%>
</td>
</tr>
</table>
<% end sub %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -