<% set conn=server.createobject("adodb.connection") DSNtemp = "Driver={Microsoft Access Driver (*.mdb)};" DSNtemp = DSNtemp & "DBQ=" & server.mappath("video.mdb") conn.open DSNtemp %> AAB直播 - 领跑中阿财富
 
 
 
      视频点播
 
<% id=cint(request("id")) path="/video/aabtv/" filename="20090801.wmv" title="视频点播" sql="select * from video where id="&id set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then filename=rs("path1") title=rs("title") end if rs.close set rs=nothing %>
<%=title%>
    <% pages=20 perpage=pages sql="select * from video" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not (rs.eof and rs.bof) then totalrec = rs.RecordCount rs.pageSize = pages allPages = rs.pageCount page = Request("page") If not isNumeric(page) then page=1 if isEmpty(page) or int(page) <= 1 then page = 1 elseif int(page) >= allPages then page = allPages end if rs.AbsolutePage = page do while not rs.eof and pages>0 filename=path&rs("path1") title1=rs("title") response.Write "
  • " response.Write left(title1,20)&"
    • " pages=pages-1 rs.movenext loop call listpage() end if rs.close set rs=nothing%>
 

媒体伙伴
             
迪拜总部： Bldg No. 9 Dubai Media City . UAE | P.O. Box: 113381 | Tel: +971-4-3602 600 | Fax: +971-4-3604 427 | Email:dubai@aabtv.com
大中华区运营中心：中国杭州市祥园路28号乐富智汇园2－502 | Tel: +86 - 571 - 2811 6618 | Fax: +86 - 571 - 2811 6617 | Email: aabtv@aabtv.com
Copyright © 2008-2009 AABTV All Rights Reserved
网站备案：浙ICP备09020721号 | 亚洲商务卫视 版权所有
<% sub listpage() response.Write "
" if page = 1 then response.write "首页 上页" else response.write "首页 " response.write " 上页 " end if if page = allpages then response.write " 下页 末页" else response.write " 下页 " response.write " 末页 " end if response.write "    第"&page&"页 共"&allpages&"页     视频总数："&totalrec& "   每页视频数："& perpage response.Write "
" end sub %> 此栏目暂无任何新增信息