<% sql="select * from shuxing1_shuxing2 where class2id="&request.QueryString("class2id") set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 majorName=Replace(rs("class2folder"),"/","") detailUrlPre=rs("class1folder")&Replace(rs("class2folder"),"/","_")&"_"&request.QueryString("class2id") set rss=conn.execute ("Select * from infclass1_Info where InfoID="&Request.QueryString("InfoID") ) Title=trim(rss("Title")) des=rss("Des") Set rs_pre=conn.execute ("Select top 1 infoid,title from infclass1_Info where InfoID<"&Request.QueryString("InfoID")&" and class1id="&rss("class1id")&" order by infoid desc") Set rs_sub=conn.execute ("Select top 1 infoid,title from infclass1_Info where InfoID>"&Request.QueryString("InfoID")&" and class1id="&rss("class1id")&" order by infoid asc") Set jianzhang=conn.execute("select banner,class2name,banner1,class1folder,class2folder,class2name from proclass1_proclass2 where class2id="&rss("xuexiao")) If Not jianzhang.bof And Not jianzhang.eof then class1folder=jianzhang("class1folder") class2folder=jianzhang("class2folder") class2name=jianzhang("class2name") End If Set jianzhang=Nothing SiteSN="ZZYEDU_ORG" cache_video="" rem 城市緩存 If Application(SiteSN&"_INFO_DETAIL_VIDEO_LIST")="" then cache_video=getVideo() Application.lock Application(SiteSN&"_INFO_DETAIL_VIDEO_LIST_Timestamp")=now() Application(SiteSN&"_INFO_DETAIL_VIDEO_LIST")=cache_video Application.unlock ElseIf DateDiff("n",Application(SiteSN&"_INFO_DETAIL_VIDEO_LIST_Timestamp"),now())>60 Then '正式運(yùn)行時(shí)60分鐘調(diào)用一次 cache_video=getVideo() Application.lock Application(SiteSN&"_INFO_DETAIL_VIDEO_LIST_Timestamp")=now() Application(SiteSN&"_INFO_DETAIL_VIDEO_LIST")=cache_video Application.unlock Else cache_video=Application(SiteSN&"_INFO_DETAIL_VIDEO_LIST") End If rem 獲取視頻代碼段 Function getVideo() getVideo="" set zy=conn.execute("select top 12 infoid,SmallPic,PicDes,beiyong,title,videopicurl from Info where cast(vedioUrl as varchar(100))!='' and videopicurl<>'' and tubiao<>1 order by oederid desc,InfoID desc") do while not zy.eof getVideo=getVideo&"
  • " getVideo=getVideo&"" 'getVideo=getVideo&""&zy("title")&"" getVideo=getVideo&""&zy("title")&"" getVideo=getVideo&""&zy("title")&"" getVideo=getVideo&"播放："&zy("beiyong")&"次" getVideo=getVideo&"" getVideo=getVideo&"
    • " zy.movenext Loop zy.close:Set zy=Nothing End Function %> 加勒比一本heyzo高清视频,久久不见久久见免费影院www日本 久久不见久久见www免费 ,精品国产一区二区三区四区色 -在職研招網(wǎng)';return true" /> .css" rel="stylesheet" type="text/css"> .html"/>

    久久久久亚洲av无码专区喷水,国内精品乱码卡一卡2卡麻豆,久久99精品国产自在现线小黄鸭,久久久久久综合网天天,国偷自产视频一区二区久

    <%=Replace(cleanYJS(rss("title"))," ","
    ")%>

    來(lái)源：在職研招網(wǎng)（5370.com.cn） 【在職研究生網(wǎng)】 發(fā)布時(shí)間：<%=rss("SubDate")%>
    <%Dim vedioUrl:vedioUrl=rs("vedioUrl")%> <%if rss("Class1ID")=11 or rss("Class1ID")=12 or rss("Class1ID")=15 or rss("Class1ID")=25 then%> <%if vedioUrl<>"" then%> <%if InStr(vedioUrl,"http://")>0 Or InStr(vedioUrl,"https://")>0 Or InStr(vedioUrl,"/video/")>0 then%>
    <%else%>
    <%end if%> <%end if%> <%end if%> <%if rss("tujipicurl")<>"" then%> " />
    <%end if%> <%=replace(cleanYJS(rss("content")),"http://5370.com.cn/","http://5370.com.cn/")%>
    相關(guān)新聞
      <% sql="select top 8 infoid,title from info where class1id='25' and xuexiao = '"&xuexiao&"'" set rsa=server.CreateObject("adodb.recordset") rsa.open sql,conn,1,1 if not(rsa.eof and rsa.bof) then do while not rsa.eof %>
    • .html" target="_blank"><%=cleanYJS(rsa("title"))%>
      • <% rsa.movenext loop end if rsa.close:set rsa=nothing %>
      <% sql="select top 8 infoid,title from info where class1id='25' and zhuanye = '"&zhuanye&"'" set rss=server.CreateObject("adodb.recordset") rss.open sql,conn,1,1 if not (rss.eof and rss.bof) then do while not rss.eof %>
    • .html" target="_blank"><%=cleanYJS(rss("title"))%>
      • <% rss.movenext loop end if rss.close:set rss=nothing %>
    教育視頻
    <%=cleanYJS(cache_video)%>
    <%Call showPinglunContent(request.QueryString("InfoID"),"news")%>
    <% RsClose() ConnClose() %>