pl.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/inc.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
title="全部评论"
execute(loadskin(skinmode))
call head()
dim plid,pltab
plid=YC_post("评论ID",request.querystring("id"),1,0,0)
pltab=YC_post("评论类别",request.querystring("pltab"),0,0,0)
call NowWhere("查看全部评论","pl.asp?id="&plid&"&pltab="&pltab)
%>
<table  border="0"  align="center" cellspacing="0" cellpadding="0">
<tr>
<td  valign="top" align="center" id="show" nowrap>
<table border="0" cellspacing="0" cellpadding="0"  width=""100%""><tr>
<td class="111" nowrap></td><td  class="222"  nowrap>
<%
YC("&nbsp;当前位置：<a href=index.asp>本站首页</a>→查看全部评论")
%>
<td class="333" nowrap></td></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"  width=""100%"">
<tr><td class="444" nowrap></td>
<td  class="555" valign="top" nowrap>
<%
set rs=server.CreateObject("adodb.recordset")
sql1="select * from [YC_pl] where pltype='"&pltab&"' and plid="&plid&" order by time desc"
rs.open sql1,conn,1,1
sql0="select * from "&pltab&" where id="&plid
set rs0=server.CreateObject("adodb.recordset")
rs0.open sql0,conn,1,1                
if not rs.bof and not rs.eof then
rs.pagesize=10
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
YC("<p class=""show_title"">&nbsp;√&nbsp;评论者："&Encode(rs("title"))&" 发表时间："&rs("time")&" IP："&rs("ip")&" </p>")
YC("<div class=""show_content"" style=""line-height:150%;height:40px;padding:2px;"">"&Encode(rs("content"))&"</div>")
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
YC("<center>暂时没有网友评论！</center>")
else
YC("<p class=""page"">")
call plpage("评论","篇")
YC("</p>")
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">
showPageLink("?id=<%=id%>&pltab=<%=pltab%>&page=",<%=mypage%>,<%=pages%>);
</script>
<%end sub%>
<td class="666" nowrap></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"  width=""100%"">
<tr>
<td  class="777" nowrap></td>
<td class="888" nowrap></td>
<td class="999" nowrap></td>
</tr></table>
</td></tr></table>
<%
rs0.close
Set rs0=nothing
rs.close
Set rs=nothing
call foot()
%>