-- 视频列表 --
  • 成功课堂
  • 在线视听
    		•
    <% If IsFlash1="Yes" Then %> <% Else %> <% end If%>
    视频展示
    <% 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
    <%do while not rs.EOF %> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
    序号 视频说明 类别 备注
    "><%=rs("ID")%> <%=rs("Readme")%> <%=rs("Types")%>
    <% end sub %> <% rs.Close set rs=Nothing %>