📄 rj.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>2 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx19<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%><html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {
color: #000000;
font-weight: bold;
}
-->
</style>
</head>
<body><div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="30%" style="font-size:14px;color:#ffffff"> <span class="style2">信息管理</span></td>
<td width="70%" align="right"> </td>
</tr>
</table></td>
</tr>
</table>
<form method="POST" action="rjsave.asp?action=del">
<br>
<div align="center">
<table width="90%" border="0" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
<tr bgcolor="#C7D3E6">
<td height="23"> 最新日记主题</td>
<td height="23"><div align="center">发布人</div></td>
<td align="center" bgcolor="#C7D3E6">发布时间</td>
<td align="center" bgcolor="#C7D3E6">置顶</td>
<td align="center">审核</td>
<td align="center">推荐</td>
<td align="center">修改</td>
<td align="center">删除</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
set rs=conn.execute("select*from shop_rj ORDER BY id DESC")
page=request("page")
newpage=0
if page="" then page=1
do while newpage<page*31-31
newpage=newpage+1
rs.movenext
loop
do while not rs.eof
i=i+1%>
<tr bgcolor="#F0F3F8">
<td height="23" bgcolor="#F0F3F8"> <a href="../Diary/rj_show.asp?n=<%response.write rs("id")%>" target="_black">
<%response.write rs("rjname")%>
</a>
<%if rs("shh")=1 then%>
<font color="#FF0000">[已审]</font>
<%end if%>
<%if rs("rjtj")=1 then%>
<font color="#FF0000">[推荐]</font>
<%end if%> <%if rs("itop")=0 then%>
<font color="#FF0000">[顶]</font>
<%end if%></td>
<td><div align="center">
<%response.write rs("rjuser")%>
</div></td>
<td align="center" bgcolor="#F0F3F8">
<%response.write rs("rjdate")%> </td>
<td align="center" bgcolor="#F0F3F8"> <a href="rjsave.asp?action=itop&id=<%response.write rs("id")%>">
<%if rs("itop")=1 then%>
置顶
<%else%>
取消
<%end if%>
</a></td>
<td align="center"> <a href="rjsave.asp?action=shh&id=<%response.write rs("id")%>">
<%if rs("shh")=1 then%>
撤销
<%else%>
审核
<%end if%>
</a></td>
<td align="center"><a href="rjsave.asp?action=tj&id=<%response.write rs("id")%>">
<%if rs("rjtj")=1 then%>
撤销
<%else%>
推荐
<%end if%>
</a></td>
<td align="center"><a href="rjsave.asp?id=<%=rs("id")%>">修改</a></td>
<td align="center">
<input type="checkbox" name="de" value="<%response.write rs("id")%>"></td>
</tr>
<%if i=30 then exit do
rs.movenext
loop%>
</table>
<p>
<input type="submit" value="删除" name="B1" class="go-wenbenkuang">
<input type="reset" value="重选" name="B2" class="go-wenbenkuang">
</p>
<p>
<%if page=1 then %>
上一页
<%else%>
<a href="?page=<%=page-1%>">上一页</a>
<%end if%>
<%if i=30 and not rs.eof then %>
<a href="?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>
</div>
</form>
</div>
<div align="center">
<center>
<%rs.close
conn.close%>
</center>
</div> <br>
<!--#include file="copyright.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -