<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>影片评论</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../Conn.asp" -->
<!--#include file="../Function/Function.asp" -->
<!--#include file="../function/Page.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
           <td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
             <tr>
               <td width="6%">&nbsp;</td>
               <td width="94%">影片评论</td>
             </tr>
           </table></td>
         </tr>
       </table><br />
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
         <tr>
           <td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
             <tr>
               <td align="right"><br>
                 <%Dim int_RPP
int_RPP=20 '设置每页显示数目 
Set RS=Server.CreateObject(YWNT_TMS_RS)
sql="select CommentsContent,CommentsUsers,CommentsDate from YWNT_TMS_Comments where CommentsAudit=1 and CommentsMovieID="&NoSqlHack(Request.QueryString("MovieID"))&" order by id desc"
RS.open sql,conn,1,1
if Rs.eof then
	   Response.Write"没有记录。"
	else
		Rs.PageSize=int_RPP
		cPageNo=NoSqlHack(Request.QueryString("Page"))
		If cPageNo="" Then cPageNo = 1
		If not isnumeric(cPageNo) Then cPageNo = 1
		cPageNo = Clng(cPageNo)
		If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount 
		If cPageNo<=0 Then cPageNo=1
		Rs.AbsolutePage=cPageNo 
	for i=1 to int_RPP
	 if Rs.eof Then exit For%>
                 <table width="98%"  border="0" cellpadding="1" align="center" cellspacing="0" bgcolor="0C9EEB">
                   <tr>
                     <td align="center"><table width="100%"  border="0" cellpadding="1" cellspacing="1" bgcolor="#D9D9D9" style="layer-out:fixed;word-break:break-all ">
                         <tr bgcolor="#0096D4">
                           <td height="22" width="4%" align="center"><img src="<%= GetConfig("WebiInstallDir") %>Users/images/senbapl_19.jpg" alt="" width="15" height="17" hspace="3" /></td>
                           <td align="left"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                               <tr>
                                 <td><font color="#FFFFFF"><strong><%=RS("CommentsUsers")%></strong></font></td>
                                 <td width="28%"><font color="#FFFFFF">日期：<%=RS("CommentsDate")%></font></td>
                               </tr>
                           </table></td>
                         </tr>
                         <tr bgcolor="#FFFFFF">
                           <td height="22" align="center"><img src="<%= GetConfig("WebiInstallDir") %>Users/images/senbapl_22.jpg" alt="" width="15" height="20" hspace="3" /></td>
                           <td align="left"><%=UBBcode(RS("CommentsContent"))%></td>
                         </tr>
                     </table></td>
                   </tr>
                 </table>
                 <table width="100" height="10" border="0" cellpadding="0" cellspacing="0">
                   <tr>
                     <td></td>
                   </tr>
                 </table>
                 <%Rs.MoveNext
	next 
	end if
	response.Write fPageCount(Rs,cPageNo)
	RS.Close
Set RS = Nothing%>
                </td>
             </tr>
           </table></td>
         </tr>
       </table></td>
     </tr>
</table>
<%call connclose()%>
<br>
</body>
</html>