📄 manage.asp
字号:
<!-- #include file="common.asp"-->
<!-- #include file="isadm.asp" -->
<!-- #include file="ubbcode.asp" -->
<%
set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from guest order by TopG,ID DESC"
rs.open sqlstr,conn,1,3
pagesize=5
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>|||网吧留言簿后台管理系统|||</title>
<link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
currentpage=request.querystring("currentpage")
if currentpage="" then
currentpage=0
rs.movefirst
else
rs.move Clng(currentpage)*pagesize
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="background-image:url(<% =GBSkin %>/guest_top.gif) ">
<tr align="center">
<td height="30" colspan="6" class="text_header"><strong>|||网吧留言簿后台管理系统|||</strong></td>
</tr>
<tr>
<td height="30"> </td>
<td width="120" align="center"><a href="index.asp" target=_blank><strong>|浏览留言簿首页|</strong></a></td>
<td width="120" align="center"><a href="config.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>"><strong>|留言簿设置|</strong></a></td>
<td width="120" align="center"><b><a href="news_mang.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">|留言簿公告管理|</a></b></td>
<td width="120" align="center"><a href="Aid_mang.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>"><strong>|管理员账号管理|</strong></a></td>
<td width="120" align="center"><b><a href="logout.html">|退出系统|</a></b></td>
<td> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="guest_name" style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
<tr>
<td height="30" align="center"><table width="720" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center"><b>[网吧留言簿（建议站长勿删）]<nobr>
<script src="rnews.asp"></script>
</nobr></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center" bgcolor="#EEEEEE"><table width="650" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" colspan="3" align="left" class="guest_name"><% rscount=rs.recordcount %>
共有 <% =rscount %> 条留言,
共 <%
totalpage=(rscount-1)/pagesize
totalpage=int(totalpage)+1
%><% =totalpage %>
页,
每页 <% =pagesize %> 条,
这是第 <% =currentpage+1 %> 页留言.</td>
<td align="right">
<% if Clng(currentpage)>0 then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)-1 %>">上一页</a>
<% else %>
上一页
<% end if %>/
<% if Clng(currentpage)+1<totalpage then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)+1 %>">下一页</a>
<% else %>下一页<% end if %> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#eeeeee" class="guest_name">
[
<%
i=1
while i<=totalpage
%>
<a href="manage.asp?currentpage=<% =i-1 %>"><% =i %></a>
<%
i=i+1
wend
%>
]
</td>
</tr>
<tr>
<td height="15" align="center" class="guest_name"> </td>
</tr>
</table>
<%
i=0
while i<pagesize and not rs.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="guest_name">
<tr align="right" bgcolor="#D9F5FF">
<td height="25" colspan="2">QQ：
<% =rs("Oicq") %>
邮箱：
<% =rs("email") %>
主页：<a href="<% =rs("homepage") %>" target="_blank">
<% =rs("homepage") %>
</a> IP:
<% =rs("IP") %>
</td>
</tr>
<tr bgcolor="#60D8FF">
<td height="25" colspan="2">
<% =rs("sex") %>
<font color="#FFFFFF"><strong>
<% =rs("name") %>
</strong></font> [ 来自
<% =rs("address") %>
]</td>
</tr>
<tr>
<td width="150" height="22" align="center" bgcolor="#FFFFFF"><img src="images/<% =rs("headpic") %>.gif" alt=""></td>
<td align="center" valign="top" bgcolor="#FFFFFF"><table width="600" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed; ">
<tr>
<td height="30"> <strong>
<% =rs("Title") %>
</strong> [
<% =rs("Date") %>
<% =rs("Time") %>
]</td>
</tr>
<tr>
<td height="2" bgcolor="#D9F5FF"></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
<tr>
<td style="word-break:break-all; word-wrap:break-word;"><% =ubbcode(rs("content")) %></td>
</tr>
<tr>
<td> </td>
</tr>
<%
set rsb=Server.CreateObject("ADODB.Recordset")
strsql="select * from reply where GuestID=" & rs("ID")
rsb.open strsql,conn,1,3
if not rsb.eof then
%>
<tr>
<td height="2" bgcolor="#0099CC"></td>
</tr>
<tr>
<td height="20" bgcolor="#D9F5FF">留言回复：<% if rs("ReNoView")= True then%><b>[已设置为不显示]</b><%else%><% end if %></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td style="word-break:break-all; word-wrap:break-word;"><% =ubbcode(rsb("content")) %></td>
</tr>
<tr>
<td> </td>
</tr>
<%
end if
rsb.close
set rsb=nothing
%>
</table>
</td>
</tr>
<tr bgcolor="#f5f5f5">
<td colspan="2" align="center" bgcolor="#f5f5f5">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="guest_name">
<tr align="center">
<td width="120"><font color=red><b><%If rs("TopG")=True Then%>置顶留言<%Else%>普通留言<%End If%></b></font></td>
<td width="160">
<%If ifNeedAuditing="YES" Then%>
<%If rs("ifHadDealAuditing")=False Then%>
<font color=red><b>未处理审核</b></font>[ <a href="setauditing.asp?ID=<% =rs("ID") %>&op=pass&pn=<% =currentpage %>">通过</a>|<a href="setauditing.asp?ID=<% =rs("ID") %>&op=unpass&pn=<% =currentpage %>">不通过</a> ]
<%Else%>
<%If rs("ifHadPassAuditing")=False Then%>
<font color=red><b>审核未通过</b></font> [ <a href="setauditing.asp?ID=<% =rs("ID") %>&op=pass&pn=<% =currentpage %>">通过</a> ]
<%Else%>
<font color=red><b>审核已通过</b></font> [ <a href="setauditing.asp?ID=<% =rs("ID") %>&op=unpass&pn=<% =currentpage %>">不通过</a> ]
<%End If%>
<%End If%>
<%End If%>
</td>
<td width="120" height="25"><a href="modify.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">修改留言</a></td>
<td width="120"><a href="delete.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">删除留言</a></td>
<td width="120"><a href="reply.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">回复/修改回复</a></td>
<td><%If rs("TopG")=False Then%><a href="settop.asp?ID=<% =rs("ID") %>&op=top&pn=<% =currentpage %>">设为置顶</a><%Else%><a href="settop.asp?ID=<% =rs("ID") %>&op=untop&pn=<% =currentpage %>">取消置顶</a><%End If%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="20" colspan="2" align="center"></td>
</tr>
</table>
</td>
</tr>
</table>
<% rs.movenext %>
<% i=i+1 %>
<% wend %>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="guest_name">
<tr bgcolor="#ECFBFF" >
<td height="25" align="left"><% rscount=rs.recordcount %>
共有 <% =rscount %> 条留言,
共 <%
totalpage=(rscount-1)/pagesize
totalpage=int(totalpage)+1
%><% =totalpage %>
页,
每页
<% =pagesize %> 条,
这是第 <% =currentpage+1 %> 页留言.</td>
<td align="right">
<% if Clng(currentpage)>0 then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)-1 %>">上一页</a>
<% else %>
上一页
<% end if %>/
<% if Clng(currentpage)+1<totalpage then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)+1 %>">下一页</a>
<% else %>下一页<% end if %> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#eeeeee" class="guest_name" height="30">
[
<%
i=1
while i<=totalpage
%>
<a href="manage.asp?currentpage=<% =i-1 %>"><% =i %></a>
<%
i=i+1
wend
%>
]
</td>
</tr><br>
<CENTER><P>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<td width="732" align="center" valign="middle" class="blog_footer" style="padding-bottom:2px; "><b><font color="#FF0000">Copyright © 2006-2008 民办本科-安徽新华学院2003计算机网络5班 陈军 All Rights Reserved </font></P></CENTER></td>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -