面授招生信息
-
<%
sql="select top 15 cast(title as varchar(26)) as showtitle,title,t_color,htmlpath,html,addlink from edu_news where newcataid=299 and isshow=1 order by shownum,addtime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3
if not(rs.eof or rs.bof) then
do while not rs.eof
if rs("addlink")="" or isnull(rs("addlink")) then
newslink="/ms/web_news/html/"&rs("htmlpath")&"/"&rs("html")
else
newslink=rs("addlink")
end if
response.Write("
- "&rs(0)&" ") rs.movenext loop end if rs.close set rs=nothing %>
面授资讯
-
<%
sql="select top 15 cast(title as varchar(26)) as showtitle,title,t_color,htmlpath,html,addlink from edu_news where newcataid=320 and isshow=1 order by shownum,addtime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3
if not(rs.eof or rs.bof) then
do while not rs.eof
if rs("addlink")="" or isnull(rs("addlink")) then
newslink="/ms/web_news/html/"&rs("htmlpath")&"/"&rs("html")
else
newslink=rs("addlink")
end if
response.Write("
- "&rs(0)&" ") rs.movenext loop end if rs.close set rs=nothing %>
环球职业面授中心<%
if nctid>0 then ntitle=replace(" >> "&GetNewcatename(nctid),"面授课程","招生简章")&""
if newsubid=790 then
links="kszn.htm"
elseif newsubid=791 then
links="fdtk.htm"
else
links="/ms/news_list.asp?newsubid="&newsubid
end if
if newsubid>0 then ntitle=ntitle&" >> "&GetNewcatename(newsubid)&""
if leupid>0 then ntitle=ntitle&" >> "&GetLessonname(leupid)
response.Write(ntitle)
%>
<%
if nctid>0 then ntitle=replace(GetNewcatename(nctid),"面授课程","招生简章")
if newsubid>0 then ntitle=GetNewcatename(newsubid)
if leupid>0 then ntitle=GetLessonname(leupid)
response.Write(ntitle)
%>
-
<%
sql="select count(0) from edu_news where isshow=1 "&SqlContent&""
set rs=server.CreateObject("Adodb.recordset")
rs.open sql,conn,3
'=================rows为记录总数============
rows=rs(0)
'==============maxrows为每页最大记录数==============
maxrows=30
'====================pagecou为共多少页==================
pagecou=rows\maxrows
if rows >(maxrows * pagecou) then pagecou=pagecou+1
'=================curpage为当前页次============
if checkstr(Request("page"),1)=0 then curpage=1 else curpage=checkstr(Request("page"),1)
spage=maxrows*curpage
if curpage=pagecou and rows mod maxrows>0 then n=rows mod maxrows else n=maxrows
startno=maxrows*(curpage-1)+1
ids="0"
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * from(select ROW_NUMBER() OVER(ORDER BY ID desc) as rowNum,id from edu_news where isshow=1 "&SqlContent&" ) G0 where rowNum>"&spage-maxrows&" and rowNum<="&spage&""
rs.open sql,conn,3
if not(rs.bof or rs.eof) then
rs.Movelast
for i=1 to n
if rs.bof or rs.eof then exit for
ids=ids&","&rs("id")
rs.MovePrevious
next
else
ids=0
end if
find_ids=" and id in ("&ids&")"
set rs=server.CreateObject("adodb.recordset")
sql="select title,t_color,htmlpath,html,addlink,right(CONVERT(varchar(12),addtime,23),5) AS add_time from edu_news where isshow=1 "&find_ids&" order by addtime desc"
rs.open sql,conn,3
do until rs.eof
if rs("addlink")="" or isnull(rs("addlink")) then
newslink="/ms/web_news/html/"&rs("htmlpath")&"/"&rs("html")
else
newslink=rs("addlink")
end if
%>
- <%=rs(0)%> <%=rs(5)%> <% rs.movenext loop rs.close set rs=nothing %>