<!--#include file="conn/conn.asp"-->
<!--#include file="config.asp"-->
<%
const special=8
const wen=10
%>
<HTML><HEAD><TITLE>本站推荐-<%=SiteName%></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}
-->
</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="660" valign="top" scope="row"></th>
        </tr>
        <tr>
          <th height="253" valign="top" scope="row" style="border-right:1px solid #c5e2fe;"><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="18"><IMG height=18 
            src="images/cm01.gif" width=16 align=absMiddle></span></td>
                    <td width="99"><span class="font14px"><strong>伤感排行榜</strong></td>
                  </tr>
              </table></TD>
            </TR>

          </table>
            <table width="96%" border="0" align="center">
              <%
 set rs=server.createobject("adodb.recordset")
sql="select top 20 * 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=12 
                  src="images/mark02a.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"><TABLE class=marb4 cellSpacing=0 cellPadding=0 width=100% border=0>
            <TBODY>
              <TR>
                <TD width=106 background=images/dvdv.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>      
              <% set rs=server.createobject("adodb.recordset") 
              if not isempty(request("page")) then   
	          pagecount=cint(request("page"))   
              else   
	          pagecount=1   
              end if
              sql="select * from film where typeid = 1 order by id desc"
              rs.open sql,conn,1,1
			  rs.pagesize=pagelist2
              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%>
              <br>
              <TABLE class=L13 cellSpacing=0 cellPadding=0 
                        width="610" border=0>
                <TBODY>
                  <% do while not rs.eof %>
                  <TR>
                    <TD width="23%" align="center"><table class=img8a cellspacing=0 cellpadding=0 
                          border=0>
                      <tbody>
                        <tr>
                          <td><a href="dvshow.asp?id=<%=rs("id")%>"><img 
                              src="<%=rs("images")%>" width="120" height="90" border=0 class=img8></a></td>
                        </tr>
                      </tbody>
                    </table></TD>
                    <TD width="34%" align="center"><TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=3 
                        cellPadding=0 width=199 align=center border=0>
                        <TBODY>
                          <TR>
                            <TD width=193 height="20">名称：<a href="dvshow.asp?id=<%=rs("id")%>"><font color="#ffff00"><%=rs("title")%></font></a> </TD>
                          </TR>
                          <TR>
                            <TD width=193 height="20">作者：<font color="#99FF00"><%=rs("zzname")%></font></TD>
                          </TR>
                          <TR>
                            <TD width=193 height="20">上传时间：<%=rs("dateandtime")%></TD>
                          </TR>
                          <TR>
                            <TD width=193 height="20">观看次数：<%=rs("hits")%></TD>
                          </TR>
                        </TBODY>
                    </TABLE></TD>
                    <TD width="43%" height="22"><table width="100%"  border="0" cellspacing="1" cellpadding="0">
                        <tr>
                          <td><strong><font color="#ffff00">简介：</font></strong><font color="#c5e2fe"><%=left(rs("content"),120)%></font></a></td>
                        </tr>
                    </table></TD>
                  </TR>
                  <TR>
                    <TD height="30" colspan="3" align="center"><img src="images/line.gif" width="610" height="1"></TD>
                  </TR>
                  <% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>=rs.pagesize then exit do 
		  loop                                                                    
         %>
                </TBODY>
              </TABLE>
              <table width="510" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr align="right">
                  <% if rs.pagecount=1 then %>
                  <td height="30" colspan="2"><font color="#c5e2fe"><%=classna%> </font>共<font color="#c5e2fe"> <font color="#c5e2fe"><%=rs.recordcount%></font> </font>条</td>
                </tr>
                <tr>
                  <%else%>
                  <td width="40%" 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%>
                    <%=classna%> 共 <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="60%" height="30" align="right" valign="middle"><font color="#000000">
                    <% response.write"<form name=go2to form method=Post action='dv.asp'>"                                             
		     if pagecount=1 then                                                        
			 response.write "<font color='#000064'>首页 上一页</font>&nbsp;"
			 else                                                        
             response.write "<a href=dv.asp?page=1><font color='0000BE'>首页</font></a>&nbsp;" 
	         response.write "<a href=dv.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=dv.asp?page="+cstr(pagecount+1)+"><font color='0000BE'>下一页</font></a>&nbsp;"
			 response.write "<a href=dv.asp?page="+cstr(rs.PageCount)+"><font color='0000BE'>尾页</font></a>"           
             end if 
			
			response.write "<input name='dgid' type='hidden' value="&dgid&"><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%></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>
