<!--#include file="conn/conn.asp"-->
<!--#include file="config.asp"-->
<%dim id
id=replace(request("id")," ","")
if isnumeric(id)=0 or id="" then
response.write "非法参数,请直接从<a href='"&SiteUrl&"'>"&SiteName&"</a>进入。 "
response.end
end if
conn.execute("update [film] set hits=hits+1 where id="&id&"")
set rsmin=server.createobject("adodb.recordset") 	
sqlmin="select * from film where id="&id&"" 
rsmin.open sqlmin,conn,1,1
if rsmin.eof and rsmin.bof then
response.write"没有找到，发生错误，请直接从<a href='"&SiteUrl&"'>"&SiteName&"</a>进入。"
response.end
end if
title=rsmin("title")
flvurl=rsmin("flvurl")
dateandtime=rsmin("dateandtime")
hits=rsmin("hits")
content=rsmin("content")
zzname=rsmin("zzname")
rsmin.close
set rsmin=nothing
%>
<HTML><HEAD><TITLE><%=title%>-<%=SiteName%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<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}
.STYLE8 {color: #FFFF00}
-->
</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="240" 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 cellspacing=0 cellpadding=0 width=240 border=0>
            <tbody>
              <tr>
                <td><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 font14px"><strong>伤感排行榜</strong></span></td>
                        </tr>
                    </table></TD>
                  </TR>
                </table></td>
              </tr>
              <tr>
                <td align=middle height=188><table width=96% border=0 align="right" cellpadding=0 cellspacing=0>
                    <% set rs3 = Server.CreateObject("adodb.recordset")
sql3="select top 10 * from film order by hits desc,id asc"
rs3.open sql3,conn,1,1
do while not rs3.eof
%>
                    <tbody>
                      <tr>
                        <td  align=middle width=18 height=26><img height=12 
                  src="images/mark01.gif" width=11></td>
                        <td  align=left width=163><a href="dvshow.asp?id=<%=rs3("id")%>"><font color="#c5e2fe">
                          <%if len(rs3("title"))>12 then
			Response.Write left(rs3("title"),12)&"…"
		Else
			Response.Write rs3("title")
		End if%>
                        </font></a></td>
                      </tr>
                    </tbody>
                    <% rs3.movenext 
			if rs3.eof then exit do 
			loop 
			rs3.close
			%>
                  </table>
                    </td>
              </tr>
            </tbody>
          </table>
          <table cellspacing=0 cellpadding=0 width=240 border=0>
            <tbody>
              <tr>
                <td><table width="240" border="0">
                  <tr background="images/3081602.gif">
                    <td height=31 valign=bottom background="images/dv.gif" id=Fod_list1><table width="134" align="center">
                        <tr>
                          <td width="17"><img height=18 
            src="images/cm01.gif" width=16 align=absMiddle></td>
                          <td width="105"><span class="font14px"><strong>花园排行榜</strong></span></td>
                        </tr>
                    </table></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td align=middle height=188><table width=96% border=0 align="right" cellpadding=0 cellspacing=0>
                    <% set rs2 = Server.CreateObject("adodb.recordset")
sql2="select top 11 * from article order by hits desc,articleid asc"
rs2.open sql2,conn,1,1
do while not rs2.eof
%>
                    <tbody>
                      <tr>
                        <td  align=middle width=18 height=26><img height=12 
                  src="images/mark01.gif" width=11></td>
                        <td  align=left width=164><a href="show.asp?id=<%=rs2("articleid")%>"><font color="#c5e2fe">
                          <%if len(rs2("title"))>12 then
			Response.Write left(rs2("title"),12)&"…"
		Else
			Response.Write rs2("title")
		End if%>
                        </font></a></td>
                      </tr>
                    </tbody>
                    <% rs2.movenext 
			if rs2.eof then exit do 
			loop 
			rs2.close
			set rs2=nothing
			%>
                  </table></td>
              </tr>
            </tbody>
          </table>
            <br></th>
          <td height="50" align="center" valign="top"><br>
            <table cellspacing="0" cellpadding="0" width="565" border="0">
      <tbody>
        <tr>
          <td width="20"><img  src="images/flash_02.gif" alt="0"  width="20" height="30" /></td>
          <td align="center"   background="images/flash_12.gif" >片名:<b><font color="#FF0000"><%=title%></font></b> &nbsp; 上传时间:<%=dateandtime%> &nbsp; 观看<%=hits%>次 &nbsp; 作者:<%=zzname%></td>
          <td width="11" height="30"><img  src="images/flash_03.gif" alt="0" width="11" height="30" /></td>
        </tr>
      </tbody>
    </table>
      <table width="565" border="0" align="center" cellpadding="0" cellspacing="0">
        <tbody>
          <tr>
            <td width="1" bgcolor="#d4d2d2"><img src="images/blank.gif" alt="0" width="1" height="1" /></td>
            <td height="5" bgcolor="#FFFFFF"></td>
            <td width="5" background="images/flash_14.gif"><img src="images/blank.gif" alt="0" width="1" height="1" /></td>
          </tr>
          <tr>
            <td width="1" bgcolor="#d4d2d2"><img src="images/blank.gif" alt="0" width="1" height="1" /></td>
            <td align="center" bgcolor="#FFFFFF"><span class="style2">
              <OBJECT 
            codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 
            height=400 width=550 
            classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
                <PARAM NAME="movie" VALUE="<%=flvurl%>">
                <PARAM NAME="quality" VALUE="high">
                <embed 
            src="<%=flvurl%>" quality=high width="550" 
            height="400" type="application/x-shockwave-flash" 
            pluginspage="http://www.macromedia.com/go/getflashplayer"> </embed>
              </OBJECT>
              </span>
                <table width="88%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="30" align="center" valign="middle">上一部 :
                      <%
	set rs=server.createobject("adodb.recordset")	  
	sql="select top 1 title,id from film where  id>"&id&" order by id asc "  
	rs.open sql,conn,1,1
  	if rs.eof and rs.bof then 
%>
                      没有找到
                      <%else%>
                      <a href="dvshow.asp?id=<%=rs("id")%>"><%= rs("title") %></a>
                      <%end if%></td>
                    <td align="center" valign="middle">下一部 :
                      <%
	rs.close	  
	sql="select top 1 title,id from film where id<"&id&" order by id desc "  
	rs.open sql,conn,1,1
  	if rs.eof and rs.bof then 
%>
                      没有找到
                      <%else%>
                      <a href="dvshow.asp?id=<%=rs("id")%>"><%= rs("title") %></a>
                      <%end if%></td>
                  </tr>
              </table></td>
            <td width="5"  background="images/flash_14.gif"><img src="images/blank.gif" alt="0" width="1"  height="1" /></td>
          </tr>
        </tbody>
      </table>
      <table cellspacing="0" cellpadding="0" width="565" border="0">
        <tbody>
          <tr>
            <td width="20"><img src="images/flash_05.gif" alt="0" width="20" height="10" /></td>
            <td background="images/flash_13.gif"  height="10"><img src="images/blank.gif" alt="0" width="1" height="1" /></td>
            <td width="11"><img src="images/flash_06.gif" alt="0" width="11" height="10" /></td>
          </tr>
        </tbody>
      </table>

      <fieldset style="width:96%;border:1px solid #D4D4D4;text-align:left;COLOR:#07AF00;FONT-SIZE: 12px;font-family: Verdana;padding:4px;">
      <legend ><span class="STYLE8">简介</span></legend>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="80" >&nbsp;&nbsp;&nbsp;&nbsp;<font color="#c5e2fe"><%=content%></font></td>
        </tr>
      </table>
      </fieldset>
      </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>
