<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% prono=Request.QueryString("prono") if prono="" then Response.End set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") sql="select * from product where state='1' and classcode like '2%' and prono="&prono rs.Open sql,cn,1,3 if not rs.EOF then title=trim(rs("title")) intro=trim(rs("intro")) querycount=trim(rs("querycount")) content=trim(rs("content")) classcode=rs("classcode") picflag=rs("picflag") picflag2=rs("picflag2") infocount=rs("infocount") creadate=rs("creadate") updatetime=rs("updatetime") rs("querycount")=rs("querycount")+1 keyword=trim(rs("keyword"))+"/" xx1=1 xx2=instr(xx1,keyword,chr(47)) wheretxt="" do while xx2>0 ttt=mid(keyword,xx1,xx2-xx1) if ttt<>"" then ttt="(title like '%"+ttt+"%' or keyword like '%"+ttt+"%')" if wheretxt="" then wheretxt=ttt else wheretxt=wheretxt+" or "+ttt end if end if xx1=xx2+1 xx2=instr(xx1,keyword,"/") loop rs.Update end if rs.Close mymenu="study" myurl="study_display.asp?x=1" %> <%=title%>_ABC留学
<% sqltext="select * from sys_dept order by flag desc,sortnum" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=6%> <%=trim(rs2("shortname"))%> <%=trim(rs2("phone"))%>  <% if i mod 3 = 0 then response.write"
" i=i+1 rs2.MoveNext loop rs2.Close %>
  您所在的位置:首页 > 澳洲留学 > <%select case classcode case "201102" Response.Write ("移民课程") case "201103" Response.Write ("大学学校") case "201104" Response.Write ("高中学校") case "201105" Response.Write ("留学指南") case "201106" Response.Write ("合作项目") case "201107" Response.Write ("留学新西兰") end select%>
<%=title%>
来源:<%=newsform%> 时间:<%=creadate%> 浏览<%=querycount+1%>次 发表评论
    <%=intro%>   更新时间:<%=updatetime%>
<% if infocount>0 then sqltext="select * from product_info where prono="&prono&" order by sortnum" rs2.Open sqltext,cn,1,1 do while not rs2.EOF if rs2("picflag")="1" then select case rs2("picalign") case "1" position="left" case "2" position="right" case else position="center" end select if position="center" then %>
<%if rs2("picflag2")="1" then%> " target=_blank>" border="0" onload="if (this.width > 700) this.width = 700;"> <%else%> " border="0" onload="if (this.width > 700) this.width = 700;"> <%end if%>
<%if rs2("flag")="1" then%>
<%=trim(rs2("title"))%>
<%end if else if rs2("picflag2")="1" then %> " target=_blank>" border="0" align=<%=position%> onload="if (this.width > 700) this.width = 700;"> <% else %> " border="0" align=<%=position%> onload="if (this.width > 700) this.width = 700;"> <%end if end if end if Response.Write(checkstr(trim(rs2("content")),"1")&"
") rs2.MoveNext loop rs2.Close end if if picflag="1" then if picflag2="1" then%>

<%else%>

<%end if end if %> <%=checkstr(content,"1")%>
[责任编辑:<%=author%>] 


<% sqltext="select top 1 title,prono from product where state='1' and classcode like '2%' and prono<"&prono&" order by prono desc" rs2.Open sqltext,cn,1,1 if rs2.eof then response.write "上一篇:这是澳洲留学分类的第一篇文章" else response.write "上一篇:"&rs2("title")&"" end if rs2.Close %>
<% sqltext="select top 1 title,prono from product where state='1' and classcode like '2%' and prono>"&prono&" order by prono" rs2.Open sqltext,cn,1,1 if rs2.eof then response.write "下一篇:这是澳洲留学分类的最后一篇" else response.write "下一篇:"&rs2("title")&"" end if rs2.Close %>
<% sqltext="select keyno,creadate,title from miscell where basclass='600' and state='1' order by creadate desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=5 %><% i=i+1 rs2.MoveNext loop rs2.Close %>
ABC最新批出              更多
·" target=_blank>[<%=dateValue(rs2("creadate"))%>] <%=subss(trim(rs2("title")),54)%>..<%if (datediff("d",rs2("creadate"),now()))<=3 then%><%end if%>
<% sqltext="select prono,title,querycount,updatetime from product where state='1' and classcode like '2%' order by querycount desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=10 %><% i=i+1 rs2.MoveNext loop rs2.Close %>
留学点击排行             更多
 <%=i%> <%=subss(trim(rs2("title")),26)%>