qqcf_index_list.asp

二、功 能： 1.系统做免费

<%
' 乘风电影 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<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="qqcf_pic/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="qqcf_pic/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>