cf_index_list.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<table width="100%" border="0" cellspacing="1" cellpadding="0">
          <tr> 
            <td valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
                <TBODY>
                  <TR> 
                    <TD class=td1>&nbsp;</TD>
                    <TD class=td2_b>
<%
Link=""
If RsSet("HtmOpen")=-1 Then
 Link=Path_Index&"Htm/List_"&Rs("ID")&"_1.htm"
Else
 Link=Path_Index&"List/List.asp?ClassID="&Rs("ID")
End IF
%>
<A href="<%=Link%>"><strong><%=Rs("ClassName")%></strong></A></TD>
                    <TD class=td3></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1 
            style="WORD-BREAK: break-all" width="100%">
                <TR bgColor=#ffffff> 
                  <TD colSpan=2 vAlign=top> <TABLE borderColor=#ffffff cellSpacing=0 
                  borderColorDark=#f7f3f7 cellPadding=2 width="100%" border=0>
<%
Set Rs2=Server.CreateObject("ADODB.Recordset")
Sql="Select Top 10 ID,FilmName,AddDate From CFFilm_Film Where ClassID="&Rs("ID")&" Order By AddTime Desc"
Rs2.Open Sql,Conn,1,1
I=0
J=0
While Not Rs2.eof And I<=10
 FilmName=Rs2("FilmName")
 If Len(FilmName)>15 Then FilmName=Left(FilmName,14)&".."
 
Link=""
If RsSet("HtmOpen")=-1 Then
 Link=Path_Index&"Htm/Show_"&Rs2("ID")&".htm"
Else
 Link=Path_Index&"Show/Show.asp?ID="&Rs2("ID")
End IF

 I=I+1
 If I Mod 2=1 Then
  bgcolor=" bgcolor='#ffffff'"
 Else
  bgcolor=" bgcolor='#e8e8e8'"
 End If%>
                      <TR<%=bgcolor%>> 
                        <TD height="25"><IMG 
                        src="images/roll_film.gif" 
                        border=0> <a href="<%=Link%>" target="_blank" class=link1 title="<%=Rs2("FilmName")%>"><%=FilmName%></a> </TD>
                        <TD width="80"> <P align=center> 
                            <%If Datediff("d",Rs2("AddDate"),Date())=0 Then
									    Response.Write "<Font Color=#FF0000>"&Rs2("AddDate")&"</Font>"
									   Else
									    Response.Write Rs2("AddDate")
									   End If
									   %>
                          </P></TD>
                      </TR>
                      <%Rs2.movenext
Wend
Rs2.Close()
%>
                      <%If I<10 Then%>
                      <%For J=I+1 To 10
 If (J Mod 2=1) Then
 bgcolor=" bgcolor='#ffffff'"
Else
 bgcolor=" bgcolor='#e8e8e8'"
End If%>
                      <TR<%=bgcolor%>> 
                        <TD height="25"><IMG 
                        src="images/roll_film.gif" 
                        border=0></TD>
                        <TD></TD>
                      </TR>
                      <%Next%>
                      <%End IF%>
                    </TABLE></TD>
                </TR>
              </TABLE>
              <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
                <TBODY>
                  <TR> 
                  <TD class=td4></TD>
                  <TD class=td5_b></TD>
                  <TD class=td6></TD>
				  </TR>
              </TABLE></td>
          </tr>
        </table>