<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%
call pass()
title="全部评论"
call top()%>
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td>
<td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr><td valign=top>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;※&nbsp;会员登陆</td><td  class=lefttopright></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  height=150 >
<%call login()%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;※&nbsp;站内搜索</td><td  class=lefttopright></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  align=center>
<%call search()%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%>
</td>
<td width="5"></td>
<td valign=top align=right><%call br%>
<%
set rs=server.CreateObject("adodb.recordset")
sql1="select * from YC_pl where pltype='"&request("pltab")&"' and plid="&request("id")&" order by time desc"
rs.open sql1,conn,1,1
sql0="select * from "&request("pltab")&" where id="&request("id")
set rs0=server.CreateObject("adodb.recordset")
rs0.open sql0,conn,1,1
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td class=righttopleft></td>
<td class=righttopcenter>&emsp;当前位置：<a href="index.asp"><%=webname%>首页</a>→查看全部评论</td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0"><tr>
<td class=rightcenterleft></td>
<td  class=rightcentercenter valign=top> 
<table  width=100% border=1 bordercolor=<%=border%> rules=rows frame=void  cellspacing=0 cellpadding=0>                  
<%if not rs.bof and not rs.eof then
rs.pagesize=cint(yecaopage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr class=bg height=25><td>&nbsp;评论人：<%=rs("title")%>&nbsp;&nbsp;&nbsp;评论时间：<%=rs("time")%></td></tr>
<tr height=35><td valign=top style="word-break:break-all;table-layout:fixed;text-align:left;line-height:180%">
&nbsp;<%=key(rs("content"))%></td></tr>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center><font color=red><b>暂时没有娱乐！</</b></font></td></tr>"
else
response.write"<tr class=bg>"
response.write"<td colspan=3 height=25 align=center>"
call plpage("评论","篇")
response.write"</td></tr>"
end if
sub plpage(one,two)
response.write "&emsp;&emsp;共有"&one&"<font color=red>"&rs.recordcount&"</font>"&two&"，每页<font color=red>"&rs.pagesize&"</font>"&two&"，分<font color=red>"&mypage&"</font>/"&rs.pagecount&"页&emsp;&emsp;&emsp;"
id=request.querystring("id")
pltab=request.querystring("pltab")
%>
<script language="javascript">
function showPageLink(sUrl,iPage,iCount){
var i;
i=Math.max(1,iPage-1);
document.write("<a href=\""+sUrl+"1\"><FONT face=Webdings>9</FONT></a> ");
document.write("<a href=\""+sUrl+i+"\"><FONT face=Webdings>7</FONT></a> <b>");
for(i=Math.max(1,iPage-5);i<iPage;i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
document.write("<font color='#ff3333'>"+iPage+"</font> ");
for(i=iPage+1;i<=Math.min(iCount,iPage+5);i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
i=Math.min(iCount,iPage+1);
document.write("</b><a href=\""+sUrl+i+"\"><FONT face=Webdings>8</FONT></a> ");
document.write("<a href=\""+sUrl+iCount+"\"><FONT face=Webdings>:</FONT></a> ");}
showPageLink("?id=<%=id%>&pltab=<%=pltab%>&page=",<%=mypage%>,<%=pages%>);
</script>
<%end sub%>
</table></form></TD></TR></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr>
<td  class=rightfootleft></td><td class=rightfootcenter></td></tr></table><%call br()%>
</td></tr></table></td><td class=right></td></tr></table>
<%rs0.close
Set rs0=nothing
rs.close
Set rs=nothing
call foot()
%>










  