index.asp

在线点播系统

  </tr>
</table>
<%
j=0
do while not rs.eof
j=j+1
%>
<table width="230" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" align="center"><%if j=1 then%><img src="images/top1.gif" width="24" height="24"><%else%><img src="images/top<%=j%>.gif" width="15" height="15">
          <%end if%></td>
          <td width="140" align="left"><%if j=1 then%><strong><%end if%><a href="film.asp?id=<%=rs("id")%>" title="<%=rs("film_name")%>"><%if len(rs("film_name"))>12 then%><%=left(rs("film_name"),12)%>...<%else%><%=rs("film_name")%><%end if%></a><%if j=1 then%></strong><%end if%></td>
          <td width="70" align="right"><%if j=1 then%><strong><%end if%><%=rs("see_count")%>次
          <%if j=1 then%></strong><%end if%></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>
      </table>
      <%
if j>=10 then exit do
rs.movenext
loop
end if
rs.close
%>
    </td>
    <td valign="top" background="images/1_24.jpg">&nbsp;</td>
    <td align="center" valign="top" bgcolor="#F5F5F5"><table width="500" height="5" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td></td>
      </tr>
    </table>
      <table width="500" height="28" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><img src="images/img24.gif" width="500" height="28"></td>
        </tr>
      </table>
      <table width="500" 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 film_commend=1 order by id desc",conn,1,1
if rs.eof and rs.bof then
%>
<table width="500" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">没有任何推荐影片</td>
  </tr>
</table>
<%
else
%>
      <table width="500" height="185" border="0" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF">
        <tr>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
          <%rs.movenext%>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
          <%rs.movenext%>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
          <%rs.movenext%>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
        </tr>
      </table>
<%rs.movenext%>
      <table width="500" height="4" border="0" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5">
        <tr>
          <td align="center"><table width="490" height="1" border="0" cellpadding="0" cellspacing="0" class="t2">
            <tr>
              <td></td>
            </tr>
          </table></td>
        </tr>
      </table>
      <table width="500" height="184" border="0" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF">
        <tr>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
          <%rs.movenext%>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
          <%rs.movenext%>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
          <%rs.movenext%>
          <td align="center" bgcolor="#F5F5F5"><%if not rs.eof then%>
            <table width="110" height="150" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td 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>
              </tr>
            </table>
              <table width="110" height="25" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td 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>
            </table>
            <%else response.Write "没有影片" end if%></td>
          <%
end if
rs.close
%>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="footer.asp"-->