<!--#include file="inc/config.asp"-->
<!--#include file="inc/sub.asp"-->
<%
id=request.QueryString("id")
if id="" or IsNumeric(id)<>true then
	response.write"请输入正确的ID号！"
	response.end
end if
sql="select * from H_house where id="&id&""
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1 
if rs.eof then
response.Write "系统错误,请联系系统管理员或者开发商http://www.hn22.com/"
response.End()
else
UID=rs("UID")
H_Costs=rs("H_Costs")
H_Address=rs("H_Address")
H_title=rs("H_title")
H_Content=rs("H_Content")
H_Shape=rs("H_Shape")
H_Floor=rs("H_Floor")
H_Area=rs("H_Area")
H_sort_web=rs("H_sort")'防止非法赋值
H_Recommend=rs("H_Recommend")
H_Audit=rs("H_Audit")
H_PIC=rs("H_PIC")
Rdate=rs("Rdate")
if H_PIC="" or isnull(H_PIC) then
H_PIC="err.gif"
end if

sql="select ucuser,UGender,Uname,UAddress,UQQ from H_user  where ID="&UID&""
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1 
if rs.eof then
response.Write "系统错误,请联系系统管理员或者开发商http://www.hn22.com/"
response.End()
else
ucuser=rs("ucuser")
UGender=rs("UGender")
Uname=rs("Uname")
UAddress=rs("UAddress")
UQQ=rs("UQQ")

end if
end if
rs.close
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=H_title%>,<%=W_title%>,网站首页</title>
<meta name="keywords" content="<%=W_keywords%>" />
<meta name="description" content="<%=W_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" /></head>
<body>
<!--#include file="top.asp"-->
<table width="950" height="120" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="760" valign="top"><table width="670" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
        <tr>
          <td height="30" colspan="2" align="center" bgcolor="#F5F5F5"> <%=H_title%></td>
        </tr>
        <tr>
          <td width="88" height="30" bgcolor="#FFFFFF"><span class="uc_huise"><span style="padding-right: 18px;">分</span> 类：</span></td>
          <td width="533" bgcolor="#FFFFFF" class="px10">
            <%call H_house(H_sort_web)%>
         </td>
        </tr>
        <tr>
          <td height="30" bgcolor="#FFFFFF"><span class="uc_huise"><span style="padding-right: 18px;">费</span> 用：</span></td>
          <td bgcolor="#FFFFFF" class="px10"><%=H_Costs%></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#FFFFFF"><span class="uc_huise"><span style="padding-right: 18px;">户</span> 型：</span></td>
          <td bgcolor="#FFFFFF" class="px10"><%call H_Shape_house(H_Shape)%></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#FFFFFF"><span class="uc_huise">所在楼层：</span></td>
          <td bgcolor="#FFFFFF" class="px10"><%=H_Floor%> 楼</td>
        </tr>
        <tr>
          <td height="30" bgcolor="#FFFFFF"><span class="uc_huise"><span style="padding-right: 18px;">面</span> 积：</span></td>
          <td bgcolor="#FFFFFF" class="px10"><%=H_Area%> M2</td>
        </tr>
        <tr>
          <td height="30" bgcolor="#FFFFFF"><span class="uc_huise">地理位置：</span></td>
          <td bgcolor="#FFFFFF" class="px10"><%=H_Address%></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#FFFFFF"><span class="uc_huise">详细信息：</span></td>
          <td bgcolor="#FFFFFF" class="px10"><%=H_Content%></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#FFFFFF"><span class="uc_huise">相关图片</span>:</td>
          <td bgcolor="#FFFFFF" class="px10"><img src="UpLoadUC/<%=H_PIC%>" onload='javascript:if(this.width>500){this.width=500}'  /></td>
        </tr>
        <tr>
          <td colspan="2" bgcolor="#FFFFFF" class="px10"> 说明：<br />
         1、您在本网上所查询到信息的真实性和准确性均由信息发布者负责，请自行甄别！ 
            <br />
            2、若发现虚假信息，请及时与我们联系，我们将对其删除，并取消其发布信息的权利！
            <br />
            3、本网站目前仅提供房源信息删除功能，暂不提供修改功能，特此说明，请谅解！
            <br />
          4、欢迎广大用户对本栏目功能及其他方面提出宝贵意见，一旦采用将给予奖励！</td>
        </tr>
      </table>
      <table width="600" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <table width="670" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
        <tr>
          <td height="30" align="center" bgcolor="#F5F5F5">发 布 人：</td>
          <td height="30" align="center" bgcolor="#F5F5F5"><span class="hei">地址信息</span></td>
          <td height="30" align="center" bgcolor="#F5F5F5"><span class="hei">QQ号码</span></td>
          <td height="30" align="center" bgcolor="#F5F5F5"><span class="hei">个人空间</span></td>
          <td width="100" height="30" align="center" bgcolor="#F5F5F5">操作</td>
        </tr>
        <tr>
          <td width="97" height="50" bgcolor="#FFFFFF"><%=Uname%> - <%if UGender=1 then response.Write "男" else response.Write "女" end if%></td>
          <td width="267" bgcolor="#FFFFFF" class="px10"><%=UAddress%></td>
          <td width="100" align="center" bgcolor="#FFFFFF"><%=UQQ%></td>
          <td width="100" align="center" bgcolor="#FFFFFF"><%
	set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from H_Domain where H_UI=1 and UID="&UID&""
	rs.open sql,conn,1,1
	if rs.eof then
	%>
  没有开通
  <%
  else
  %>
   <%if W_DNSkey<>1 then%>
	<A href="../thread/<%=rs("H_thread")%>/index.asp?Uid=<%=UID%>" target="_blank">立即查看</A>
	<%else%>
<A href="http://<%=rs("U_URL")%>.<%=W_DNS%>" target="_blank">立即查看</A>
	<%end if%>
	<%end if%></td>
          <td width="100" bgcolor="#FFFFFF" class="bai"><a href="user/MU.asp?HMuser=<%=ucuser%>&HMtxt=<%=H_title%>" target="_blank"><img src="images/xunwen.gif" width="58" height="20" /></a> <a href="user/FU.asp?FMuser=<%=ucuser%>&Fchar=<%=Uname%>" target="_blank"><img src="images/jiahaoyou.gif" width="58" height="20" /></a></td>
        </tr>
    </table></td>
    <td width="670" valign="top"><table width="268" height="0" border="0" cellpadding="0" cellspacing="1" bgcolor="#F3DBAB">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" height="33" border="0" cellpadding="0" cellspacing="0" background="images/table_bg.jpg">
            <tr>
              <td class="lv">推荐信息</td>
            </tr>
          </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td height="300" align="left" valign="top"><%
			sql="select top 11 id,H_title,H_Costs,H_sort from H_house order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有楼盘</div>"
						else
						do while not rs.eof  
						%>
			  
			  <table width="260" height="20" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="58">[
                    <a href="house_list.asp?id=<%=rs("H_sort")%>" target="_blank"><%call H_house(rs("H_sort"))%></a>
                    ]</td>
                  <td><a href="house_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),10)%> / <%=left(rs("H_Costs"),10)%></a></td>
                </tr>
              </table>
			  	<%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
              </tr>
          </table></td>
      </tr>
    </table>
	  <table width="200" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
	  <table width="268" height="100" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
        <tr>
          <td height="24" align="center" bgcolor="#F5F5F5"><strong>租赁常识</strong></td>
        </tr>
        <tr>
          <td height="93" valign="top" bgcolor="#FFFFFF"><%
			sql="select top 11 ID,H_title,H_sort  from H_sort order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有分类</div>"
						else
						do while not rs.eof  
						%>
                    <table width="210" height="20" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td align="left">·<a href="Sort_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),16)%></a></td>
                      </tr>
            </table>
          <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>
