<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: media_list.asp
' Version:3.0
' Date: 2005-10-29
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim Typeid
response.buffer=true
stats="所有电影"
Typeid=checkStr(Request("Typeid"))
	if Typeid="" or not isnumeric(Typeid) then
		errmsg=errmsg+"<br>"+"<li>参数错误。"
		founderr=true
end if
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("","")
call tumppages()'翻页处理
strFileName="media_list.asp?typeid="&typeid&""
call main()
end if
call activeonline()
call footer()

sub main()%>
<TABLE width=750 height=1 border=0 align="center" cellPadding=0 
cellSpacing=0 borderColor=#111111 bgColor=#ffffff style="BORDER-COLLAPSE: collapse">
  <TBODY>
    <TR> 
      <TD vAlign=bottom width="179%" background=images/media/line.gif 
    height=16><SPACER width="5" type="block" /></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width=750 height=33 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD width=48 background=images/media/top_003.jpg>&nbsp;</TD>
      <TD width=702 background=images/media/top_003.jpg> <TABLE height=32 cellSpacing=0 cellPadding=0 width=621 border=0>
          <TBODY>
            <TR> 
              <TD height="32"> <DIV align=center><A href="media.asp"><FONT 
            color=#cccccc>首 页</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=1"><FONT 
            color=#cccccc>动作片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=2"><FONT 
            color=#cccccc>喜剧片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=3"><FONT 
            color=#cccccc>爱情片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=4"><FONT 
            color=#cccccc>恐怖片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=5"><FONT 
            color=#cccccc>战争片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=6"><FONT 
            color=#cccccc>科幻片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=7"><FONT 
            color=#cccccc>综艺片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=8"><FONT 
            color=#cccccc>动画片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=9"><FONT 
            color=#cccccc>连续剧</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=10"><FONT 
            color=#cccccc>剧情片</FONT></A><FONT color=#cccccc>|</FONT> <A 
            href="media_list.asp?typeid=11"><FONT 
            color=#cccccc>其他</FONT></A> <FONT color=#cccccc>|</font> <a href="media.asp?action=add"><FONT color=#cccccc>发布</FONT></a></DIV></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="750" align=center cellpadding=0 cellspacing=0>
  <TR> 
    <TD width="100%" bgColor=#f3f3f3><IFRAME marginWidth=0 
                  marginHeight=0 src="media_top.asp" frameBorder=0 
                  width=750 scrolling=no 
          height=165></IFRAME></TD>
  </TR>
</table>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
 <%set rs=server.createobject("adodb.recordset")
 sql="select id,Title,Mediapic,Files,Content,Hits,Audors,Address,Howlong,Viewtj,View_mo,View_ep,View_cp,Addtime from [Ms_media] where Typeid="&Typeid&" and Checked=1 order by hits desc"
rs.open sql,conn,1,1
	if not (rs.eof and rs.bof) then
	call rspages()
   do while not rs.eof and page_count<Cint(MaxPerPage)%>
  <tr> 
    <td width="18%" height="115" align="center"  class=tablebody2><%if rs(2)<>"" then
	response.Write("<img src="&rs(2)&" border=0 height=110>")
	else
	response.Write("")
	end if%></td>
    <td width="82%" valign="top"  class=tablebody2><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="24"><b>电影名称：</b><%=rs(1)%>&nbsp;&nbsp;<b>领衔主演：</b><%=rs(6)%></td>
        </tr>
        <tr> 
          <td height="23"><b>出产地区：</b><%=rs(7)%>&nbsp;&nbsp;<b>影片长度：</b><%=rs(8)%></td>
        </tr>
        <tr> 
          <td height="24"><b>上传时间：</b><%=rs(13)%>&nbsp;&nbsp;<b>观看次数：</b><%=rs(5)%></td>
        </tr>
        <tr> 
          <td height="30">影片简介：<%=left(rs(4),50)%></td>
        </tr>
      </table></td>
  </tr>
  <%page_count=page_count+1
	rs.movenext
	loop
	else
	response.Write("<tr><td class=tablebody1>暂无记录</td></tr>")
	end if
if totalrec>0 then%>
  <tr> 
    <td colspan="2" align="left"  class=tablebody1><%
		  	call showpage(strFileName)
		  %></td>
  </tr>
  <%end if%>
</table>
<%rs.close
end sub
%>