<% sql="select * from proclass1_proclass2 where class2id="&request.QueryString("class2id") set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 MapMarker=rs("MapMarker") class2name=rs("class2name") address=rs("address") class2folder_file=Replace(rs("class2folder"),"/","_") mainpagepath="https://"&ProWebName & rs("class1folder")&Replace(rs("class2folder"),"/","_")&".html" %> <%ShowMetaSchoolNR "proclass2","class2ID",Request.QueryString("class2ID"),"在职研究生教育视频"%>

教育视频

    <% 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 %>
  • .html" target="_blank"> <%If rs("videopicurl")<>"" Then %> " alt="<%=rs("PicDes")%>" title="<%=rs("PicDes")%>" /> <%Else %> <%=rs(" title="<%=rs("PicDes")%>" /> <%End If %> (<%=cleanYJS(rs("title"))%>) 播放:6478次
  • <% rs.movenext if rs.eof then exit for next end if end if %>
    <% StaticChangePageFront "https://"&ProWebName&"/University"&class2folder_file&"/video_"&request.QueryString("class2id"),"/" %>
<% RsClose() ConnClose() %>