澳大利亚移民_澳洲移民_投资移民_技术移民_配偶移民_工作签证

<%@ 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") parentcode="101" mymenu="immigration" myurl="immigration.asp?temp=1" %> 澳大利亚移民_澳洲移民_投资移民_技术移民_配偶移民_工作签证_ABC移民

<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='i1' 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>"> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>

澳大利亚移民

<% sql="select classcode,classname from product_class where parentcode='101' 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))%>

专
家
顾
问

最新批出

经典案例

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 prono,title,querycount,updatetime from product where state='1' and classcode like '1%' 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='111' 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)%>

<% sqltext="select classcode,classname from product_class where parentcode='101' and flag='0' order by sortnum " rs.Open sqltext,cn,1,1 do while not rs.EOF %>

<%=trim(rs("classname"))%>

<% sql="select prono,title,querycount,updatetime from product where state='1' and classcode='"+rs(0)+"' order by sortnum desc" rs2.Open sql,cn,1,1 k=1 do while not rs2.EOF and k<=8 %> <% k=k+1 rs2.MoveNext loop rs2.Close %>


·<%=subss(trim(rs2("title")),40)%> [浏览<%=rs2("querycount")%>次]	<%=dateValue(rs2("updatetime"))%>

<% 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 top 1 keyno,picflag,picfile,title,website from sys_ad where code='i2' 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)%>

澳洲官方机构