<%@ Language=VBScript CODEPAGE="936"%> <% Response.Buffer=true Response.Expires=0 %> <% set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="default" keyno1=0 keyno2=0 sql="select keyno,sortnum,state from miscell where classcode='999' and sortnum=0 and state='1' order by keyno" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=2 if i=1 then keyno1=rs(0) else keyno2=rs(0) end if i=i+1 rs.MoveNext loop rs.Close if keyno1>0 then %> <% end if %> 澳大利亚|澳大利亚移民|澳洲移民-移民_留学-澳大利亚|澳洲 _澳大利亚ABC环球集团
最新批出 经典案例
<% sql="select keyno,classcode,picflag,title from miscell where basclass='600' 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<=8 %> <% i=i+1 rs.MoveNext loop rs.Close %>
·" class="a01" target=_blank><%select case rs("classcode") case "601" Response.Write ("[商业移民案例]") case "602" Response.Write ("[技术移民案例]") case "603" Response.Write ("[学生留学案例]") case "604" Response.Write ("[工作签证案例]") case "605" Response.Write ("[上诉经典案例]") case "607" Response.Write ("[配偶移民案例]") case "608" Response.Write ("[其它类别案例]") end select%> <%if rs("picflag")="1" then%><%=subss(trim(rs("title")),38)%>(图)<%else%><%=subss(trim(rs("title")),42)%><%end if%>
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='02' 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 %>
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<=10 %><% i=i+1 rs.MoveNext loop rs.Close %>
·<%=subss(trim(rs("title")),28)%>
·公司简介 ·总裁致辞
·认可证书 ·客户口碑
·付款方式 ·骄人记录
·历史镜头 ·服务优势
澳洲移民推荐
<% sqltext="select classcode,classname from product_class where parentcode='101' and flag='0' order by sortnum " rs.Open sqltext,cn,1,1 i=1 do while not rs.EOF and i<=4 %>
<%=trim(rs("classname"))%> <% sql="select prono,title,classcode,price,nomflag from product where nomflag='2' and state='1' and classcode='"+rs(0)+"' order by updatetime desc" rs2.Open sql,cn,1,1 k=1 do while not rs2.EOF and k<=10 %> <% if k mod 2 = 0 then response.write"" k=k+1 rs2.MoveNext loop rs2.Close %>
·<%=subss(trim(rs2("title")),28)%>
<%=trim(rs("classname"))%>
<%=trim(rs("classname"))%>
<% i=i+1 rs.MoveNext loop rs.Close %>
<% 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 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)%>
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='03' 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 top 1 keyno,picflag,picfile,title,website from sys_ad where code='05' 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 keyno,creadate,picflag,title from miscell where basclass='700' and state='1' and nomflag='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='07' 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 top 10 * from plane order by flag desc,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 %>
澳洲特价机票             更多
·#aa" target=_blank><%=trim(rs("title"))%> - <%=trim(rs("title2"))%> <%if rs("price2")>0 then Response.Write(rs("price2")&"元") end if%>
  澳洲论坛热点
<% sql="select keyno,title from forum where grade=1 and flag='1' order by keyno 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 top 1 keyno,picflag,picfile,title,website from sys_ad where code='06' 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 %>
<% sqltext="select classcode,classname from product_class where parentcode='201' and flag='0' order by sortnum " rs.Open sqltext,cn,1,1 do while not rs.EOF %>
<%=trim(rs("classname"))%> <% sql="select prono,title,classcode,price,nomflag from product where nomflag='2' and state='1' and classcode='"+rs(0)+"' order by updatetime desc" rs2.Open sql,cn,1,1 k=1 do while not rs2.EOF and k<=6 %> <% if k mod 2 = 0 then response.write"" k=k+1 rs2.MoveNext loop rs2.Close %>
·<%=subss(trim(rs2("title")),28)%>
<%=trim(rs("classname"))%>
<%=trim(rs("classname"))%>
<% rs.MoveNext loop rs.Close %>
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='08' 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 prono,title,intro,picflag,picflag3 from scene where state='1' and classcode='101102' order by nomflag desc,updatetime desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=6%> <% if i mod 3 = 0 then response.write"" i=i+1 rs.MoveNext loop rs.Close %>
<% if rs("picflag3")="1" then %> <%elseif rs("picflag")="1" then%> <%end if%>
<%=subss(trim(rs("title")),18)%>
<% sql="select prono,title,intro,picflag from scene where classcode='101103' 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 %>
澳洲旅游线路
·<%if rs("picflag")="1" then%><%=subss(trim(rs("title")),26)%>(图)<%else%><%=subss(trim(rs("title")),28)%><%end if%>
ABC友情链接
正在调用ALEXA全球排名。。。
<% sql="select keyno,title,website from miscell where basclass='900' and state='1' and nomflag='1' order by sortnum" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=10%> <% if i mod 2 = 0 then response.write"" i=i+1 rs.MoveNext loop rs.Close %>
<%if trim(rs(2))<>"" then%> <%end if%> <%=trim(rs(1))%>