movieclass.asp

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

   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>
    <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="?MovieClassID=<% =MovieClassID %>">
  <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='?MovieClassID="&MovieClassID&"&page=1'>首页</a>&nbsp;<a href='?MovieClassID="&MovieClassID&"&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='?MovieClassID="&MovieClassID&"&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='?MovieClassID="&MovieClassID&"&page="&curpage+1&"'>下一页</a>&nbsp;<a href='?MovieClassID="&MovieClassID&"&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%>

<table width="574" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td height="30"></td>
    </tr>
</table>    
	</td>
   </tr>
</table>
    <!--#include file="MovieFooder.asp"-->