movieclass.asp

零度白茶影视系统好东西要大家分享

<!--#include file="MovieTop.asp"-->
<%
MovieClassID=request("MovieClassID")
%>
<table width="760" height="175" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="170" align="center" valign="top" background="../images/img_left.gif">
	<table width="155" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="5"></td>
    </tr>
    </table>
	
	<table width="155" height="60" border="0" cellpadding="0" cellspacing="0" background="../images/quick_sBACK.gif">
      <tr>
        <td height="41" colspan="2" valign="top"><img src="../images/quick_classtop.gif" width="155" height="41" /></td>
      </tr>
      <%
	        
                      Set rst= Server.CreateObject("ADODB.Recordset")
					  rst.open "select * from learning where typeid='"&MovieClassID&"' order by hits desc",conn,1,1
                      i=0
                      do while not rst.eof
                      i=i+1
                      %>
      <tr>
        <td width="114">&nbsp; <a href="MovieView.asp?MovieViewID=<%=rst("articleid")%>" target="_blank">
          <%
                          content=rst("title")
                          if len(content)>7 then content=left(content,7)&"…"
                          response.write content
                          %>
        </a> </td>
        <td width="41" align="right"><font color="#FF3300"><%=rst("hits")%></font>&nbsp;</td>
      </tr>
      <% 
                       if i>=20 then exit do
                       rst.movenext
                       loop
                       rst.close
                       set rst=nothing
                       %>
      <tr>
        <td height="1" colspan="2" background="../images/search_backb.gif"></td>
      </tr>
    </table>
	<table width="155" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="5"></td>
    </tr>
    </table>
	
<table width="155" height="60" border="0" cellpadding="0" cellspacing="0" background="../images/quick_sBACK.gif">
  <tr>
    <td height="41" colspan="2" valign="top"><img src="../images/quick_Top.gif" width="155" height="41" /></td>
  </tr>
                      <%
                      Set rst= Server.CreateObject("ADODB.Recordset")
                      rst.open "select articleid,title,hits from learning order by hits desc",conn,1,1
                      i=0
                      do while not rst.eof
                      i=i+1
                      %> 
  <tr>
    <td width="114">&nbsp;
	<a href="MovieView.asp?MovieViewID=<%=rst("articleid")%>" target="_blank">
	                      <%
                          content=rst("title")
                          if len(content)>7 then content=left(content,7)&"…"
                          response.write content
                          %>
		    </a>	</td>
    <td width="41" align="right"><font color="#FF3300"><%=rst("hits")%></font>&nbsp;</td>
  </tr>
                       <% 
                       if i>=10 then exit do
                       rst.movenext
                       loop
                       rst.close
                       set rst=nothing
                       %>
  <tr>
    <td height="1" colspan="2" background="../images/search_backb.gif"></td>
  </tr>
</table>
	<table width="155" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="5"></td>
    </tr>
    </table>	
	
<table width="155" height="60" border="0" cellpadding="0" cellspacing="0" background="../images/quick_sBACK.gif">
  <tr>
    <td height="41" colspan="2" valign="top"><img src="../images/quick_topple.gif" width="155" height="41" /></td>
  </tr>
                      <%
                      Set rst= Server.CreateObject("ADODB.Recordset")
                      rst.open "select articleid,title,hits from learning order by hits",conn,1,1
                      i=0
                      do while not rst.eof
                      i=i+1
                      %> 
  <tr>
    <td width="114">&nbsp;
	<a href="MovieView.asp?MovieViewID=<%=rst("articleid")%>" target="_blank">
	                      <%
                          content=rst("title")
                          if len(content)>7 then content=left(content,7)&"…"
                          response.write content
                          %>
		    </a>	</td>
    <td width="41" align="right"><font color="#FF3300"><%=rst("hits")%></font>&nbsp;</td>
  </tr>
                       <% 
                       if i>=10 then exit do
                       rst.movenext
                       loop
                       rst.close
                       set rst=nothing
                       %>
  <tr>
    <td height="1" colspan="2" background="../images/search_backb.gif"></td>
  </tr>
</table>
	<table width="155" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="10"></td>
    </tr>
    </table>	</td>
	
    <td width="590" align="center" valign="top" background="../images/img_right.gif">
	<table width="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="5"></td>
    </tr>
    </table>
	
    <table width="574" height="36" border="0" cellPadding="0" cellSpacing="0">
         <tr>
                <td width="6"><IMG height=36 src="../images/pLeftbg.gif" width=6></td>
                <td width="168" align="right"><IMG border=0 height=36 src="../images/bMgift.gif"></td>
                <td width="394" background=../images/pTablebg.gif align="right">
                <script language = "JavaScript">
function CheckForm()
{
  if (document.form1.keyword.value=="")
  {
    alert("搜索关键字不能为空！");
	document.form1.keyword.focus();
	return false;
  }
  if (document.form1.keyword.value=="输入搜索关键字")
  {
    alert("请输入搜索关键字！");
	document.form1.keyword.focus();
	return false;
  }
  return true;  
}
</script>
				
                <form action="MovieSearch.asp" method="post" name="form1" style="MARGIN: 0px" onSubmit="return CheckForm();">
                  <table border="0" cellPadding="0" cellSpacing="0" width="390">
                    <tr>
                      <td></td>
                      <td width="55">
                      <input id="key" name="keyword" onFocus="this.value=''" size="14" value="输入搜索关键字"></td>
					  <td width="116">
					  <input name="typeid" checked type=radio value="片名">片名&nbsp;
					  <input name="typeid" type=radio value="演员">演员                     </td>
                    <td width="54" align="center">
                    <input border="0" height="21" name="imageField" src="../images/navi_btn_search.gif" type="image" width="54">					</td>
                    </tr>
                  </table>
                </form>                </td>
                <td width="10"><IMG height=36 src="../images/pRightbg.gif" width=6></td>
        </tr>
    </table>
	
    <table width="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="5"></td>
    </tr>
    </table>
<%
set rstype=server.createobject("adodb.recordset")
typesql="select * from type where typeid="&MovieClassID&""
rstype.open typesql,conn,1,1


set rs=server.createobject("adodb.recordset")
sql="select * from learning where typeid='"&MovieClassID&"' order by articleid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "本类没有影片"
else
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
   <tr>
    <td height="1" colspan="2" bgcolor="#dfd7d5"></td>
   </tr>
   <tr>
    <td height="35" colspan="2" bgcolor="#f7f7ff">&nbsp;&nbsp;
	<font color="#cc3300"><strong><%=rstype("type")%></strong></font></td>
   </tr>
   <tr>
    <td height="1" colspan="2" bgcolor="#dfd7d5"></td>
   </tr>
  <tr>
    <td height="8" colspan="2" bgcolor="#f8f3f7"></td>
  </tr>
    <tr>
    <td height="7" colspan="2"><img height="2" src="../images/line-long.gif" width="574"></td>
  </tr>
  <tr>
    <td colspan="2" height="10"></td>
  </tr>
  <tr>
    <td height="1" colspan="2" bgcolor="#6296c6"></td>
  </tr>
    <tr>
    <td height="3" colspan="2" bgcolor="#add7ff"></td>
  </tr>
  
  <%
   dim curpage, i