<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") classcode=Request.QueryString("classcode") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="news" myurl="news.asp?temp=1" %> 澳洲新闻_澳大利亚新闻_出国新闻_悉尼新闻_财经新闻_澳洲华人_ABC资讯_ABC签证网
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='n1' 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 * from miscell_class where basclass='500' and flag='0' order by sortnum" rs.open sql,cn,1,1 i=1 do while not rs.EOF url="news_AuABC.asp?classcode="+trim(rs("classcode")) %> <% i=i+1 rs.MoveNext loop rs.Close %>
<%=trim(rs("classname"))%>
  澳洲移民热点
<% 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 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 top 1 * from miscell where basclass='500' and state='1' and nomflag='1' order by creadate desc" rs.Open sql,cn,1,1 %>
推荐头条:" target=_blank><%=subss(trim(rs("title")),30)%> " target=_blank>
    <%=subss(trim(rs("content")),228)%>... " target=_blank>[查看全文]
<% rs.Close %>
<% sql="select keyno,creadate,picflag,newsform,title from miscell where basclass='500' 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<=8 %> <% if i mod 2 = 0 then response.write"" i=i+1 rs.MoveNext loop rs.Close %>
·" target=_blank><%=subss(trim(rs("title")),30)%>
社会 & 财经

<% sql="select keyno,updatetime,creadate,newsform,title from miscell where classcode >='501' and classcode <='502' 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><%=subss(trim(rs("title")),40)%> <%=rs("newsform")%>
 
娱乐 & 体育

<% sql="select keyno,updatetime,creadate,newsform,title from miscell where classcode >='503' and classcode <='504' 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><%=subss(trim(rs("title")),40)%> <%=rs("newsform")%>
 
出国 & 华人

<% sql="select keyno,updatetime,creadate,newsform,title from miscell where classcode >='505' and classcode <='506' 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><%=subss(trim(rs("title")),40)%> <%=rs("newsform")%>
 
时政 & 国际

<% sql="select keyno,updatetime,creadate,newsform,title from miscell where classcode >='507' and classcode <='508' 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><%=subss(trim(rs("title")),40)%> <%=rs("newsform")%>
 
科技 & 文化

<% sql="select keyno,updatetime,creadate,newsform,title from miscell where classcode >='509' and classcode <='510' 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><%=subss(trim(rs("title")),40)%> <%=rs("newsform")%>
<% sql="select keyno,querycount,creadate,picflag,title from miscell where creadate>='"+DateTime.Now.AddDays(-7)+"' and state='1' and basclass='500' 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%> " target=_blank><%=subss(trim(rs("title")),26)%>
热点讨论
<% 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")),24)%>
澳洲商机
<% 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<=8 %> <% i=i+1 rs.MoveNext loop rs.Close %>
" class="a01" target=_blank><%=subss(trim(rs("title")),40)%>
<% sql="select keyno,picflag,picfile,title,website from sys_ad where code='n2' order by sortnum" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=5 %> <% i=i+1 rs.MoveNext loop rs.close %>
<% 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%>