movieall.asp

来自「零度白茶影视系统好东西要大家分享」· ASP 代码 · 共 49 行

<!--#include file="MovieTop.asp"-->
<% set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,1,1%>

  <table width="760" border="1" align="center" cellpadding="3" cellspacing="0" style="border-collapse: collapse">
    <%do while not rs.eof%>
    <tr>
      <td width="168" background=../images/img_left.gif height="20" valign="top">
      <p align="center"><%=rs("type")%></td>
      <td width="592" height="20" bgcolor="#F2F2F2">
          <%
		  typeid=rs("type")
	  set rst=server.createobject("adodb.recordset")
      sql="select articleid,title,typeid from learning where typeid='"&rs("typeid")&"'order by articleid desc"
      rst.open sql,conn,1,1
      if rst.eof and rst.bof then
         response.write"该栏目还没有影片"
      else
      dim row_count
      do while not rst.eof
	  %>
      <a href="MovieView.asp?MovieViewID=<%=rst("articleid")%>" target="_blank"><%=rst("title")%></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
       <% 
      rst.movenext
      loop
      end if%>
        
	  </td>
    </tr>
    <%rs.movenext
    loop
    rs.close
    set rs=nothing
    rst.close
    set rst=nothing
    conn.close
    set conn=nothing
    %>
    <tr>
      <td background=../images/img_left.gif height="20" valign="top">&nbsp;</td>
      <td height="20" bgcolor="#F2F2F2">&nbsp;</td>
    </tr>
</table>
  <!--#include file="MovieFooder.asp"-->