<%@ 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") basclass="300" mymenu="house_list" myurl="house_list.asp?temp=1" if classcode<>"" then sql="select * from miscell_class where classcode='"+classcode+"'" else sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" end if rs.Open sql,cn,1,1 if not rs.EOF then classname=trim(rs("classname")) end if rs.Close %> 澳洲<%=classname%>_澳洲房产_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 %>
<% 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 classcode=trim(rs("classcode")) then classname=trim(rs("classname"))%> <% else %> <%end if i=i+1 rs.MoveNext loop rs.Close %>
<%=trim(rs("classname"))%> <%=trim(rs("classname"))%>
VIP地产客服经理 VIP地产客服经理
<% sql="select keyno,classcode,title,updatetime,website,creadate from miscell where classcode='"+classcode+"' and state='1' order by creadate desc" rs.Open sql,cn,1,1 i=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 do while not rs.EOF and i<=pagesize %> <% i=i+1 rs.MoveNext loop rs.Close %>
·<%=trim(rs("title"))%>  <%=rs("creadate")%>
共有 <%=reccount%> 条新闻     <%if pagecount>1 then%> 分页: <%if pageno>1 then%> <<上页  <%end if%> <%for j=1 to pagecount if j=pageno then color2="ff0000" else color2="000000" %> ><%=j%> <%next%>  页  <%if pageno 下页>> <%end if%> <%end if%>
<% sqltext="select keyno,updatetime,picflag,title from miscell where classcode='301' and state='1' order by creadate desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=10 %> <% i=i+1 rs2.MoveNext loop rs2.Close %>
·" target=_blank><%if rs2("picflag")="1" then%><%=subss(trim(rs2("title")),24)%>(图)<%else%><%=subss(trim(rs2("title")),28)%><%end if%>
外汇牌价 词典 天气查询 澳洲概况
<% sqltext="select * from miscell where classcode >= '302' and classcode <= '309' and state='1' order by querycount desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=10%> <% if i mod 2 = 0 then response.write"" i=i+1 rs2.MoveNext loop rs2.Close %>
<% if rs2("picflag")="1" then %> <%end if%>