📄 adminindex.asp
字号:
<%
user=request("user")
adminuser=request("adminuser")
if adminuser="" then adminuser=session("adminuser")
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("pfcr1015.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs1=server.createobject("adodb.recordset")
sql1="SELECT * from admin"
rs1.open sql1,conn,1,1
cjpass=rs1("password")
cjuser=rs1("name")
set rs2=server.createobject("adodb.recordset")
sql2="SELECT * from user where user='"&user&"'"
rs2.open sql2,conn,1,1
if not rs2.eof then
pass=rs2("pass")
url=rs2("url")
mail=rs2("mail")
logo=rs2("logo")
end if
if logo="" or isnull(logo) then logo="images/girl.gif"
if session("root")<>pass and session("root")<>cjpass then
response.redirect "index.asp?user="&user&""
end if
ok="yes"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>管理界面</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style>
BODY {scrollbar-track-color:#ffffff; SCROLLBAR-FACE-COLOR: #ffffff; FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #eeeeee; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; SCROLLBAR-ARROW-COLOR: #dddddd; FONT-FAMILY: "Verdana"; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
select{font-size:8pt;font-family:verdana;background-color:#ffffff;border:1px dotted #cccccc; color:#333333;}
input{font-size:8pt;font-family:verdana;background-color:#ffffff;border-bottom:1px solid #cccccc;border-left:1px solid #cccccc; border-top:0px solid #cccccc;border-right:0px dotted #cccccc;color:#333333;}
textarea{font-size:8pt; font-family:verdana;background-color:#ffffff;border:1px dotted #cccccc;color:#333333;letter-spacing : 1pt ;line-height : 150%}
A {
COLOR: #333333; TEXT-DECORATION: none ;border-bottom:1px dotted
}
A:hover {
COLOR: #333333; background-color:#C0FFFF;
}
td {FONT-SIZE: 9pt; FONT-FAMILY: "Arial"; color:#3333333;letter-spacing : 1pt ;line-height : 150%}
.td{border:1px dotted #999999}
</style>
</head>
<body topmargin="3" leftmargin="0" bgcolor="#FFFFFF">
<%
set rs=server.createobject("adodb.recordset")
if session("root")=cjpass and user="" then
sql="SELECT * from txt order by 年*10000+月*100+日 desc"
else
sql="SELECT * from txt where 用户='"&user&"' order by 年*10000+月*100+日 desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p>还 没 有 一 则 日 记</p>"
%>
<p align="center">
<%if session("root")=cjpass and adminuser=cjuser then%>
|<a href="yhgl.asp">用户管理</a>|<a href="admchangpass.asp">超级修改日记参数</a>
<%else%>
<font size="2">|<a href="add.asp?user=<%=user%>">我要写日记</a>|<a href="changpass.asp?user=<%=user%>">修改我的日记参数</a>
<%end if%>
|<a href="index.asp?user=<%=user%>">退出日记管理</a>|</font>
<%else%>
<div align="center">
<center>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><font size="2">
<%if user="" then%>
所有人
<%end if%>
<%=user%>的日记本 <img border="0" src="images/08.gif" width="11" height="10"></font></td>
</tr>
<tr>
<td width="100%">
<p align="center">
<%if session("root")=cjpass and adminuser=cjuser then%>
|<a href="yhgl.asp">用户管理</a>|<a href="admchangpass.asp">超级修改日记参数</a>
<%else%>
<font size="2">|<a href="add.asp?user=<%=user%>">我要写日记</a>|<a href="changpass.asp?user=<%=user%>">修改我的日记参数</a>
<%end if%>
|<a href="index.asp?user=<%=user%>">退出日记管理</a>|</font>
</td>
</tr>
</table>
</center>
</div>
<center>
<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; }</style>
<table cellspacing=0 border=0 width=95% bgcolor="#ffffff" align=center>
<tr>
<td height=1></td>
</tr>
</table>
<br>
<table width="95%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolorlight="#51bfe0" bordercolordark="#ffffff">
<tr bgcolor="#51bfe0">
<td bgcolor="#51bfe0">
<p align="center"><font size="2" color="#FFFFFF">日记内容</font>
</td>
<td width=100>
<p align="center"> <font color="#FFFFFF">
<%if session("root")=cjpass then%>
用户|
<%end if%>
操作 </font>
</td>
<td width=60>
<p align="center"><font size="2" color="#FFFFFF">天气</font>
</td>
<td width=30>
<p align="center"><font size="2" color="#FFFFFF">表情</font>
</td>
<td width=80>
<p align="center"><font size="2" color="#FFFFFF">日期</font>
</td>
<td width=60>
<p align="center"><font size="2" color="#FFFFFF">是否保密</font>
</td>
</tr>
</table>
<%
cc=1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.PageSize=rs1("page")
rs.AbsolutePage=pagecount
For iPage = 1 To rs.PageSize
If rs.EOF Then Exit For
%>
<table width="95%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolorlight="#51bfe0" bordercolordark="#ffffff">
<%
if cc mod 2=1 then
Response.Write "<tr bgcolor=#ffffff>"
else
Response.Write "<tr BGCOLOR=#ffffff>"
end if
%>
<td><img src=images/icon.gif height=8 width=24 border=0 hspace=0>
<%if rs("保密")="y" then%>
<font color=333333>
<%end if%>
<%=rs("日记内容")%></font></td>
<td width=100>
<p align="center"><font size="2">
<%if session("root")=cjpass then
user1=rs("用户")
%>
<aa href="adminindex.asp?user=<%=user1%>"><%=user1%></a>
<%
else
user1=user
end if%>
<a href=edita.asp?id=<%=rs("id")%>&user=<%=user1%>><img src=images/edit.gif height=16 width=9 border=0 hspace=0 alt=编辑></a>
<a href=del.asp?id=<%=rs("id")%>&user=<%=user1%>><img src=images/del.gif height=15 width=15 border=0 hspace=0 alt=删除></a></font></p>
</td>
<td width=60>
<center>
<font size="2"><%=rs("天气")%></font>
</center>
</td>
<td width=30>
<p align="center"><font size="2"><img src='<%=rs("心情")%>' width="32" height="32" border=0></font></p>
</td>
<td width=80>
<center>
<font size="2"><%=rs("年")%>.<%=rs("月")%>.<%=rs("日")%>
<%if DateDiff("d",rs("addtime"),date())<1 then%>
<%end if%>
</font>
</center>
</td>
<td width=60>
<center>
<%if rs("保密")="y" then%>
<font color=ff0000>保密</font>
<%else%>
公开
<%end if%>
</center>
</td>
</table>
<font size="2">
<%
cc=cc+1
rs.movenext
Next
Response.Write "<p>共"&rs.recordcount&"则日记，每页"
Response.Write rs1("page")
Response.Write "则，共"
Response.Write int(rs.recordcount/rs1("page")+.999999)
Response.Write "页，这是第"
Response.Write PageCount
Response.Write "页 "
if rs.PageCount>1 Then
If pagecount<>1 Then
Response.Write "<A HREF=adminindex.asp?Page=1&user="&user&">首页</A> "
Response.Write "<A HREF=adminindex.asp?Page="&(pagecount-1)&"&user="&user&">前页</A> "
End If
If pagecount<>rs.PageCount Then
Response.Write "<A HREF=adminindex.asp?Page="&(pagecount+1)&"&user="&user&">后页</A> "
Response.Write "<A HREF=adminindex.asp?Page="&rs.PageCount&"&user="&user&">尾页</A>"
End If
End If
end if
%>
</font> <br>
<br>
<font size="2"><font color="#FF0000"> </font></font>
</center>
<div align="center">
<center>
<p></p>
</center>
</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -