movieview.asp

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

<!--#include file="MovieTop.asp"-->
<!--#include file="CheckLockIP.asp"-->
<%
MovieViewID=request("MovieViewID")
   set rs=server.createobject("adodb.recordset")
   sql="update learning set hits=hits+1 where articleID="&MovieViewID
   rs.open sql,conn,1,3
   sql="select * from learning where articleid="&MovieViewID
   rs.open sql,conn,1,1
   if not(rs.bof and rs.eof) then
MovieClassID=rs("typeid") 
%>
<script>
function OpenWindow(htmurl,widths,heights)
{

   var paramet = 'toolbar=no,resizable=yes,scrollbars=yes,width='+ widths + ',height=' + heights;
   newWindow = window.open(htmurl,"yule21",paramet);
   newWindow.focus();
}
</script>
<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>
    <table width="94%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="1" bgcolor="#dfd7d5" colspan="4"></td>
      </tr>
      <tr>
        <td height="15" colspan="4" bgcolor="#f7f7ff">
			<%
	        set rst1=server.createobject("adodb.recordset")
            sql1="select * from type where typeid="&MovieClassID&""
            rst1.open sql1,conn,1,1
			if rst1.eof and rst1.bof then
	        response.write "<font color='#FF0000'><strong>没有分类</strong></font>"
	        else
			MovieType=rst1("type")
			%>
			&nbsp;&nbsp;<a href="MovieClass.asp?MovieClassID=<%=rst1("typeid")%>"><font color="#cc3300"><strong><% =MovieType %></strong></font></a>&nbsp;--&nbsp;<strong><%=rs("title")%></strong>
			<%
			end if
	        rst1.close
            set rst1=nothing
	        %>		</td>
        </tr>
      <tr>
        <td height="1" bgcolor="#dfd7d5" colspan="4" ></td>
      </tr>
      <tr>
        <td height="8" colspan="4" bgcolor="#f8f3f7"></td>
        </tr>
      <tr>
        <td height="7" colspan="4"><img height="2" src="../images/line-long.gif" width="574" /></td>
        </tr>
      <tr>
        <td height="10" colspan="4"></td>
        </tr>
      <tr>
        <td height="1" bgcolor="#6296c6" colspan="4" ></td>
      </tr>
      <tr>
        <td height="3" bgcolor="#add7ff" colspan="4" ></td>
      </tr>

      <tr>
        <td colspan="4">&nbsp;</td>
        </tr>
      <tr>
        <td width="41%" rowspan="29" align="right">
		<table width="90%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img border="1" height="310" src="<%if rs("domurl")="" then%>img/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="220" align="left" /></td>
          </tr>
        </table>		</td>
        <td width="1%" height="26">&nbsp;</td>
        <td colspan="2" valign="top"><strong><%=rs("title")%></strong></td>
        </tr>
      <tr>
        <td height="5"></td>
        <td colspan="2"></td>
       </tr>
      <tr>
        <td height="8"></td>
        <td colspan="2" bgcolor="#f8f3f7"></td>
       </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
       </tr>
      <tr>
        <td height="10"></td>
        <td colspan="2"></td>
       </tr>
      <tr>
        <td height="1"></td>
        <td colspan="2" bgcolor="#6296c6"></td>
       </tr>
      <tr>
        <td height="3"></td>
        <td colspan="2" bgcolor="#add7ff"></td>
       </tr>
      <tr>
        <td  height="50">&nbsp;</td>
        <td width="11%" align="right" valign="top">领衔主演：</td>
        <td width="47%" valign="top"><%=rs("name")%></td>
      </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
        </tr>
      <tr>
        <td>&nbsp;</td>
        <td align="right">影片类型：</td>
        <td><% =MovieType %></td>
      </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td align="right">出产地区：</td>
        <td><%=rs("where")%>地区</td>
      </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td align="right">影片长度：</td>
        <td><%=rs("howlong")%>分钟</td>
      </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td align="right">推荐级别：</td>
        <td><img border="0" src="../images/<%=rs("softlevel")%>STAR.GIF"></td>
      </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td align="right">上传时间：</td>
        <td><%=rs("dateandtime")%></td>
      </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td align="right">报告错误：</td>
        <td><a href="MovieSendeoff.asp?MovieTitle=<%=rs("title")%>" target="_blank">点击报告该片有错误</a></td>
      </tr>
      <tr>
        <td height="2"></td>
        <td colspan="2" background="../images/detail-lime.gif"></td>
      </tr>
      <tr>