cf_filmyear.asp

支持多种播放器RealPlayer,MediaPlayer

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

<TABLE cellPadding=0 cellSpacing=0 width="98%">
  <TBODY>
    <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><span class=te1><%=ClassName%>-<%=PorduceAreaStr%>年份</span></TD>
              <TD class=td3></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE align=center bgColor=#cccccc cellPadding=5 cellSpacing=1 
            style="WORD-BREAK: break-all" width="100%">
          <TBODY>
            <TR bgColor=#ffffff> 
              <TD class=tablebody1 colSpan=2 vAlign=top> <DIV align=center>
                  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr> 
<td>
<%
Sql="Select PorduceYear From CFFilm_Film Where ClassID="&ClassID

If PorduceArea>0 Then Sql=Sql&" And PorduceArea="&PorduceArea

Sql=Sql&" Group By PorduceYear Order By PorduceYear"

Set Rs_FilmYear=Conn.Execute(Sql)

YearStr= "<a href=List.asp?ClassID="&ClassID&" class=link1>全部年份</a>&nbsp;"

FilmYear=1
While Not Rs_FilmYear.Eof
 FilmYear=FilmYear+1
 
 If Rs_FilmYear("PorduceYear")=0 Then
  YearStr_2="未知"
 Else
  YearStr_2=Rs_FilmYear("PorduceYear")&"年"
 End If
 If FilmYear Mod 3=0 Then
  YearStr_3="<br>"
 Else
  YearStr_3="&nbsp;&nbsp;&nbsp;&nbsp;"
 End If
 YearStr=YearStr& "<a href="&Path_Index&"List/List.asp?ClassID="&ClassID&"&PorduceYear="&Rs_FilmYear("PorduceYear")&">"&YearStr_2&"</a>"&YearStr_3

Rs_FilmYear.MoveNext
Wend
Rs_FilmYear.Close()
Response.write YearStr
%>

</td>
                    </tr>

                  </table>
                 
                </TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
          <TBODY>
            <TR> 
                  <TD class=td4></TD>
                  <TD class=td5_c></TD>
                  <TD class=td6></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>