moviesearch.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="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>
	
	<%
MovieKey=trim(request("keyword"))
MovieKey=replace(MovieKey,"'","''")
MovieTypeID=Replace(request("typeid"), "'", "''")
if MovieTypeID="片名" then
 sql="select * from learning where title Like '%"& MovieKey &"%' order by articleid desc"
else
 sql="select * from learning where name Like '%"& MovieKey &"%' order by articleid desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有找到你要搜索的影片!<a href=""javascript:history.go(-1)"">返回重查</a>"
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><% =MovieTypeID %>:</strong></font><strong><% =MovieKey %></strong></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 
   dim perpage 
   perpage=10
   if request("page")="" then 
   curpage = 1 
   else 
   curpage = cint(request("page")) 
   end if 
   rs.pagesize = perpage 
   rs.absolutepage = curpage


do while not rs.eof
%>
      <tr>
        <td width="50%">
	      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td colspan="4" height="10"></td>
            </tr>
            <tr>
              <td width="25%" rowspan="5" align="left"><a target="_self" href="MovieView.asp?MovieViewID=<%=rs("articleid")%>"> <font color="#000000"><img border="1" class="border123" height="168" src="<%if rs("domurl")="" then%>
									IMA/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="120" /></font></a> </td>
              <td width="2%" height="40">&nbsp;</td>
              <td colspan="2" valign="top"><a target="_self" href="MovieView.asp?MovieViewID=<%=rs("articleid")%>"><font color="#cc3300"><strong>
                <%
                          title=rs("title")
                          if len(title)>15 then title=left(title,15)&"…"
                          response.write title
                           %>
              </strong> </font></a></td>
            </tr>
            <tr>
              <td height="60">&nbsp;</td>
              <td width="28%" valign="top"><strong>主演：</strong></td>
              <td width="47%" valign="top"><%
                          title=rs("name")
                          if len(title)>22 then title=left(title,22)&"…"
                          response.write title
                           %></td>
            </tr>
            <tr>
              <td height="10">&nbsp;</td>
              <td><strong>时间：</strong></td>
              <td><strong><%=rs("dateandtime")%></strong></td>
            </tr>
            <tr>
              <td height="10">&nbsp;</td>
              <td><strong>推荐：</strong></td>
              <td><img border="0" src="../images/<%=rs("softlevel")%>STAR.GIF" /></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td><strong>点击：</strong></td>
              <td><strong><%=rs("hits")%></strong></td>
            </tr>
            <tr>
              <td colspan="4" height="5"></td>
            </tr>
        </table>
		</td>
        <% rs.movenext %>
        <% if rs.eof or rs.bof then%>
        <td>&nbsp;</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>
      <% 
		exit do
		else %>
        <td>
		<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td colspan="4" height="10"></td>
            </tr>
            <tr>
              <td width="25%" rowspan="5" align="left"><a target="_self" href="MovieView.asp?MovieViewID=<%=rs("articleid")%>"> <font color="#000000"><img border="1" class="border123" height="168" src="<%if rs("domurl")="" then%>
									IMA/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="120" /></font></a> </td>
              <td width="2%" height="40">&nbsp;</td>
              <td colspan="2" valign="top"><a target="_self" href="MovieView.asp?MovieViewID=<%=rs("articleid")%>"><font color="#cc3300"><strong>
                <%
                          title=rs("title")
                          if len(title)>15 then title=left(title,15)&"…"
                          response.write title
                           %>
              </strong> </font></a></td>
            </tr>
            <tr>
              <td height="60">&nbsp;</td>
              <td width="28%" valign="top"><strong>主演：</strong></td>
              <td width="47%" valign="top"><%
                          title=rs("name")
                          if len(title)>22 then title=left(title,22)&"…"
                          response.write title
                           %></td>
            </tr>
            <tr>
              <td height="10">&nbsp;</td>
              <td><strong>时间：</strong></td>
              <td><strong><%=rs("dateandtime")%></strong></td>
            </tr>
            <tr>
              <td height="10">&nbsp;</td>
              <td><strong>推荐：</strong></td>
              <td><img border="0" src="../images/<%=rs("softlevel")%>STAR.GIF" /></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td><strong>点击：</strong></td>
              <td><strong><%=rs("hits")%></strong></td>
            </tr>
            <tr>
              <td colspan="4" height="5"></td>
            </tr>
        </table>
		   </td>
        <% end if %>
      </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>
      <%
	    w=w+2     
      if w=rs.pagesize then exit do
      rs.MoveNext
	  loop
      %>
      <tr>
        <td height="10" colspan="2"></td>
      </tr>
      <tr>
        <td height="1" colspan="2"><table width="574" border="0" cellspacing="0" cellpadding="0">
          <form method="post" action="?TypeID=<% =MovieTypeID %>&KeyWord=<% =MovieKey %>">
            <tr>
              <td width="6"><img src="../images/pLeftbg.gif" width="6" height="36" /></td>
              <td align="center" background="../images/pTablebg.gif"><%
response.write "总<font color='#FF0000'>"&rs.recordcount&"</font>条&nbsp;"
response.write "第<font color='#FF0000'>"&curpage&"</font>/<font color='#FF0000'>"&rs.pagecount&"</font>页&nbsp;" 
response.write "<font color='#FF0000'>"&perpage&"</font>条/页&nbsp;" 
if curpage = 1 then 
response.write "首页&nbsp;上一页&nbsp;" 
else
response.write "<a href='?TypeID="&MovieTypeID&"&KeyWord="&MovieKey&"&page=1'>首页</a>&nbsp;<a href='?TypeID="&MovieTypeID&"&KeyWord="&MovieKey&"&page="&curpage-1&"'>上一页</a>&nbsp;" 
end if 

pp=curpage-2            
  if pp<1 then            
  pp=1            
  end if            
for pno=pp to rs.pagecount
p=p+1            
if pno=curpage then
response.write "<b><font color=#FF0000>["&pno&"]</font></b>&nbsp;"
else
response.write "<b><a href='?TypeID="&MovieTypeID&"&KeyWord="&MovieKey&"&page="&pno&"'>["&pno&"]</a></b>&nbsp;"
end if 
if p>=5 then exit for            
next

if curpage = rs.pagecount then 
response.write "下一页&nbsp;末页&nbsp;" 
else
response.write "<a href='?TypeID="&MovieTypeID&"&KeyWord="&MovieKey&"&page="&curpage+1&"'>下一页</a>&nbsp;<a href='?TypeID="&MovieTypeID&"&KeyWord="&MovieKey&"&page="&rs.pagecount&"'>末页</a>&nbsp;"  
end if 

response.write "转到：<select name='page' size='1' onChange='javascript:submit()'>"
for i = 1 to rs.pagecount
response.write "<option value='"&i&"'" 
		if curpage=cint(i) then 
response.write "selected"
		end if
response.write ">第"&i&"页</option>"
		next
response.write "</select>" 
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
   %>
              </td>
              <td width="6"><img src="../images/pRightbg.gif" width="6" height="36" /></td>
            </tr>
          </form>
        </table></td>
      </tr>
    </table>
<% end if %>	
	
	
	
	</td>
   </tr>
</table>
<!--#include file="MovieFooder.asp"-->