index.asp

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

<!--#include file="MovieTop.asp"-->
<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="92" border="0" cellpadding="0" cellspacing="0" background="../images/quick_sBACK.gif">
    <tr>
      <td height="41" colspan="3" valign="top"><img src="../images/quick_stitle.gif" width="155" height="41" /></td>
      </tr>
    <tr>
      <td width="10">	  </td>
      <td width="137"><%
	 set rstalk=server.createobject("adodb.recordset")
	 sql="select * from totalk where Selected=1" 
	 rstalk.open sql,conn,1,1
	 if not(rstalk.bof and rstalk.eof) then
     do while not rstalk.eof
	 %>
        <marquee direction="up" height="163" onmouseout="this.start()" 
	onmouseover="this.stop()" scrollamount="1" scrolldelay="100" align="left">
        <div align="left"><% =rstalk("title") %></div>
        <div align="left">　　<% =rstalk("conten") %></div>
        <div align="right"><% =rstalk("user") %></div>
        <div align="right"><% =rstalk("times") %></div>
        </marquee>
        <%
	rstalk.movenext
	loop
	else
	response.write "没有最新公告"
	end if
	rstalk.close
	set rstalk=nothing
	%>	  
	</td>
      <td width="8"></td>
    </tr>
    <tr>
      <td height="1" background="../images/search_backb.gif"></td>
      <td background="../images/search_backb.gif"></td>
      <td 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>=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_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>=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="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="6"><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>
	
	<table align="center" border="0" cellPadding="0" cellSpacing="0" width="590" height="8">
               <tr>
			   <td width="9"></td>
                <td>
				<iframe frameBorder="no" height="0" marginHeight="0" marginWidth="0" name="mq" scrolling="no" src="Mqhx.htm"  width="0">
                </iframe>
               <iframe frameBorder="no" height="164" marginHeight="0" marginWidth="0" name="mq" scrolling="no" src="MovieGoldtop.asp" width="570">
                </iframe></td>
              </tr>
      </table>
    <table width="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="3"></td>
    </tr>
    </table>
	
    <table width="576" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="../images/contents_00.gif" width="288" height="36"></td>
    <td><img src="../images/contents_01.gif" width="288" height="36"></td>
  </tr>
  <tr>
    <td height="99" align="center" valign="top" background="../images/contents_02.gif">
	<%
sql="select articleid,domurl,title,content from learning where firstbest=1 order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有推荐影片"
else
%>
   <table width="90%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="103" rowspan="2">
		<a href="MovieView.asp?MovieViewID=<%=rs("articleid")%>" target="_blank">
      <img border="0" class="border123" height="131" src="<%if rs("domurl")="" then%>../images/movie.jpg<%else%><%=rs("domurl")%><%end if%>" width="98"></a>		</td>
        <td width="156" height="0">
		<a href="MovieView.asp?MovieViewID=<%=rs("articleid")%>" target="_blank">
                           <font color="#FF6600"><strong>
			      <%
                          content=rs("title")
                          if len(content)>10 then content=left(content,10)&"…"
                          response.write content
                          %></strong></font></a>
		</td>
      </tr>
      <tr>
        <td valign="top">
		<%
         content=rs("content")
         if len(content)>74 then content=left(content,74)&"……"
         response.write content
         %>
	    </td>
      </tr>
    </table>
	        <%
		  end if
	      rs.close
          set rs=nothing
        %>
	</td>
    <td align="center" valign="top" background="../images/contents_02.gif">
 <%
sql="select articleid,title,typeid,dateandtime,best from learning  order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有最新影片"
else
%>
	<table width="90%" border="0" cellpadding="0" cellspacing="0">
      <% 
	  t=1
	  do while not rs.eof %>
	  <tr>
        <td width="55%">
		<a href="MovieView.asp?MovieViewID=<%=rs("articleid")%>" target="_blank">
          <%
           content=rs("title")
           if len(content)>10 then content=left(content,10)&"…"
           response.write content
           %>
		   </a>		</td>
        <td width="20%">
		<%
	        set rst1=server.createobject("adodb.recordset")
            sql1="select * from type where typeid="&rs("typeid")&""
            rst1.open sql1,conn,1,1
			if rst1.eof and rst1.bof then
	        response.write "<font color='#FF0000'><strong>没有分类</strong></font>"
	        else
			response.write ""&rst1("type")&""
			end if
	        rst1.close
            set rst1=nothing
	        %>		</td>
        <td width="25%"><%=rs("dateandtime")%></td>
      </tr>
         <%
		 t=t+1
         if t>7 then exit do
         rs.movenext
         loop
         %>
    </table>
	<%
	  end if
	  rs.close
      set rs=nothing
     %>
	</td>
  </tr>
  <tr>
    <td><img src="../images/contents_03.gif" width="288" height="17"></td>
    <td><img src="../images/contents_03.gif" width="288" height="17"></td>
  </tr>
</table>
    <table width="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="2"></td>
    </tr>
    </table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
			<tr>
			<% 
		   set rs=server.createobject("adodb.recordset")
           sql="select * from type order by arrange"
           rs.open sql,conn,1,1
		   if not(rs.bof and rs.eof) then
		   no=rs.recordcount   
           for w=1 to no 
		   %> 
		   <td align="center">
		   <table width="280" border="0" cellpadding="0" cellspacing="0" background="../images/037.gif">
               <tr>
                 <td width="5%" background="../images/031.gif"><img src="../images/030.gif" width="13" height="23"></td>
                 <td width="40%" background="../images/031.gif">&nbsp;<FONT color=#FF3300><strong><%=rs("type")%></strong></FONT></td>
                 <td width="52%" align="right" background="../images/031.gif">
				   <a href="MovieClass.asp?MovieClassID=<%=rs("typeid")%>"><img src="../images/033.gif" width="41" vspace="5" border="0"></a></td>
                 <td width="3%" align="right" background="../images/031.gif">
				 <img src="../images/032.gif" width="5" height="23"></td>
               </tr>
               <tr>
                 <td height="50">&nbsp;</td>
                 <td>
				  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="3"></td>
                   </tr>
                 </table>
				 <%
				  set rst=server.createobject("adodb.recordset")
      sql="select * from learning where typeid='"&rs("typeid")&"'order by best,articleid desc"
      rst.open sql,conn,1,1
      if rst.eof and rst.bof then
	  %>
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="150" valign="top">本类没有影片！</td>
                   </tr>
         </table>
      <%else
      %>
	 <a href="MovieView.asp?MovieViewID=<%=rst("articleid")%>" target="_blank"> <img src="<%if rst("domurl")="" then%>img/nopic.gif<%else%><%=rst("domurl")%><%end if%>" width="98" height="131" border="1"></a><br>
		 <a href="MovieView.asp?MovieViewID=<%=rst("articleid")%>" target="_blank">
          <%
           content=rst("title")
           if len(content)>6 then content=left(content,6)&"…"
           response.write content
           %>
		   </a> 
		<%
      end if
	  rst.close
      set rst=nothing
	  %>
				 </td>
                 <td valign="top">
				 <%
sql="select * from learning where typeid='"&rs("typeid")&"'order by articleid desc"
set rst=server.createobject("adodb.recordset")
rst.open sql,conn,1,1
if not(rst.bof and rst.eof) then
%>
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
      <% 
	  t=1
	  do while not rst.eof %>
	  <tr>
        <td>
		<a href="MovieView.asp?MovieViewID=<%=rst("articleid")%>" target="_blank">
          <%
           content=rst("title")
           if len(content)>10 then content=left(content,10)&"…"
           response.write content
           %>
		   </a>	
		   </td>
      </tr>
         <%
		 t=t+1
         if t=9 then exit do
         rst.movenext
         loop
         %>
    </table>
	<%
	  end if
	  rst.close
      set rst=nothing
     %>
	
				 </td>
                 <td>&nbsp;</td>
               </tr>
               <tr>
                 <td colspan="4"><img src="../images/036.gif" width="280" height="4"></td>
               </tr>
          </table>
		   <table width="280" border="0" cellspacing="0" cellpadding="0">
             <tr>
               <td height="5"></td>
             </tr>
           </table></td> 
		   <% if w mod 2=0 then %>
		   </tr>
		   <tr>
			<%
			end if
            rs.movenext   
            next
			end if
            %>
		<tr>	
      </table>
    <table width="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="10"></td>
    </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="MovieFooder.asp"-->