<!--#include file="conn/conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<HTML><HEAD><TITLE>留言本-<%=SiteName%>-<%=keys%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="description" content="<%=SiteName%>">
<meta name="keywords" content="<%=keys%>">
<LINK 
href="images/css1.css" type=text/css rel=stylesheet><LINK 
href="images/css2.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3395" name=GENERATOR>
<style type="text/css">
<!--
.style7 {font-weight: bold}
.style4 {	color: #008000;
	font-weight: bold;
}
.style5 {color: #FF0000}
-->
</style>
</HEAD>
<BODY background=images/wbg.gif>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=910 align=center bgColor=#0a253a 
border=0>
  <TBODY>
  <TR>
    <TD width=7></TD>
    <TD vAlign=top>
      <SCRIPT language=javascript>
		  function fod1(obj)
		  {
		   	//var p1 = document.getElementById("Fod_list1").getElementsByTagName("div");
			var p1 = obj.parentNode.parentNode.parentNode.parentNode;
			//alert(p1.innerHTML);
			var p11 = obj.parentNode.getElementsByTagName("div");
			var t1 = p1.getElementsByTagName("tr")[1].getElementsByTagName("ul");
			var n1 = p11.length;
			for(i=0;i<n1;i++)
			{
				if(p11[i] == obj)
				{
					p11[i].className = "s1";
					t1[i].className = "dis";
				}
				else
				{
					p11[i].className = "";
					t1[i].className = "undis";				
				}
			}
		  }
		</SCRIPT>
      
      <table width="896"  border="0" align="left" cellpadding="0" cellspacing="0" bgcolor="#2A659F">
        <tr>
          <th width="241" height="3" valign="top" scope="row"></th>
          <th width="655" valign="top" scope="row"></th>
        </tr>
        <tr>
          <th height="253" valign="top" scope="row" style="border-right:1px solid #c5e2fe;"><table cellspacing=1 cellpadding=5 width="240" border=0>
            <tbody>
              <tr>
                <td width="226" align="center" valign=top><a href="addgbook.asp"><img src="images/gbook/liu.jpg" width="108" height="35" border="0"></a> <br>
                    <font color="#FFFF00"><b>内容需管理员<br>
                      回复才能查看</b></font><br>
                  <br>
                  <table width="83%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><font color="#99FF00"><strong>申明：</strong></font><font color="#c5e2fe">本留言本是提供给网友交流，请勿在本留言本中签写的<strong><font color="#ffffff" size="4">广告</font></strong>等不良信息，否则一律删除！</font></td>
                    </tr>
                  </table>
                  </td>
              </tr>
            </tbody>
          </table>
             <table width="240" border="0">
            <TR background="images/3081602.gif">
              <TD height=31 vAlign=bottom background="images/dv.gif" id=Fod_list1><table width="105" align="center">
                  <tr>
                    <td width="17"><IMG height=18 
            src="images/cm01.gif" width=16 align=absMiddle></span></td>
                    <td width="105"><span class="font14px"><strong>伤感排行榜</strong></span></td>
                  </tr>
              </table></TD>
            </TR>

          </table>
             <table width="240" border="0" align="center">
              <%
 set rs=server.createobject("adodb.recordset")
sql="select top 25 * from film order by hits desc,id asc " 
rs.open sql,conn,1,1
do while not rs.eof
%>
              <tr>
                <td width="13%"><span class="fontl18"><IMG height=16 
                  src="images/c11c.gif" width=16 border=0></span></td>
                <td width="87%"><a href="dvshow.asp?id=<%=rs("id")%>"><font color="#ffff00">
                  <%if len(rs("title"))>14 then
			Response.Write left(rs("title"),14)&"…"
		Else
			Response.Write rs("title")
		End if%>
                </font></a></td>
              </tr>
              <% 
	rs.movenext 
	loop  
	rs.close 
		set rs=nothing
	%>
            </table>
            </th>
          <td height="50" align="center" valign="top" bordercolor="458ed5"><TABLE class=marb4 cellSpacing=0 cellPadding=0 width=100% border=0>
            <TBODY>
              <TR>
                <TD width=106 background=images/liu.gif 
                height=25></TD>
                <TD width=185 background=images/c52.gif></TD>
                <TD width=185 background=images/c53.gif></TD>
                <TD width=184 
              background=images/c54.gif></TD>
              </TR>
            </TBODY>
          </TABLE>      
            <table width="100%" border="1" cellpadding="0" cellspacing="4" bordercolor="458ed5">
              <tr>
                <td><TABLE height="100%" cellSpacing=1 cellPadding=5 width="100%" border=0>
                  <TBODY>
                    <TR>
                      <TD align="center" vAlign=top><% set rs=server.createobject("adodb.recordset") 
              if not isempty(request("page")) then   
	          pagecount=cint(request("page"))   
              else   
	          pagecount=1   
              end if
              sql="select * from gbook where flag=1 order by id desc"
              rs.open sql,conn,1,1
			  rs.pagesize=pagelist
              if pagecount>rs.pagecount or pagecount<=0 then              
              pagecount=1              
              end if              
              rs.AbsolutePage=pagecount %>
                          <% if rs.eof and rs.bof then %>
                          <font size=2><br>
                          <br>
                            对不起，还没有任何留言!</font>
                          <%else%>
                          <TABLE width=95% border=0 align="center" cellPadding=0 cellSpacing=0>
                            <TBODY>
                              <% do while not rs.eof %>
                              <TR>
                                <TD vAlign=top colSpan=6 
    height=5></TD>
                              </TR>
                              <TR>
                                <TD height=30 vAlign=center><img src="images/gbook/CSS.GIF" width="16" height="16"><font color="#FFFF00">:<%=rs("username")%></font><strong>&nbsp;</strong>&nbsp; &nbsp;&nbsp;</TD>
                                <TD width="5%" align="right" vAlign=center><a href="<%=rs("homeurl")%>" target="_blank"><img src="images/gbook/HOMEPAGE.GIF" alt="<%=rs("homeurl")%>" width="16" height="16" border="0"></a> </TD>
                                <TD width="5%" align="right" vAlign=center><img src="images/gbook/QQ.gif" alt="<%=rs("qq")%>" width="20" height="18"></TD>
                                <TD width="5%" align="right" vAlign=center><img src="images/gbook/EMAIL.GIF" alt="<%=rs("email")%>" width="16" height="16"></TD>
                                <TD width="5%" align="right" vAlign=center><img src="images/gbook/ip.gif" alt="<%=rs("ip")%>" width="13" height="15"></TD>
                              </TR>
                              <TR>
                                <TD height=30 colspan="5" vAlign=center >
								 <font color="#c5e2fe"><%
if rs("xin")=0 then 
response.write("<font color=yellow>该留言为悄悄话，仅管理员可见！</font>")
else
content=rs("body") 
response.write UBBcode(content) 
end if
%></font>
         <font color="#ffcaca">(<%=rs("dateandtime")%>)</font></TD>
                              </TR>
                              <TR>
                                <TD vAlign=top colSpan=6 height=5></TD>
                              </TR>
                              <TR>
                                <TD vAlign=top colSpan=6 height=5></TD>
                              </TR>
                              <% if rs("flag")=1 then %>
                              <TR>
                                <TD colspan="5"><font color="#99FF00">回复：
                                  <%reply=rs("reply")%>
                                      <%=UBBcode(reply)%></font><font color="#3c7ab6">(<%=rs("replytime")%>)</font></TD>
                              </TR>
                              <TR vAlign=center align=middle >
                                <TD height=10 colSpan=6></TD>
                              </TR>
                              <%end if%>
                              <TR vAlign=center align=middle>
                                <TD height=1 colSpan=6><hr width="98%" size="1" color="#0000FF" style="border: 1 dotted #3399CC"></TD>
                              </TR>
                              <TR vAlign=center align=middle>
                                <TD colSpan=6></TD>
                              </TR>
                              <% q=q+1                                                                                                  
          rs.movenext                                                                                                  
          if q>=rs.PageSize then exit do 
		  loop                                                                    
         %>
                            </TBODY>
                          </TABLE>
                        <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr align="right">
                              <% if rs.pagecount=1 then %>
                              <td height="30" colspan="2">共 <strong><font color="#c5e2fe"><%=rs.recordcount%></font></strong> 条留言</td>
                            </tr>
                            <tr>
                              <%else%>
                              <td width="41%" height="30" align="center" valign="middle"><font color="#000000">
                                <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
		    page_end=rs.pagesize*pagecount
		    if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
                                共 <strong><font color="#c5e2fe"><%=rs.recordcount%></font></strong> 条 &nbsp;&nbsp; 第 <strong><font color="#c5e2fe"><%=pagecount%></font></strong> 页 / 共 <strong><font color="#c5e2fe"><%=rs.pagecount%></font></strong> 页</font></td>
                              <td width="59%" height="30" align="right" valign="middle"><font color="#000000">
                                <% response.write"<form name=go2to form method=Post action='guestbook.asp'>"                                             
		     if pagecount=1 then                                                        
			 response.write "<font color='#000064'>首页 上一页</font>&nbsp;"
			 else                                                        
             response.write "<a href=guestbook.asp?page=1><font color='0000BE'>首页</font></a>&nbsp;" 
	         response.write "<a href=guestbook.asp?page="+cstr(pagecount-1)+"><font color='0000BE'>上一页</font></a>&nbsp;"
			 end if                                             
             if rs.PageCount-pagecount<1 then                                                        
             response.write "<font color='#000064'>下一页 尾页</font>"                                                    
			 else                                                        
             response.write "<a href=guestbook.asp?page="+cstr(pagecount+1)+"><font color='0000BE'>下一页</font></a>&nbsp;"
			 response.write "<a href=guestbook.asp?page="+cstr(rs.PageCount)+"><font color='0000BE'>尾页</font></a>"           
             end if 
			response.write "<font color='000064'> 转到<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#0E96DF; position: relative; height: 18' value="&PageCount&">页</font>&nbsp;"                               
			response.write "<INPUT style='CURSOR: hand' type='image' onclick=check() height='15' width='24' src='images/search.gif' name='Image'>" %>
                              </font></td>
                            <tr>
                              <td height="6" colspan="4" valign="bottom"><font color="#000000">&nbsp; </font></td>
                            </tr>
                            <% end if %>
                          </table>
                        <%end if%>
                          <SPAN> </SPAN> </TD>
                    </TR>
                  </TBODY>
                </TABLE>                <p></p></td>
                </tr>
            </table></td>
        </tr>
</table></td>
    </tr>
			<%
rs.close
set rs=nothing
call CloseConn()
%>
</table>
      </TD>
    <TD width=8></TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=910 align=center border=0>
  <TBODY>
  <TR>
    <TD width="5" height=6 bgColor=#0a253a></TD>
    <TD width="900" bgColor=#4A9ACD></TD>
    <TD width="5" bgColor=#0a253a></TD>
</TR></TBODY></TABLE>
<!--#include file="bom.asp"-->
</BODY></HTML>
