index.asp

网上流行的MOVE站点

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="253" id="AutoNumber19">
<tr>
<td width="100%" background="images/index-titlebg.gif" height="31">
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber20">
<tr>
<td width="50%"><span class="fontshadow">
<a class="a1" href="mlist.asp?typeid=喜剧片">喜剧片</a></span></td>
<td width="50%" align="center"><span class="fontshadow">
　　　　<a class="a1" href="mlist.asp?typeid=喜剧片">more</a></span></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" background="images/index-bg8.gif" height="158">
<div align="center">
<center>
<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="88%" id="AutoNumber21" cellpadding="2">

<tr>
<td width="233" colspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber22">
<% 
                         sql="select * from learning WHERE domurl<>Null and typeid='喜剧片' and firstbest=1 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
<tr>
<td width="35%">


<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img border="0" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66"></a></td>

<td width="65%">
<img border="0" src="images/index-dot2.gif" width="4" height="8">&nbsp;&nbsp;                                                                        
<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><b><%content=rs("title")          
                          if len(content)>12 then content=left(content,12)&"-"
                          response.write content
                            %></b></a>
<br>
<span class="L20">主演：<%content=rs("name")
                          if len(content)>8 then content=left(content,8)&"…"
                          response.write content
                            %></span>
<br>
<span class="L20">观看次数： <%=rs("hits")%>次</span>
</td>                                               
</tr>
<% i=i+1                      
                        if i>=1 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %> 
</table>
</td>
</tr>

<tr>
<td colspan="2" align="center" width="236">
<img border="0" src="images/index-line3.gif" width="230" height="1" ></td>
</tr>

<% 
                         sql="select * from learning WHERE domurl<>Null and typeid='喜剧片' order by articleid desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>

<tr>

<td align="left">·<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")          
                          if len(content)>13 then content=left(content,13)&"-"
                          response.write content
                            %></a></td>
<td align="Right"><%=rs("hits")%>次</td> 
                            <tr>
<td colspan="2" align="center" width="236">
<img border="0" src="images/index-line3.gif" width="230" height="1" ></td>
</tr>



<% i=i+1                      
                        if i>=3 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %> 

</table>
</center>
</div>
</td>
</tr>
</table>
</td>

<td width="50%" align="center">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="253" id="AutoNumber19">
<tr>
<td width="100%" background="images/index-titlebg.gif" height="31">
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber20">
<tr>
<td width="50%"><span class="fontshadow">
<a class="a1" href="mlist.asp?typeid=动作片">动作片</a></span></td>
<td width="50%" align="center"><span class="fontshadow">
　　　　<a class="a1" href="mlist.asp?typeid=动作片">more</a></span></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" background="images/index-bg8.gif" height="158">
<div align="center">
<center>
<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="88%" id="AutoNumber21" cellpadding="2">

<tr>
<td width="233" colspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber22">
<% 
                         sql="select * from learning WHERE domurl<>Null and typeid='动作片' and firstbest=1 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
<tr>
<td width="35%">


<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img border="0" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66"></a></td>

<td width="65%">
<img border="0" src="images/index-dot2.gif" width="4" height="8">&nbsp;&nbsp;                                                                        
<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><b><%content=rs("title")          
                          if len(content)>12 then content=left(content,12)&"-"
                          response.write content
                            %></b></a>
<br>
<span class="L20">主演：<%content=rs("name")
                          if len(content)>8 then content=left(content,8)&"…"
                          response.write content
                            %></span>
<br>
<span class="L20">观看次数： <%=rs("hits")%>次</span>
</td>                                               
</tr>
<% i=i+1                      
                        if i>=1 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %> 
</table>
</center>
</td>
</tr>

<tr>
<td colspan="2" align="center" width="236">
<img border="0" src="images/index-line3.gif" width="230" height="1" ></td>
</tr>

<% 
                         sql="select * from learning WHERE domurl<>Null and typeid='动作片' order by articleid desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>

<tr>

<td align="left">·<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")          
                          if len(content)>13 then content=left(content,13)&"-"
                          response.write content
                            %></a></td>
<td align="Right"><%=rs("hits")%>次</td> 
                            <tr>
<td colspan="2" align="center" width="236">
<img border="0" src="images/index-line3.gif" width="230" height="1" ></td>
</tr>



<% i=i+1                      
                        if i>=3 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %>
</table>
</center>
</div>
</td>
</tr>
</table>


</td>
</tr>
<tr>
<td width="100%" colspan="2">
<img border="0" src="images/index-dot3.gif" width="5" height="5"></td>
</tr>
 
<tr>
<td width="50%" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="253" id="AutoNumber19">
<tr>
<td width="100%" background="images/index-titlebg.gif" height="31">
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber20">
<tr>
<td width="50%"><span class="fontshadow">
<a class="a1" href="mlist.asp?typeid=恐怖片">恐怖片</a></span></td>
<td width="50%" align="center"><span class="fontshadow">
　　　　<a class="a1" href="mlist.asp?typeid=恐怖片">more</a></span></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" background="images/index-bg8.gif" height="158">
<div align="center">
<center>
<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="88%" id="AutoNumber21" cellpadding="2">

<tr>
<td width="233" colspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber22">
<% 
                         sql="select * from learning WHERE domurl<>Null and typeid='恐怖片' and firstbest=1 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
<tr>
<td width="35%">


<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img border="0" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66"></a></td>

<td width="65%">
<img border="0" src="images/index-dot2.gif" width="4" height="8">&nbsp;&nbsp;                                                                        
<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><b><%content=rs("title")          
                          if len(content)>12 then content=left(content,12)&"-"
                          response.write content
                            %></b></a>
<br>
<span class="L20">主演：<%content=rs("name")
                          if len(content)>8 then content=left(content,8)&"…"
                          response.write content
                            %></span>
<br>
<span class="L20">观看次数： <%=rs("hits")%>次</span>
</td>                                               
</tr>
<% i=i+1                      
                        if i>=1 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %> 
</table>
</center>
</td>
</tr>

<tr>
<td colspan="2" align="center" width="236">
<img border="0" src="images/index-line3.gif" width="230" height="1" ></td>
</tr>

<% 
                         sql="select * from learning WHERE domurl<>Null and typeid='恐怖片' order by articleid desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>

<tr>

<td align="left">·<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")          
                          if len(content)>13 then content=left(content,13)&"-"
                          response.write content
                            %></a></td>
<td align="Right"><%=rs("hits")%>次</td> 
                            <tr>
<td colspan="2" align="center" width="236">
<img border="0" src="images/index-line3.gif" width="230" height="1" ></td>
</tr>



<% i=i+1                      
                        if i>=3 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></table>
</div>
</td>
</tr>
</table>
</td>

<td width="50%" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="253" id="AutoNumber19">
<tr>
<td width="100%" background="images/index-titlebg.gif" height="31">
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber20">
<tr>
<td width="50%"><span class="fontshadow">
<a class="a1" href="mlist.asp?typeid=生活片">生活片</a></span></td>
<td width="50%" align="center"><span class="fontshadow">
　　　　<a class="a1" href="mlist.asp?typeid=生活片">more</a></span></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" background="images/index-bg8.gif" height="158">
<div align="center">
<center>
<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="88%" id="AutoNumber21" cellpadding="2">

<tr>
<td width="233" colspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber22">
<% 
                         sql="select * from learning WHERE domurl<>Null and typeid='生活片' and firstbest=1 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
<tr>
<td width="35%">


<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img border="0" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66"></a></td>

<td width="65%">
<img border="0" src="images/index-dot2.gif" width="4" height="8">&nbsp;&nbsp;                                                                        
<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><b><%content=rs("title")          
                          if len(content)>12 then content=left(content,12)&"-"