📄 admin.asp
字号:
<!--#include file="conn.asp"-->
<%
set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select * from admin"
rs2.open sql2,conn,1,1
%>
<%
if session("admin") <> rs2("admin") or session("adminpass") <> rs2("adminpass") then
response.write("<script>alert('你还没有登录，无法访问该页！')</script>")
server.transfer("admin_login.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs2("webname")%>日记本
</title>
<style fprolloverstyle>A:hover {color: #FF0000}
</style>
</head>
<body link="#000000" vlink="#666666">
<form method="POST" action="admin_modify.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#A9D46D">
<tr>
<td width="16%">
<font size="2">
修改管理员密码：</font></td>
<td width="8%" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<font size="2">
用户名：</font></td>
<td width="19%" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<input type="text" name="admin" size="17" value="<%=rs2("admin")%>" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"></td>
<td width="7%" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<font size="2">
密码：</font></td>
<td width="16%" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<input type="password" name="adminpass" size="14" value="<%=rs2("adminpass")%>" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"></td>
<td width="18%" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<input type="submit" value="修改" name="B1" style="border-style: solid; border-width: 1; padding: 0; background-color: #FFFFFF"></td>
<td width="17%" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<p align="center">
<font size="2">
<a href="sys_modify.asp">
修改系统资料</a></font></td>
</tr>
</table>
</form>
<font style="font-size: 1.2951e-038"> </font><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="35">
<tr>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">ID</font></td>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">用户名</font></td>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">密码</font></td>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">email</font></td>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">QQ</font></td>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">注册时间</font></td>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">地区</font></td>
<td width="11%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">日记数</font></td>
<td width="12%" height="18" align="center" bgcolor="#A9D46D">
<font size="2">操作</font></td>
</tr>
<%
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from user order by addtime desc"
rs1.open sql1,conn,1,1
do while not (rs1.EOF or rs1.BOF)
dim user
user=rs1("user")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from diary where username='"&user&"'"
rs.open sql,conn,1,1
dim scount
scount=INT(Rs.recordcount)
%>
<tr>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=rs1("id")%></font></td>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=rs1("user")%></font></td>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=rs1("password")%></font></td>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=rs1("email")%></font></td>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=rs1("qq")%></font></td>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=rs1("addtime")%></font></td>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=rs1("area")%></font></td>
<td width="11%" height="16" align="center" bgcolor="#DDE7CD"><font size="2"><%=scount%></font></td>
<td width="12%" height="16" align="center" bgcolor="#DDE7CD"><a href=admin_del.asp?user=<%=rs1("user")%>&id=<%=rs1("id")%>>
<font size="2">删除</font></a></td>
</tr>
<%
Rs1.movenext
loop
%>
</table>
<div style=" FONT-SIZE: 10pt; FILTER: dropshadow(color=#cccccc,offx=1,offy=1);
COLOR: #666666; FONT-FAMILY:"宋体"; height:52>
<p><font size="2">
<%
dim usercount,diarycount
usercount=INT(Rs1.recordcount)
set rs3=Server.CreateObject("ADODB.Recordset")
sql3="select * from diary"
rs3.open sql3,conn,1,1
diarycount=INT(Rs3.recordcount)
%>
共有<%=usercount%>个用户使用本系统 | 系统共有<%=diarycount%>篇日记</font></p></div>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
rs3.close
set rs3=nothing
rs2.close
set rs2=nothing
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%><!--#include file="close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -