?? manage.asp
字號:
<!--
############################ 智思留言本 版權聲明 ##############################
##### 智思留言本系統（版本：ZSBS v3.0 構建于 2005/11/01） #####
##### 智思網絡（zhisi.net) （2004-2024）版權所有！ #####
##### 此留言本為自由源碼版，你可以自由傳播和使用而不用交納任何款項， #####
##### 你也可以進行更改，但必須本保留版權信息！ #####
##### 如需刪除版權信息，則必須經授權，并交納版權費，否則將會訴諸于法律！ #####
##### 電子郵箱：zhisi@126.com QQ：122178250 POPO：simonda #####
#################################################################################
##### 此版權信息不會妨礙你正常使用本留言本，我們承諾完全免費，但保留版權！ #####
################ 請訪問http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #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>智思留言本(ZSBS)后臺管理</strong></td>
</tr>
<tr>
<td height="30"> </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="outmang.asp">退出管理留言</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">[智思公告（建議站長勿刪）]<nobr>
<script src="http://www.zhisi.net/zsbook/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>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -