<%@ 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="house" myurl="house.asp?temp=1" %> 澳洲房产_ABC房产_ABC签证网
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='h1' 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='300' and flag='0' order by sortnum" rs.open sql,cn,1,1 i=1 do while not rs.EOF url="house_list.asp?classcode="+trim(rs("classcode")) if trim(classcode)=trim(rs(0)) then%> <% else %> <%end if i=i+1 rs.MoveNext loop rs.Close %>
<%=trim(rs("classname"))%> <%=trim(rs("classname"))%>
VIP地产客服经理 VIP地产客服经理
多年房地产行业经验,客人评价是专业,耐心,细心,热心...
<% sql="select keyno,updatetime,picflag,title from miscell where classcode='801' and state='1' order by creadate 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 %>
澳大利亚概况             更多
·" target=_blank><%if rs("picflag")="1" then%><%=subss(trim(rs("title")),24)%>(图)<%else%><%=subss(trim(rs("title")),28)%><%end if%>
<% sql="select prono,title,classcode,picflag,price,nomflag from product where state='1' and classcode='101107' and nomflag='2' 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 %>
投资移民签证             更多
·<%if rs("picflag")="1" then%><%=subss(trim(rs("title")),24)%>(图)<%else%><%=subss(trim(rs("title")),28)%><%end if%>
<% sql="select keyno,updatetime,picflag,title from miscell where classcode='305' and state='1' order by creadate 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 %>
悉尼大区介绍             更多
·" target=_blank><%if rs("picflag")="1" then%><%=subss(trim(rs("title")),24)%>(图)<%else%><%=subss(trim(rs("title")),28)%><%end if%>
<% sql="select top 1 * from miscell where basclass='300' and state='1' and nomflag='1' order by sortnum 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='300' and state='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)%>
<% sqltext="select classcode,classname from miscell_class where classcode >= '302' and classcode <= '304' and flag='0' order by sortnum " rs.Open sqltext,cn,1,1 do while not rs.EOF %>
 <%=trim(rs("classname"))%> 更多
<% sql="select keyno,title,querycount,keyword,updatetime from miscell 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<=6 %> <% if k mod 2 = 0 then response.write"" k=k+1 rs2.MoveNext loop rs2.Close %>
<%=subss(trim(rs2("title")),24)%>
类型:<%=rs2("keyword")%>
发布:<%=dateValue(rs2("updatetime"))%> [浏览<%=rs2("querycount")%>次]
<% rs.MoveNext loop rs.Close %>
<% sql="select keyno,updatetime,picflag,title from miscell where classcode='301' 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 %>
ABC物业指南
·" target=_blank><%if rs("picflag")="1" then%><%=subss(trim(rs("title")),24)%>(图)<%else%><%=subss(trim(rs("title")),28)%><%end if%>
<% sql="select keyno,updatetime,picflag,title from miscell where classcode='306' 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,title from forum where classcode='112' and grade=1 order by 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)%>
ABC合作联盟