index.asp

在线点播系统

<!--#include file="header.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0" class="t1">
  <tr>
    <td width="260" height="325" rowspan="3" align="center"><table width="260" height="325" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td align="center" valign="top"><table width="240" height="5" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
        </table>
        <table width="240" height="28" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="images/img12.gif" width="240" height="28"></td>
          </tr>
        </table>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from films where year(join_time)=year(getdate()) and month(join_time)=month(getdate()) and day(join_time)=day(getdate())",conn,1,1
today_update=cint(rs.recordcount)
rs.close
%>
        <table width="240" height="20" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td align="center" class="f3">今天<%=formatdatetime(now,2)%>更新影片：<%=today_update%>部</td>
          </tr>
        </table>
        <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from films order by id desc",conn,1,1
rs.move 4
if rs.eof then
%>
<table width="230" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25">还没有任何影片</td>
  </tr>
</table>
<%
else
i=0
do while not rs.eof
i=i+1
%>
<table width="230" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="18" height="20" align="left"><img src="images/img14.gif" width="15" height="15"></td>
              <td width="167" align="left">&nbsp;[<%=rs("film_class")%>] <a href="film.asp?id=<%=rs("id")%>" title="<%=rs("film_name")%>"><%if len(rs("film_name"))>9 then%><%=left(rs("film_name"),9)%>...<%else%><%=rs("film_name")%><%end if%></a></td>
              <td width="50" align="right"><a href="<%=rs("join_time")%>"><%=month(rs("join_time"))%>-<%=day(rs("join_time"))%></a>&nbsp;</td>
            </tr>
            <tr align="center">
              <td height="5" colspan="3">
			  <table width="230" height="1" border="0" cellpadding="0" cellspacing="0" class="t2">
                <tr>
                  <td></td>
                </tr>
              </table></td>
              </tr>
<%
if i>=11 then exit do
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
        <td width="2" bgcolor="#FAE298"></td>
      </tr>
    </table>
</td>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from films order by id desc",conn,1,1
%>
    <td width="120" height="160" align="center"><%if not rs.eof then%><a href="film.asp?id=<%=rs("id")%>"><img src="<%if isnull(rs("film_pic"))=true or rs("film_pic")="" then%>images/no_film_pic.jpg<%else%>filmpic/<%=rs("film_pic")%><%end if%>" width="105" height="140" border="1" class="img1"></a><%else response.Write "没有影片" end if%></td>
    <td width="138" align="left">
	<%if not rs.eof then%>
	<table width="138" height="140" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="25" align="left"><strong><A href="film.asp?id=<%=rs("id")%>" title="<%=rs("film_name")%>">
          <%if len(rs("film_name"))>7 then%><%=left(rs("film_name"),7)%>...<%else%><%=rs("film_name")%><%end if%></A></strong></td>
        <td width="10" rowspan="2" align="center" valign="top"><img src="images/img10.gif" width="1" height="135"></td>
      </tr>
      <tr>
        <td valign="top"><a class="f6" href="film.asp?id=<%=rs("id")%>"><%=left(rs("film_gut"),75)%>......</a></td>
      </tr>
    </table>
    <%else response.Write "没有影片" end if%>
	</td>
<%rs.movenext%>
    <td width="120" align="center"><%if not rs.eof then%><a href="film.asp?id=<%=rs("id")%>">
    </a><a href="film.asp?id=<%=rs("id")%>"><img src="<%if isnull(rs("film_pic"))=true or rs("film_pic")="" then%>images/no_film_pic.jpg<%else%>filmpic/<%=rs("film_pic")%><%end if%>" width="105" height="140" border="1" class="img1"></a><a href="film.asp?id=<%=rs("id")%>">    </a>
    <%else response.Write "没有影片" end if%></td>
    <td width="138" align="left"><%if not rs.eof then%>
      <table width="130" height="140" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="25"><strong><A href="film.asp?id=<%=rs("id")%>" title="<%=rs("film_name")%>">
            <%if len(rs("film_name"))>7 then%><%=left(rs("film_name"),7)%>...<%else%><%=rs("film_name")%><%end if%></A></strong></td>
        </tr>
        <tr>
          <td valign="top"><a class="f6" href="film.asp?id=<%=rs("id")%>"><%=left(rs("film_gut"),75)%>......</a></td>
        </tr>
    </table>
      <%else response.Write "没有影片" end if%></td>
  </tr>
  <tr>
    <td height="5" colspan="4" align="center"><img src="images/img11.gif" width="500" height="1"></td>
  </tr>
<%rs.movenext%>
  <tr>
    <td height="160" align="center"><%if not rs.eof then%><a href="film.asp?id=<%=rs("id")%>">
    </a><a href="film.asp?id=<%=rs("id")%>"><img src="<%if isnull(rs("film_pic"))=true or rs("film_pic")="" then%>images/no_film_pic.jpg<%else%>filmpic/<%=rs("film_pic")%><%end if%>" width="105" height="140" border="1" class="img1"></a><a href="film.asp?id=<%=rs("id")%>">    </a>
    <%else response.Write "没有影片" end if%></td>
    <td width="138" align="left"><%if not rs.eof then%>
      <table width="138" height="140" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="25" align="left"><strong><A href="film.asp?id=<%=rs("id")%>" title="<%=rs("film_name")%>">
            <%if len(rs("film_name"))>7 then%><%=left(rs("film_name"),7)%>...<%else%><%=rs("film_name")%><%end if%></A></strong></td>
          <td width="10" rowspan="2" align="center" valign="top"><img src="images/img10.gif" width="1" height="135"></td>
        </tr>
        <tr>
          <td valign="top"><a class="f6" href="film.asp?id=<%=rs("id")%>"><%=left(rs("film_gut"),75)%>......</a></td>
        </tr>
    </table>
	<%else response.Write "没有影片" end if%>
	</td>
    <%rs.movenext%>
    <td width="120" align="center"><%if not rs.eof then%>
      <a href="film.asp?id=<%=rs("id")%>"><img src="<%if isnull(rs("film_pic"))=true or rs("film_pic")="" then%>images/no_film_pic.jpg<%else%>filmpic/<%=rs("film_pic")%><%end if%>" width="105" height="140" border="1" class="img1"></a>
      <%else response.Write "没有影片" end if%></td>
    <td width="138" align="left"><%if not rs.eof then%>
      <table width="130" height="140" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="25"><strong><A href="film.asp?id=<%=rs("id")%>" title="<%=rs("film_name")%>">
            <%if len(rs("film_name"))>7 then%><%=left(rs("film_name"),7)%>...<%else%><%=rs("film_name")%><%end if%></A></strong></td>
        </tr>
        <tr>
          <td valign="top"><a class="f6" href="film.asp?id=<%=rs("id")%>"><%=left(rs("film_gut"),75)%>......</a></td>
        </tr>
    </table>
      <%else response.Write "没有影片" end if%>
    </td>
  </tr>
  <tr>
    <td height="80" colspan="5" align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="776" height="80">
      <param name="movie" value="images/banner.swf">
      <param name="quality" value="high"><param name="SCALE" value="exactfit">
      <embed src="images/banner.swf" width="776" height="80" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" scale="exactfit"></embed>
    </object></td>
  </tr>
<%
rs.close
%>
</table>
<table width="774" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#EEEEEE"></td>
  </tr>
</table>
<table width="776" height="450" border="0" align="center" cellpadding="0" cellspacing="0" class="t1">
  <tr>
    <td width="260" height="36" rowspan="2" background="images/img22.gif"><img src="images/1_03.jpg" width="220" height="36"></td>
    <td width="9" height="36" rowspan="2" valign="top"><img src="images/1_04.jpg" width="9" height="36"></td>
    <td height="11" background="images/1_05.jpg"></td>
  </tr>
  <tr>
    <td height="25"><TABLE width="500" height="17" 
                              border=0 cellPadding=0 cellSpacing=0>
      <TBODY>
        <TR>
          <TD width=15 align="left" class=zij><img src="images/img23.jpg" width="14" height="14"></TD>
          <TD width=140 align="left" valign="bottom" class=zij><span class="f7">上月点播排行TOP10：</span></TD>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from films where Year(join_time)=Year(getdate()) and Month(join_time)=month(dateadd(m,-1,getdate())) order by see_count desc",conn,1,1
%>
          <TD width="345" align="left" class=zib><marquee scrollamount="2" scrolldelay="60" width="345" height="17" onmouseover="stop();" onmouseout="start();"><%if rs.eof and rs.bof then%>上个月没有影片
<%
else
i=0
do while not rs.eof
i=i+1
%>[<%=rs("film_class")%>] <a class="f2" title="<%=rs("film_name")%>" href="film.asp?id=<%=rs("id")%>"><%=rs("film_name")%></a>　
<%
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
%>
</marquee></TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
  <tr>
    <td width="260" align="center" valign="top"><table width="240" height="5" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td></td>
      </tr>
    </table>
      <table width="240" height="28" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><img src="images/img23.gif" width="240" height="28"></td>
        </tr>
      </table>
      <table width="100" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from films where Year(join_time)=Year(getdate()) and Month(join_time)=Month(getdate()) order by see_count desc",conn,1,1
if rs.eof and rs.bof then
%>
<table width="230" height="25" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">这个月没有任何影片</td>
  </tr>
</table>
<%else%>
<table width="240" height="150" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="120" rowspan="2" align="center"><a href="film.asp?id=<%=rs("id")%>"><img src="<%if isnull(rs("film_pic"))=true or rs("film_pic")="" then%>images/no_film_pic.jpg<%else%>filmpic/<%=rs("film_pic")%><%end if%>" width="105" height="140" border="1" class="img1"></a></td>
          <td height="25" align="center"><strong><A href="film.asp?id=<%=rs("id")%>" title="<%=rs("film_name")%>"><%if len(rs("film_name"))>7 then%><%=left(rs("film_name"),7)%>...<%else%><%=rs("film_name")%><%end if%></A></strong></td>
        </tr>
        <tr>
          <td align="left" valign="top"><a class="f6" href="film.asp?id=<%=rs("id")%>"><%=left(rs("film_gut"),75)%>......</a></td>
        </tr>
      </table>
<table width="100" height="10" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>