<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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" />
<!--#include file="conn1.asp"-->
    <%set rs=server.CreateObject("adodb.recordset")
	
rs.open "select * from member where id="&request.QueryString("id")&" order by id desc ",conn,1,1%>
<%jjman=rs("truename")
username=rs("username")

%>		  
		  
<title>经济人<%=jjman%>的店铺-泰华地产</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.line6 {
	border-right-width: 1px;
	border-bottom-width: 1px;
	border-left-width: 1px;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-right-color: #74B646;
	border-bottom-color: #74B646;
	border-left-color: #74B646;
}

a.cd1 {
	color:#000000; font-size:13px; text-decoration:none;
	
	
}
 a.cd1:link {
	color:#000000; font-size:13px; text-decoration:none;
	
}
 a.cd1:visited {
	color:#000000; font-size:13px; text-decoration:none;
	
}
a.cd1:hover {
color:#0041D9; font-size:13px; text-decoration:underline;
	
}


a.cd4 {
	color:#0041D9; font-size:12px; text-decoration:none;
	
}
 a.cd4:link {
	color:#0041D9; font-size:12px; text-decoration:none;
	
}
 a.cd4:visited {
	color:#0041D9; font-size:12px; text-decoration:none;
	
}
a.cd4:hover {
color:#FF6600; font-size:12px; text-decoration:underline;
	
}


.STYLE1 {
	font-size: 13px;
	font-weight: bold;
	color:#FFFFFF;
}



-->
</style>
<script type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>

<body>
<table width="960" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#D5EEC6">
  <tr>
    <td>
<table width="960" height="60" border="0" cellpadding="0" cellspacing="0" background="images/hc048.jpg" align="center">
  <tr>
    <td align="left"   valign="top" style="padding-top:5px;"><table width="960" height="40" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="130"  align="center" valign="top"><a href="index.asp"><img src="images/logo.gif" width="110" height="40" border="0" /></a></td>
		
		<td width="130" align="center" valign="middle" style="font-size:13px;"><a href="index.asp" class="cd1">首页</a> <a href="ershoufang.asp" class="cd1">二手房</a> <a href="zufang.asp" class="cd1">租房</a></td>
        <td width="700"   align="center" style="font-size:13px;">  <form id="form1" name="form1" method="post" action="checklogin.asp">
		用户名：<input name="username" type="text" id="username"  style="width:130px;height:16px;"/>&nbsp;密码：
		<input name="password" type="password" id="password"  style="width:130px; height:16px;"/>&nbsp;验证码：
		<input name="verifycode" type="text" id="verifycode"  style="width:40px;height:16px;"  maxlength="4"/>
		<img src="VerifyCode.asp" alt="点击刷新验证码" style="cursor:pointer;border:0;vertical-align:middle;"  onClick="src='VerifyCode.asp?s='+Math.random()"/>&nbsp;
        <label>
        <input type="submit" name="Submit" value="登&nbsp;陆" />
        </label>
        </form></td>
      </tr>
    </table>
    
    </td>
  </tr>
</table>



<table width="960" border="0" cellspacing="0"  style="margin-top:5px;" cellpadding="0" align="center" height="83" background="images/88_1.jpg">
  <tr>
    <td align="center" valign="middle"><table width="785" height="35" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
      <tr>
        <td align="center" valign="middle" style="color:#666666; font-size:14px; font-weight:bold;"><%=jjman%>  【置业顾问】</td>
      </tr>
    </table></td>
  </tr>
</table>








<table width="960" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td  bgcolor="#74B646" align="left" valign="middle" style="padding-left:100px;"> <a href="jjren.asp?id=<%=request.QueryString("id")%>" class="cd1">首 页</a>  <a href="Rentalfan.asp?id=<%=request.QueryString("id")%>" class="cd1">二手房</a>  <a href="Rentalfan.asp?id=<%=request.QueryString("id")%>" class="cd1" >租 房</a> </td>
  </tr>
</table>




<table width="960" border="0" cellspacing="0" cellpadding="0"  align="center" style="padding-top:10px;">
  <tr>
    <td width="630" align="left"  valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

	  
	  

	  
	  <tr>
	    <td height="25" align="left" valign="middle" bgcolor="#74B646"  >&nbsp;&nbsp;<span class="STYLE1">我的租房信息 </span></td>
	  </tr>
	  
	  <tr>
	    <td align="left" valign="top"><table width="100%" height="60" border="0" cellpadding="0" cellspacing="1" class="line6">
          <%'开始分页
				Const MaxPerPage=10 
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(request("page")) then
      				currentPage=Cint(request("page"))
   				else
      				currentPage=1
   				end if 
		 set rs=server.createobject("adodb.recordset")
	rs.open "select * from fwcz where fabuzhe='"&username&"' order by id desc",conn,1,1
		  
				if err.number<>0 then
				response.write "数据库中无数据"
				end if
				
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center' class='contents'> 您还没有添加记录！</p>"
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"Rentalfan.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"Rentalfan.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"Rentalfan.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0

			%>
          <%do while not rs.eof%>
          <tr style="font-size:12px;">
		      <td width="11%" align="left" class="td_content" style="padding-left:8px;"><%if rs("tupian")="" then
	  
	  aa="images/n_15735160532753.jpg"
	  else
	  aa=rs("tupian")
	  
	  end if
	  %>
                <img src="<%=aa%>" width="50" height="35" /> </td>
            <td width="55%" height="40" align="left" class="td_content" ><a class="cd4" href="viewzufang.asp?id=<%=rs("id")%>"><%=trim(rs("fybt"))%></a>&nbsp;<span style="color:#585858;"><%=rs("localArea")%></span>-<span style="color:#585858;"><%=rs("xxdz")%></span>
                    </td>
        
            <td width="6%" class="td_content"><div align="center"><span style="color:#666666; font-family:Arial, Helvetica, sans-serif;"><%=trim(rs("zujin"))%></span></div></td>
            <td width="16%" class="td_content" ><div align="center"><span style="color:#666666; font-family:Arial, Helvetica, sans-serif;"><%=rs("jushi")%>室<%=rs("ting")%>厅<%=rs("hxwei")%>卫</span></div></td>
            <td width="12%" class="td_content"><div align="center"><span style="color:#666666; font-family:Arial, Helvetica, sans-serif;"><%=year(rs("adddate"))%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%></span></div></td>
          </tr>
          <%i=i+1
			if i>=MaxPerPage then Exit Do
			rs.movenext
		  loop
		  rs.close
		  set rs=nothing%>
          <tr>
            <td colspan="5" align="center" valign="middle" style="font-size:12px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="65%"><%  
	End Sub     
	Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If
				

				Response.Write "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首页 上一页</font> "  
				Else  
					Response.Write "<a href="&filename&"?page=1&id="&request.QueryString("id")&" class='contents'>首页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&id="&request.QueryString("id")&" class='contents'>上一页</a> "  
				End If
				
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 尾页</font>"  
				Else  
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&id="&request.QueryString("id")&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&id="&request.QueryString("id")&" class='contents'>尾页</a>"  
				End If  
					Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共有"&totalnumber&"条记录" 
%></td>
                  <td width="35%"><form name="form2">
                      <select name="page" onchange="MM_jumpMenu('this',this,0)" style="border:1px solid #8293E6; font-size: 9pt;width=62px;height=16px; color:#FFFFFF; background-color:#74B646">
                        <option value="#">请选择</option>
                        <%for i=1 to n%>
                        <option <%if int(request.QueryString("page"))=int(i) then%> selected <%end if%> value="Rentalfan.asp?id=<%=request.QueryString("id")%>&page=<%=i%>"> 第<%=i%>页</option>
                        <%next%>
                      </select>
                  </form></td>
                </tr>
              </table>
                <%End Function  %>            </td>
          </tr>
        </table></td>
	  </tr>
	 	  <tr><td  height="10"></td></tr>
	  

	  
	  <tr><td align="left" valign="top">&nbsp;</td></tr> 
	  
    </table></td>
    <td width="330" align="right" valign="top">
	
	
	<table width="320" height="200" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="25" align="left" valign="middle" bgcolor="#74B646">&nbsp;&nbsp;<span class="STYLE1">个人介绍</span> </td>
      </tr>
      <tr>
        <td height="160" align="center" valign="top"><table width="98%" height="160" border="0" cellpadding="0" cellspacing="1" class="line6">
          <tr>
		  
		  
		  
		     
            <td  align="center"   valign="top"  width="100%">
			
			<table width="316" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="125" align="center" valign="top" style="padding:5px;">	
	
	    <%set rs=server.CreateObject("adodb.recordset")
	
rs.open "select * from member where id="&request.QueryString("id")&" order by id desc ",conn,1,1%>
	  <%if rs("touxiang")<>"" then%>
				  
			   <%tupian=rs("touxiang")%>
			
				  <%else%>
				  	  <%tupian="images/touxiang.jpg"%>
				 
				  <%end if%>
				  
				  <img src="<%=tupian%>" width="125" height="145" /></td>
    <td width="210" align="center" valign="middle"><table width="100%" height="145" border="0" cellpadding="0" cellspacing="0" style="font-size:12px;">
      <tr>
        <td  align="left" valign="middle" height="30" style="color:#666666;">&nbsp;&nbsp;<%=rs("truename")%>&nbsp;&nbsp;置业顾问 </td>
      </tr>
    <tr>
        <td  align="left" valign="middle" height="30" style="color:#666666;">&nbsp;&nbsp;区域: [ 蒸湘区 ] </td>
      </tr>
    <tr>
        <td  align="left" valign="middle" height="30" style="color:#666666;">&nbsp;&nbsp;手机:<font color="#0041D9"><%=rs("shouji")%></font></td>
      </tr>
	  
	       <tr>
        <td  align="left" valign="middle" height="30" style="color:#666666;">&nbsp;&nbsp;Q&nbsp;&nbsp;Q:<%=rs("qicq")%></td>
      </tr>
	  
	  <%		 set rs2=server.createobject("adodb.recordset")
	rs2.open "select * from twohouse where fabuzhe='"&rs("username")&"' order by id desc",conn,1,1%>
	  
	     <tr>
        <td  align="left" valign="middle" height="30" style="color:#666666;">&nbsp;&nbsp;有<font color="#0041D9" style="font-family:Arial, Helvetica, sans-serif;"><%=rs2.RecordCount%></font>套房源出售中</td>
      </tr>
	  
	  
	 
	  

    </table></td>
  </tr>
  

			
			
			
			
			
			




  
  
  
</table>
		
		
		
		
		
		
		</td>
			
		
	
		  
			
			
			     
          </tr>
        </table></td>
      </tr>
	  
	      <tr>
        <td height="25" align="left" valign="middle" bgcolor="#74B646">&nbsp;&nbsp;<span class="STYLE1">房源信息</span> </td>
      </tr>
      <tr>
        <td height="175" align="center" valign="top"><table width="100%"  border="0" cellpadding="0" cellspacing="1" class="line6">
 
		        <%
                  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 15 * from twohouse where fabuzhe='"&username&"'  order by id desc",conn,1,1
		   %>
		   
		    <%do while not rs.eof%>
	  
          <tr>
		  <td width="55%" height="40" class="td_content" valign="middle"><table width="100%" height="40" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td align="left" height="20"  valign="middle" style="padding-left:2px;"><a class="cd4" href="viewhouse.asp?id=<%=rs("id")%>">
		  
		  <%if len(rs("fybt"))>25 then 
response.write left(rs("fybt"),24)&".."
else response.write rs("fybt")
end if %> 
		  
		  <%'=trim(rs("fybt"))%>
		  
		  </a></td>
        </tr>
        
        <tr>
          <td align="left" valign="middle" height="20" style="font-size:12px;">&nbsp;<span style="color:#666666; font-family:Arial, Helvetica, sans-serif;"><%=rs("jushi")%>室<%=rs("ting")%>厅<%=rs("hxwei")%>卫&nbsp;&nbsp;<%=rs("area")%>平方&nbsp;&nbsp;<%=rs("Floor")%>/<%=rs("zonglc")%>&nbsp;&nbsp;<%=rs("FitType")%>&nbsp;&nbsp;<%=rs("sale")%>万
</span></td>
        </tr>
      </table></td>
      </tr>
		 
			     <%rs.movenext
		  loop
		  rs.close
		  set rs=nothing%>
        </table></td>
      </tr> 
    </table>
	</td>
  </tr>
</table>
</td>
  </tr>
</table>
</body>
</html>
