movieview.asp

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

        <td>&nbsp;</td>
        <td align="right">观看次数：</td>
        <td><%=rs("hits")%></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>
		<% if rs("movietype")="rm" then%>
        <img src="../images/realplayer.gif" border="0" width="16" height="16">
        <%elseif rs("movietype")="md" then%>
        <img src="../images/mediaplayer.gif" border="0" width="16" height="16">
        <%elseif rs("movietype")="mov" then%>
        <img src="../images/QuickTime.gif" border="0" width="16" height="16">
        <%end if%>		</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="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="0"></td>
	  <td colspan="2"></td>
	  </tr>
      <tr>
        <td colspan="4" height="20"></td>
      </tr>
      <tr>
        <td colspan="4" height="1" bgcolor="#6296c6"></td>
        </tr>
      <tr>
        <td colspan="4" height="3" bgcolor="#add7ff"></td>
        </tr>
	 <tr>
        <td colspan="4" height="10"></td>
      </tr>
	 <tr>
	   <td colspan="4"><img src="../images/06.gif" width="133" height="37"></td>
	   </tr>
	 <tr>
        <td colspan="4" height="10"></td>
      </tr>
	 <tr>
        <td colspan="4" align="center">
		
		
		<table width="96%" border="0" cellspacing="0" cellpadding="0">
          <tr>
	<%
	if ip=1 then
	response.write "<td>你的ＩＰ地址没被受权！</td>"
	else
	set rspy=server.createobject("adodb.recordset")
    rspy.open "select sou from home",conn,1,1
	sou=rspy("sou")
	rspy.close
	set rspy=nothing
	serverip=rs("serverip")
	set rst=server.createobject("adodb.recordset")
    sql="select ipsip from movie where id="&serverip
    rst.open sql,conn,1,1
    if rst.bof and rst.eof then
	response.write "<td>没有服务器可以连接！</td>"
	else
	ipsip=rst("ipsip")
	rst.close
	set rst=nothing
	end if	
    set rsurl=server.createobject("adodb.recordset") 
	sql="select * from movieurl where nameid='"&MovieViewID&"' order by id"
    rsurl.open sql,conn,1,1
    if rsurl.bof and rsurl.eof then
	response.write "<td>没有影片地址可以看！</td>"
	else
	no=rsurl.recordcount	
    %>
	<% if no=1 then %><td><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank"><%=rs("title")%></a></td>
	<% elseif no=2 then %><td width="50"><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">上集</a><%rsurl.movenext%></td>
                           <td width="50"><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">下集</a></td><td>&nbsp;</td>
	<% elseif no=3 then %><td width="50"><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">上集</a><%rsurl.movenext%></td>
	                       <td width="50"><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">中集</a><%rsurl.movenext%></td>
                           <td width="50"><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">下集</a></td><td>&nbsp;</td>
	<% elseif no<10 then %>
	<% c=1 
	for c=1 to no %>
	        <td><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">第<%=c%>集</a></td>
			<% if c mod 10=0 then %>
            </tr>
		   <tr>
    <% end if 
	rsurl.movenext
	next
	%>
	
	<% elseif no<100 then %>
	<% c=1 
	for c=1 to no %>
	        <%if c<10 then %>
	        <td><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">第0<%=c%>集</a></td>
			<% else %>
			<td><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">第<%=c%>集</a></td>
			<% end if %>
			<% if c mod 10=0 then %>
            </tr>
		   <tr>
    <% end if 
	rsurl.movenext
	next
	%>
	
	<% else %>
	<% c=1 
	for c=1 to no %>
	        <%if c<10 then %>
	        <td><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">第00<%=c%>集</a></td>
			<% elseif c<100 then %>
			<td><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">第0<%=c%>集</a></td>
			<% else %>
			<td><a href="<% =ipsip %><%=rsurl("url")%>" target="_blank">第<%=c%>集</a></td>
			<% end if %>
			<% if c mod 10=0 then %>
            </tr>
		   <tr>
    <% end if 
	rsurl.movenext
	next
	%>
	
	
	<% end if %>
	
	<%

	rsurl.close
	set rsurl=nothing
	end if
	end if
	%>
	</tr>
	
        </table>
		
		</td>
        </tr>
	  <tr>
        <td colspan="4" height="10"></td>
      </tr>
	  <tr>
        <td colspan="4" height="1" bgcolor="#6296c6"></td>
        </tr>
      <tr>
        <td colspan="4" height="3" bgcolor="#add7ff"></td>
        </tr>
	 <tr>
        <td colspan="4" height="10"></td>
      </tr>
      <tr>
        <td colspan="4">&nbsp;&nbsp;影片简介：</td>
        </tr>
      <tr>
        <td colspan="4" align="center"><table width="96%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><%=rs("content")%></td>
          </tr>
          
        </table></td>
        </tr>
      
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
    </table>
    <table width="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="30"></td>
    </tr>
</table>    
	</td>
   </tr>
</table>

<% else %>

<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">
                <form action="MovieSearch.asp" method="post" name="form1" style="MARGIN: 0px">
                  <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="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="30" align="center">这里没有影片!</td>
    </tr>
</table>    
	</td>
   </tr>
</table>
<% end if 
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
%>
<!--#include file="MovieFooder.asp"-->