<!--#include file="Inc/SysProduct.asp" -->
<!--#include file="inc/Skin_css.asp"-->
<%
if session("VIPUser")<>true or session("LockVIPUser")=True then
response.Write "<script LANGUAGE='javascript'>alert('您不是VIP用户没有权限，请您注册“VIP”会员才能视听或者您还没有登录请登录');window.location.href='UserServer.asp';</script>"
response.End
end if
Start="企业电视台"
%>
<!-- #include file="Head.asp" -->
<TABLE class="xmtable" border=0 align="center" cellPadding=0 cellSpacing=12 bgcolor="#FFFFFF">
  
  <tr> 
    <td  height="450" valign="top" Class="tdbg_left"><table width="100%" border="0" cellspacing="0" cellpadding="0">

      <tr>
        <td height="10"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><% call ShowUserLogin() %>
              </td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="5"></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;视频列表</td>
        </tr>
        <tr>
          <td height="5"></td>
        </tr>
        <tr>
          <td height="10"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="21"><div align="center"><a href="NewsClass.asp?BigClass=成功课堂">成功课堂</a></div></td>
              </tr>
              <TR>
                <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
              </TR>
              <tr>
                <td height="19"><div align="center"><a href="Movie1.asp">在线视听</a></div></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="5"></td>
        </tr>
      </table>
      </td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <td width="670" valign="top" bgcolor="#FFFFFF"><table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><% If IsFlash5="Yes" Then %>
            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%=width5%>" height="<%=High5%>">
              <param name="movie" value="<%=BannerUrl5%>">
              <param name="quality" value="high">
              <param name="wmode" value="transparent">
              <embed src="<%=BannerUrl5%>" width="<%=width5%>" height="<%=High5%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
            </object>
            <% Else %>
            <img src="<%=BannerUrl5%>" width="<%=width5%>" height="<%=High5%>">
            <% end If%>
        </td>
      </tr>
    </table>
      <br>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
        <TBODY>
          <TR>
            <TD class="title_b"></TD>
            <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                <TBODY>
                  <TR>
                    <TD width=98 class="title_c">视频展示</TD>
                    <TD width="555" class="title_right">　</TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
          <TR>
            <TD vAlign=bottom colSpan=2 height=5><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                <TBODY>
                  <TR>
                    <TD bgColor=#e3e3e3 
                                height=1></TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
        </TBODY>
      </TABLE>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <TR>
          <TD width="453" 
                  height=28> 　视频展示 &gt;&gt; 所有视频</TD>
          <TD width="102">　</TD>
        </TR>
        <TR>
          <TD 
                  height=1 colspan="2" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
        </TR>
        <TR>
          <TD 
                  height=42 colspan="2"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="862" align="center" valign="top"><%
strFileName="Movie1.asp"
MaxPerPage=20

if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from Movie where Types='在线视听' order by id desc"
rs.Open sql,conn,1,1
%>
                    <%
  	if rs.eof and rs.bof then
		response.write "目前共有 0 个视频"
	else
    	totalPut=rs.recordcount
		if currentpage<1 then
       		currentpage=1
    	end if
    	if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     		currentpage= totalPut \ MaxPerPage
		  	else
		      	currentpage= totalPut \ MaxPerPage + 1
	   		end if

    	end if
	    if currentPage=1 then        
        	showContent
        	showpage strFileName,totalput,MaxPerPage,true,true,"个视频"
   	 	else
   	     	if (currentPage-1)*MaxPerPage<totalPut then
         	   	rs.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rs.bookmark        		
            	showContent
            	showpage strFileName,totalput,MaxPerPage,true,true,"个视频"
        	else
	        	currentPage=1        
           		showContent
           		showpage strFileName,totalput,MaxPerPage,true,true,"个产品"
	    	end if
		end if
	end if

sub showContent
   	dim i
    i=0
%>
                    <br>
                    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F0F0F0" class="border">
                      <tr>
                        <td width="38" height="25" align="center" bgcolor="#FFCC00"><strong> 序号</strong></td>
                        <td width="104" height="25" align="center" bgcolor="#FFCC00"><strong> 视频说明</strong></td>
                        <td width="178" height="25" align="center" bgcolor="#FFCC00"><strong> 类别</strong></td>
                        <td width="157" height="25" align="center" bgcolor="#FFCC00"><strong>备注</strong></td>
                      </tr>
                      <%do while not rs.EOF %>
                      <tr>
                        <td height="22" align="center" bgcolor="#FFFFFF" onMouseOver="this.bgColor='#efefef';"onmouseout="this.bgColor='#ffffff';"><a href="MovieShow.asp?ID=<%=rs("ID")%>"><%=rs("ID")%></a></td>
                        <td align="center" bgcolor="#FFFFFF" onMouseOver="this.bgColor='#efefef';"onmouseout="this.bgColor='#ffffff';"><%=rs("Readme")%></td>
                        <td align="center" bgcolor="#FFFFFF" onMouseOver="this.bgColor='#efefef';"onmouseout="this.bgColor='#ffffff';"><%=rs("Types")%> </td>
                        <td bgcolor="#FFFFFF" onMouseOver="this.bgColor='#efefef';"onmouseout="this.bgColor='#ffffff';"><div align="center"><a href="MovieShow.asp?ID=<%=rs("ID")%>">查看视频</a></div></td>
                      </tr>
                      <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
                  </table>
                  <%
end sub 
%>
                    <%
rs.Close
set rs=Nothing
%></td>
              </tr>
          </table></TD>
        </TR>
        <TR>
          <TD 
                  height=1 colspan="2"></TD>
        </TR>
      </table></td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <TD width="79" > </TD>
  </tr>
</table>

<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>
