<%=title%>

<% dim strSql,rs strSql="select top 10 * from [index_top1] order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 %>


<%do while not rs.eof%> ·" target="_blank" class="menu">><%=rs("title")%> <% rs.movenext if not rs.eof then response.write " " end if loop%>

<% if session("login") <> "ok" or Session("user")<>"user" then %> <% else %> <% end if %>

会员账号:

密　　码:

您好，<%=session("user_name")%>！欢迎您来到本站，您已登陆成功！！

>>>进入会员控制面板

国际海景城

海上明珠

　　国际海景城以"生态、自然、环保、滨海"为原则，旨在营造国际品质的精品物业，国际团队，强强联手，共创国际海滨新城区。 ...

海上明珠是由威海长青房地产开发有限公司投资兴建的高级生态住宅小区，项目位于威海经济技术开发区海上公园南侧...

·出租登记	·求租登记
·出售登记	·求购登记

分类:

中介:

区域:

房型:

性质:

　出租

<% strSql="select top 6 * from [house_hack] where pass='是' order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 %> <%do while not rs.eof%> " target="_blank" > <% rs.movenext loop%>

[<%=left(rs("house_name"),6)%>] <%=rs("hx")%> <%=rs("pay")%>(元/月) <%=replace(rs("date"),right(rs("date"),8),"")%>

更多信息>>>

　求租

<% strSql="select top 6 * from [house_hire] where pass='是' order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 %> <%do while not rs.eof%> " target="_blank" > <% rs.movenext loop%>

[<%=rs("qy")%>] <%=rs("hx")%> <%=rs("min_pay")%>~<%=rs("max_pay")%>(元/月) <%=replace(rs("date"),right(rs("date"),8),"")%>

更多信息>>>

　出售

<% strSql="select top 6 * from [house_sell] where pass='是' order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 do while not rs.eof%> " target="_blank" > <% rs.movenext loop%>

[<%=left(rs("house_name"),6)%>] <%=rs("hx")%> <%=rs("pay")%>(万) <%=replace(rs("date"),right(rs("date"),8),"")%>

更多信息>>>

　求购

<% strSql="select top 6 * from [house_buy] where pass='是' order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 %> <%do while not rs.eof%> " target="_blank" > <% rs.movenext loop%>

[<%=rs("qy")%>] <%=rs("hx")%> <%=rs("min_pay")%>~<%=rs("max_pay")%>(万) <%=replace(rs("date"),right(rs("date"),8),"")%>

更多信息>>>

<% strSql="select top 10 * from [house_new] order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 %>

<%do while not rs.eof%> ·" target="_blank" class="menu">><%=left(rs("house_name"),6)%> <%=rs("jun_pay")%>元/㎡ <% rs.movenext if not rs.eof then response.write "
" end if loop%>

<% strSql="select top 9 * from [paper] where type='7' order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 %>

<%do while not rs.eof%> ·&type=7" target="_blank" class="menu">><%=left(rs("title"),11)%> <% rs.movenext if not rs.eof then response.write "
" end if loop%>

<%connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" connstr = connstr & Server.MapPath("system/mdb/system.asp") 'response.write connstr set conn=Server.CreateObject("AdoDb.Connection") conn.Open connstr%>

<%=company(1)%>

	房产中介推荐

<%=company(2)%>

	房地产开发公司推荐

<%=company(3)%>

	装簧公司推荐

<%=company(4)%>

	搬家公司推荐

<%=company(5)%>

	评估公司推荐

<%=company(6)%>

	物业公司推荐

<% connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" connstr = connstr & Server.MapPath("system/mdb/view.asp") 'response.write connstr set conn=Server.CreateObject("AdoDb.Connection") conn.Open connstr%>

<% strSql="select top 8 * from [paper] where type='8' order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 %>

<%do while not rs.eof%> ·&type=8" target="_blank" class="menu">><%=left(rs("title"),11)%> <% rs.movenext if not rs.eof then response.write "
" end if loop%>

购房计算器

·
·
·
·
·
·

<%=paper("购房指南","1","1")%>

<%=paper("租房指南","2","2")%>

<%=paper("政策法规","6","3")%>

<%=paper("银行贷款","5","4")%>

<%=paper("家居装饰","4","5")%>

<%=paper("土地评估","3","6")%>