<!-- #include file="INCLUDE/config_video.asp" -->
<!-- #include file="include/new_main.asp" -->
<!-- #include file="include/conn.asp" -->
<%dim rst,sqlt,typeid
dim atb:atb=" target=_blank"
video_main=1
index_url="video"
tit="在线电影"
call web_head(0,0,0,0,0)
response.write ukong%>
<% set rs=server.createobject("adodb.recordset")
sql="select type,typeid from videotype"
rs.open sql,conn,1,1%>
  <table border="4" width="760" style="border-collapse: collapse" cellpadding="3" cellspacing="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
    <%do while not rs.eof%>
    <tr onmouseover="javascript:this.bgColor='cvbxcv';" onmouseout="javascript:this.bgColor='#FFFFFF';">
      <td width="71" height="20">
      <p align="center"><%=rs("type")%>=&gt;<%typeid=rs("typeid")%></td>
      <td width="697" height="20">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
        <tr>
          <%set rst=server.createobject("adodb.recordset")
      sql="select * from video where c_id="&typeid&" order by id desc"
      rst.open sql,conn,1,1
      if rst.eof and rst.bof then
         response.write"该栏目还没有影片"
      else
      dim row_count
	  row_count=1
      do while not rst.eof
        %>
          <td width="135">
          <a href="video_view.asp?id=<%=rst("id")%>" target="_blank">
          <%response.write ""&objv7.code_html(rst("title"),1,5)&""%></a></td>
          <% if row_count mod 8 =0 then%>
        </tr>
        <tr>
          <%
      end if
      row_count=row_count+1
      rst.movenext
      loop
      end if%>
        </tr>
      </table>
      </td>
    </tr>
    <%rs.movenext
    loop
    rst.close
    set rst=nothing
    %>
  </table>
<%call web_end(0)%>