📄 admin_reviewview.asp
字号:
<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：web@sun116.net
'=========================================================
if session("AdminName") = "" then
response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%'option explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"%>
<%if request("id")="" then
response.write "您没有选择相关图片，请返回"
response.end
end if%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<title>讯网wap图片后台管理中心</title>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=23 colspan=2 class="topbg"><strong>评 论 管 理</strong></tr>
<tr>
<td width="100" class="tdbg" height=25><strong>管理快捷方式：</strong></td>
<td class="tdbg"><a href="Admin_Class.asp">管理首页</a>
| <a href="Admin_Pic.asp">管理文件</a>
| <a href="Admin_All.asp">批量管理</a>
</td>
</tr>
</table>
<br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% align=center class="border">
<tr>
<td width="100%" class="topbg" align="center" height="30">
<div>
<%
sql="select * from desktop where DesktopId="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
图片：<a href="../display.asp?id=<%=rs("Desktopid")%>" target="_blank"><b><%=rs("DesktopName")%></b>
</a>的相关评论</div>
</td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<% dim totalnews,Currentpage,totalpages,i
sql="select PicID,IswNumsClass,IswNumsIP,IswNumsUser,IswNumsContent,IswNumsDate,IswNumsHits from Pic_Review where IswNumsClass="&request("id")&" order by PicID DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ("还没有人评论！")
end if%>
<%
if not rs.eof then
rs.movefirst
newsperpage="10"
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalnews=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*newsperpage<totalnews then
rs.move(currentpage-1)*newsperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalnews mod newsperpage)=0 then
totalpages=totalnews\newsperpage
else
totalpages=totalnews\newsperpage+1
end if
i=0
do while not rs.eof and i<newsperpage
%>
<tr>
<td height="19" class="tdbg"> 评论员：<%=rs("IswNumsUser")%>
投票等级：<IMG src="../IMAGES/Review/<%=rs("IswNumsHits")%>star.gif">
<font color="#FF0000">---</font><a href="Admin_ReviewDel.asp?id=<%=rs("PicID")%>&nid=<%=rs("IswNumsClass")%>"><font color="#FFFFFF"><font color="#993333">删除本条评论</font></font></a>
<font color="#FF0000">--</font><a href="Admin_ReviewDelAll.asp?id=<%=rs("IswNumsClass")%>"><font color="#990000">删除本张图片所有的评论</font></a><font color="#FF0000">!!</font>
</td>
</tr>
<tr>
<td height="60" class="tdbg" style="table-layout:fixed; word-break:break-all"> 内容:<%=rs("IswNumsContent")%> <br>
<hr size="1">
<font color="#D4D4D4"><font color="#A1A1A1">该条评论由评论员：<%=rs("IswNumsUser")%>
发表于 ：<%=rs("IswNumsDate")%> <font color="#FF0000">IP:<%=rs("IswNumsIP")%> </font></font></font></td>
</tr>
<tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<%end if
end if%></tr>
<form name="form1" method="post" action="Admin_ReviewView.asp?id=<%=request("id")%>">
<tr class="tdbg">
<td align="right"> <%=currentpage%>/<%=totalpages%>页,<%=totalnews%>条记录/<%=newsperpage%>条记录每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<font color="#FF0000"><%=i%></font>
<%else%>
<a href="Admin_ReviewView.asp?id=<%=request("id")%>&page=<%=i%>"><%=i%></a>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<a href="Admin_ReviewView.asp?id=<%=request("id")%>&page=<%=page%>" title="下一页">>></a>
<%end if%>
<input type="text" name="page" class="textarea" size="4">
<input type="submit" name="Submit" value="Go" class="button">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
<!--#include file="copyright.asp" -->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -