<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim flashname,id,currentpage,maxperpage,i,totalpage,totalrecords
dim comment,strfile

flashname=checkstr(request("flashname"))
id=request("id")

if not isinteger(id) then
  call mb("请正确指定您要查看的Flash作品！","",0)
end if

if flashname="" then
  call mb("丢数：Flash作品名称丢失！","",0)
end if

currentpage=request("page")
if not isinteger(currentpage) then
  currentpage=1
else
  currentpage=clng(currentpage)
end if

maxperpage=10
totalpage=1
totalrecords=0
i=1
strfile="?id="&id&"&flashname="&flashname&""

set rs=server.createobject("adodb.recordset")
sql="select * from comment where id="&id&" order by dateandtime desc"
rs.open sql,conn,1,1

if not (rs.bof and rs.eof) then
  rs.pagesize=maxperpage
  rs.absolutepage=currentpage
  totalpage=rs.pagecount
  totalrecords=rs.recordcount
end if
%>
<style type="text/css">
<!--
.style1 {font-size: 12px}
-->
<!--
.body {font-size: 12px}
-->
</style>

<table width="694" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="border" class="style1">
  <tr>
    <td width="659" height="118" valign="top"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="style1">
        <tr> 
          <td height="25" align="center"><div align="left" class="style1">网友对Flash作品：<font color=red><%=flashname%></font> 
            的所有评论</div></td>
        </tr>
        <tr> 
          <td height="1" background="images/bg_hline.gif" ></td>
        </tr>
	<%do until rs.eof or i>maxperpage%>
        <tr> 
          <td height="25">　<span class="style1">网友:<font color=blue><%=rs("name")%></font> 于 <%=rs("dateandtime")%> 
            发表评论说：</span></td>
        </tr>
        <tr> 
          <td height="25"> 　
            <%comment=rs("comment")
		   comment=replace(comment,chr(13),"<br>")
		   comment=replace(comment," ","&nbsp;")
		   response.write comment
		  %>
          </td>
        </tr>
        <tr>
          <td height="1" background="images/bg_hline.gif"></td>
        </tr>
	<%rs.movenext
	  i=i+1
	  loop
	 %>
		<tr>
          <td height="25" class="style1"><%if totalrecords>0 then call showpage11(strfile,totalrecords,maxperpage,true,true,"条评论")%></td>
        </tr>
      </table></td>
    <td width="35" valign="top">&nbsp;</td>
  </tr>
</table>


