<% nid=Request("nid") ss=sTb(ZQcnGet("http://news.api.edu24ol.com/content?id="&nid)) Str=Mid(ss,instr(ss,"["),len(ss)) Str=Mid(Str,1,len(Str)-1) Str=Replace(Str,"[","") Str=Replace(Str,"]","") SplitStr=Split(Str,"},{") if Str<>"null" then Set Obj=JSON.parse(Str) response.write Obj.Title else response.write "热点资讯" end if 'COOKIES' dim Visitednew Visitednew = request.cookies("newsid") if Visitednew & "" = "" then Visitednew = "," if instr(Visitednew, request("nid")) > 0 then ' Visitednew = "&" & request("nid") & replace(Visitednew,"," & request("nid") & ",",",") else Visitednew = "&" & request("nid") & Visitednew end if response.cookies("newsid") = Visitednew %>

<% set objXmlDom=server.CreateObject("Microsoft.XMLDOM") objXmlDom.async = false fileStr = Server.MapPath("GetchannelName.xml") objXmlDom.load(fileStr) Set item=objXmlDom.getElementsByTagName("channel") For i=0 To (item.Length-1) if cint(objXmlDom.getelementsbytagname("channel").item(i).attributes(0).Value)=cint(Request("upid")) then channel_title=objXmlDom.getelementsbytagname("channel").item(i).text exit for end if next set objXmlDom=nothing %> <% nid=Request("nid") ss=sTb(ZQcnGet("http://news.api.edu24ol.com/content?id="&nid)) Str=Mid(ss,instr(ss,"["),len(ss)) Str=Mid(Str,1,len(Str)-1) Str=Replace(Str,"[","") Str=Replace(Str,"]","") SplitStr=Split(Str,"},{") if Str<>"null" then Set Obj=JSON.parse(Str) response.write Obj.Title else response.write "热点资讯" end if 'COOKIES' dim Visitednew Visitednew = request.cookies("newsid") if Visitednew & "" = "" then Visitednew = "," if instr(Visitednew, request("nid")) > 0 then ' Visitednew = "&" & request("nid") & replace(Visitednew,"," & request("nid") & ",",",") else Visitednew = "&" & request("nid") & Visitednew end if response.cookies("newsid") = Visitednew %> <%=channel_title%>资讯频道

<%=channel_title%>

<% moretype=Request.Cookies("moretype") nid=Request("nid") ss=sTb(ZQcnGet("http://news.api.edu24ol.com/content?id="&nid)) Str=Mid(ss,instr(ss,"["),len(ss)) Str=Mid(Str,1,len(Str)-1) Str=Replace(Str,"[","") Str=Replace(Str,"]","") SplitStr=Split(Str,"},{") if Str<>"null" then sdate=replace(Obj.AddDate,"T"," ") if instr(sdate,".")>0 then sdate=left(sdate,len(sdate)-4) end if Response.Write("

") Set Obj=JSON.parse(Str) Response.Write("

"&Obj.Title&"

") Response.Write("

环球网校 "&sdate&"

") Response.Write("

"&Obj.Content&"

") Response.Write("

") newsId=Request("nid") upid=Request("upid") ss=sTb(ZQcnGet("http://news.api.edu24ol.com/News?cataId=1978&subId=0&pageNo=1&pageSize=10&lessonUp="&upid)) Str=Mid(ss,instr(ss,"["),len(ss)) Str=Mid(Str,1,len(Str)-1) Str=Replace(Str,"[","") Str=Replace(Str,"]","") SplitStr=Split(Str,"},{") nextTitle = "" nextId = 0 For z=0 to Ubound(SplitStr) Set Obj=JSON.parse(FinishStr(SplitStr(z))) if cstr(Obj.Id )= cstr(newsId) and z <= (Ubound(SplitStr)-1) then Set Obj2=JSON.parse(FinishStr(SplitStr(z+1))) nextTitle=Obj2.Title if len(nextTitle)>=18 then nextTitle=Mid(nextTitle,1,18) end if nextId=Obj2.Id end if next ' 'Response.Write("

") if nextTitle<>"" and nextId<>0 then Response.Write("

分享到：下一条> "&nextTitle&"

") else ' Response.Write("更多热点新闻") end if else Response.Write("

") Response.Write("

发布时间：

") Response.Write("

") ' Response.Write("更多热点新闻 ") Response.Write("

") Response.Write("

暂无热点新闻

") end if %>