author_admin.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">管理专栏评论</font></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="4">
		<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
			<tr align="center" bgcolor="#F7F7F7">
				<td width="60%" height="34" valign="middle" bgcolor="#F7F7F7">评论内容</td>
				<td width="10%" height="34" valign="middle" bgcolor="#F7F7F7">发表人</td>
				<td width="15%">置顶 精华</td>
				<td width="15%">清理 删除</td>
			</tr>
			<%
set rs=server.createobject("adodb.recordset")
sql="select * from author_Comment where author_ID="&author_id&" order by CommentID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
			<tr align="center" bgcolor="#F7F7F7">
				<td height="34" colspan="4" valign="middle" bgcolor="#F7F7F7">
				<span class="style1">暂无任何评论</span></td>
			</tr>
			<%else%> <%dim page1
page1=clng(request("page"))
%><%
rs.pagesize=10
if page1=0 then page1=1 end if
pages=rs.pagecount
if page1 > pages then page=pages end if
rs.AbsolutePage=page1
for j=1 to rs.pagesize
%>
			<tr align="center" bgcolor="#F7F7F7">
				<td height="34" align="left" valign="middle" bgcolor="#F7F7F7"><%=rs("Content")%></td>
				<td height="34" align="center" valign="middle" bgcolor="#F7F7F7">
				<%=rs("UserName")%></td>
				<td align="center">
				<input class="button" type="button" name="IsTop" value="<%if rs("IsTop")=0 then%>置顶<%else%>取消<%end if%>" onclick="javascript:window.open('author_pinglunSave.asp?id=<%=rs("CommentID")%>&amp;act=goTop','_self','')" style="width: 35; height: 20">&nbsp;
				<input class="button" type="button" name="IsGood" value="<%if rs("IsGood")=0 then%>精华<%else%>取消<%end if%>" onclick="javascript:window.open('author_pinglunSave.asp?id=<%=rs("CommentID")%>&amp;act=goGood','_self','')" style="width: 35; height: 20"></td>
				<td align="center">
				<a href="author_pinglun_cll.ASP?id=<%=rs("CommentID")%>">清理</a>
				<a href="author_pinglun_del.ASP?id=<%=rs("CommentID")%>">删除</a></td>
			</tr>
			<%
rs.movenext
if rs.eof then exit for
next
%>
			<tr align="center" bgcolor="#F7F7F7">
				<td height="34" colspan="5" valign="middle" bgcolor="#F7F7F7"><%if Page1<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=author_admin.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=author_admin.asp?page=" & (page1-1) & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page1<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=author_admin.asp?page=" & (page1+1) & ">"
    response.write "下一页</a> <a href=author_admin.asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&page1&"</font>/"&rs.pagecount&"</strong>页 "
   response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"   
%></td>
			</tr>
			<%end if%>
		</table>
		</td>
	</tr>
</table>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>