<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") if Request.ServerVariables("REQUEST_METHOD")="POST" then classcode=Request.Form("classcode") keyword=Request.Form("keyword") else classcode=Request.QueryString("classcode") keyword=Request.QueryString("keyword") end if if classcode="000" then classcode="" if keyword="请输入关键字" then keyword="" set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="study" myurl="study_list.asp?temp=1" %> 澳大利亚留学_澳洲留学_出国留学_留学签证_电子签证_移民课程_ABC留学_ABC签证网
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='s1' order by sortnum" rs.Open sql,cn,1,1 %> <% if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then if trim(rs("website"))<>"" then %> " target=_blank><%=trim(rs("> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>
ABC签证网澳洲留学频道
澳大利亚留学
<% sql="select classcode,classname from product_class where parentcode='201' order by sortnum" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=6 if trim(classcode)=trim(rs(0)) then%> <% else %> <%end if i=i+1 rs.MoveNext loop rs.Close %>
<%=trim(rs(1))%> <%=trim(rs(1))%>



Joanna YOYO Richard Yuan
最新批出 经典案例
<% sql="select keyno,creadate,title from miscell where classcode='603' and state='1' order by creadate desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=10 %> <% i=i+1 rs.MoveNext loop rs.Close %>
·" target=_blank>[<%=dateValue(rs("creadate"))%>] <%=subss(trim(rs("title")),54)%>..<%if (datediff("d",rs("creadate"),now()))<=3 then%><%end if%>
<% sql="select keyno,classcode,picflag,title from miscell where classcode='603' and nomflag='1' and state='1' order by updatetime desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=6 %> <% i=i+1 rs.MoveNext loop rs.Close %>
·" class="a01" target=_blank>[学生留学案例] <%if rs("picflag")="1" then%><%=subss(trim(rs("title")),38)%>(图)<%else%><%=subss(trim(rs("title")),42)%><%end if%>
457招聘 本站招聘
<% sql="select * from career where basclass='200' and state='1' order by updatetime desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=10 %><% i=i+1 rs.MoveNext loop rs.Close %>
·<%=subss(trim(rs("title")),28)%>
<% sql="select * from career where basclass='100' and state='1' order by updatetime desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=8 %><% i=i+1 rs.MoveNext loop rs.Close %>
·<%=subss(trim(rs("title")),28)%>
  留学点击排行
<% sql="select prono,title,querycount,updatetime from product where state='1' and classcode like '2%' order by querycount desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=10 %><% i=i+1 rs.MoveNext loop rs.Close %>
 <%=i%> <%=subss(trim(rs("title")),26)%>
  澳洲论坛热点
<% sql="select keyno,title from forum where grade=1 and classcode='102' order by querycount desc,keyno desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=10 %><% i=i+1 rs.MoveNext loop rs.Close %>
·<%=subss(trim(rs("title")),28)%>
本栏目有<%=reccount%>条留学信息
<% if classcode="" then sql="select prono,title,updatetime,querycount,intro,creadate from product where state='1' and classcode like '2%' and (title like '%"+keyword+"%' or keyword like '%"+keyword+"%') order by nomflag desc,sortnum desc" else sql="select prono,title,updatetime,querycount,intro,creadate from product where state='1' and classcode='"+classcode+"' order by nomflag desc,sortnum desc" end if rs.Open sql,cn,1,1 pagesize=20 rs.PageSize=pagesize if pageno="" then pageno=1 else pageno=cint(pageno) if rs.PageCount>0 then rs.AbsolutePage=pageno pagecount=rs.PageCount reccount=rs.RecordCount i=1 do while not rs.EOF and i<=pagesize %> <% i=i+1 rs.MoveNext loop rs.Close %>
·<%=trim(rs("title"))%> [浏览<%=rs("querycount")%>次]
  <%=subss(trim(rs("intro")),120)%>... 发布时间:<%=dateValue(rs("creadate"))%>  更新时间:<%=dateValue(rs("updatetime"))%>
本栏目有<%=reccount%>条留学信息 查看全部留学信息
<%if pagecount>1 then%> <%if pageno>1 then%> 上页  <%else%> 上页  <%end if%> <%for j=1 to pagecount if j=pageno then color2="ff0000" else color2="000000" %> ><%=j%> <%next%>  <%if pageno 下页 <%else%> 下页 <%end if%> <%end if%>
·澳洲留学签证类别介绍?
·什么是学生在线电子签证?
·如何选择学校? ·费用及要求
·选择ABC帮助你留学澳洲步骤?
澳洲投资移民免费在线评估
澳洲技术移民免费在线评估
澳洲留学免费在线评估
<% sql="select keyno,creadate,picflag,title from miscell where basclass='500' and state='1' order by creadate desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=10 %><% i=i+1 rs.MoveNext loop rs.Close %>
澳洲新闻快递
·" target=_blank><%if rs("picflag")="1" then%><%=subss(trim(rs("title")),24)%>(图)<%else%><%=subss(trim(rs("title")),28)%><%end if%>
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='s2' order by sortnum" rs.Open sql,cn,1,1 %> <% if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then if trim(rs("website"))<>"" then %> " target=_blank><%=trim(rs("> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>
<% sql="select keyno,updatetime,title from miscell where classcode='803' and state='1' order by updatetime desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=10 %><% i=i+1 rs.MoveNext loop rs.Close %>
澳洲投资信息
·" target=_blank><%=subss(trim(rs("title")),28)%>
澳洲官方机构
澳大利亚移民局
澳洲移民协会
澳洲社会福利署