<% call ShowUserLogin() %>       视频列表 成功课堂 在线视听

<% If IsFlash5="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 %>