<%
set rs=server.createobject("adodb.recordset")
'sql="select * from Info where xuexiao="&request.QueryString("class2id")&" and class1id=29 order by InfoID desc"
'sql="select * from Info where cast(vedioUrl as varchar(100))!='' AND vedioUrl LIKE '%.mp4' and xuexiao="&request.QueryString("class2id")&" order by oederid desc,InfoID desc"
sql="select * from Info where cast(vedioUrl as varchar(100))!='' and xuexiao="&request.QueryString("class2id")&" order by oederid desc,InfoID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂无记录")
else
if not rs.eof then
page = request("page")
if page="" then page=0
intPageSize=16
rs.pagesize = intpagesize
intcount = rs.recordcount
intpagecount = rs.pagecount
if int(page)>rs.pagecount then
page=rs.pagecount
end if
if page="" or page=0 then
page=1
else
page=int(page)
end if
if intcount > 0 then
rs.AbsolutePage=page
end if
for i=1 to intPageSize
%>