showmember.asp

this a program about talent web database used asp and VB.

                <td class="zzz" width="15%" bgColor="#EEEEEE" height="20" align="right">
                联系人：
                </td>
                <td class="zzz" width="45%" bgColor="#EEEEEE" height="15" align="left">
                &nbsp;<%=rsd("cman")%>
                </td>
                <td class="zzz" width="15%" bgColor="#EEEEEE" height="15" align="right">
                电话：
                </td>
                <td class="zzz" width="25%" bgColor="#EEEEEE" height="15" align="left">
                &nbsp;<%=rsd("tel")%>
                </td>
              </tr>
            <tr>
                <td class="zzz" width="15%" bgColor="#EEEEEE" height="20" align="right">
                公司地址：
                </td>
                <td class="zzz" width="45%" bgColor="#EEEEEE" height="15" align="left">
                &nbsp;<%=rsd("address")%>
                </td>
                <td class="zzz" width="15%" bgColor="#EEEEEE" height="15" align="right">
                传真：
                </td>
                <td class="zzz" width="25%" bgColor="#EEEEEE" height="15" align="left">
                &nbsp;<%=rsd("fax")%>
                </td>
              </tr>
              <tr>
                <td class="zzz" width="15%" bgColor="#EEEEEE" height="20" align="right">
                公司网址：
                </td>
                <td class="zzz" width="45%" bgColor="#EEEEEE" height="15" align="left">
                &nbsp;
                <%if rsd("url")="http://" then
                Response.Write "-"
                else
                %>
                <a href="<%=rsd("url")%>"><%=rsd("url")%></a>
                <%end if%>
                </td>
                <td class="zzz" width="15%" bgColor="#EEEEEE" height="15" align="right">
                电子信箱：
                </td>
                <td class="zzz" width="25%" bgColor="#EEEEEE" height="15" align="left">
                &nbsp;
               <%if rsd("email")="-" then
                Response.Write "-"
                else
                %>
                <a href="mailto:<%=rsd("email")%>"><%=rsd("email")%></a>
                <%end if
                rsd.Close
                %>
                </td>
              </tr>
             
</tbody>
            </table>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<br>





<%
strsql="select top 8 hid,district,houseaddress,hall,room,areadis,area,price from tblsecondhouse se join tblmembers mem on se.uid=mem.uid where se.uid=" & sqlstr(uid) & " order by hid desc"
rsd.Open strsql,conn
if not(rsd.EOF and rsd.BOF) then
%>
<table class="box1" cellSpacing="0" cellPadding="2" width="550" border="0">
  <tr>
    <td width="100%"><table class="zzz" cellSpacing="0" cellPadding="0" width="100%" bgColor="#E6F2FF" border="0">
<tbody>
      <tr>
        <td class="zzz" width="70%"><font color="#999999">
        
        <table class="shuang" cellSpacing="0" cellPadding="0" width="550" align="center" background="images/bg4.gif" border="0">
          <tr>
            <td vAlign="top" width="550"><table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
              <tr>
                <td class="zzz" bgcolor="#FEB23F" width="74%" align="center">二 手 房 信 息</td>
              </tr>
              <tr>
                <td class="zzz" width="99%" bgColor="#EEEEEE" height="60" align="left">
            <table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
<%do until rsd.EOF%>
      <tr bgColor="#ffffff">
        <td class="zzz" width="100%" height="17"><a href="showshouse.asp?hid=<%=rsd("hid")%>"><%=showdistrict(rsd("district"))%>  &nbsp; <%=rsd("houseaddress")%> &nbsp;<%=rsd("room")%>室<%=rsd("hall")%>厅   &nbsp;<%=rsd("areadis")%> &nbsp; <%=rsd("area")%>M<sup>2</sup>    &nbsp;<%=formatnumber(rsd("price"),0)%>元/套</a></td>
      </tr>
<%
rsd.MoveNext
if rsd.EOF then
exit do
end if
%>
      <tr>
        <td class="zzz" width="100%" bgColor="#eeeeee" height="17"><a href="showshouse.asp?hid=<%=rsd("hid")%>"><%=showdistrict(rsd("district"))%>  &nbsp; <%=rsd("houseaddress")%> &nbsp;<%=rsd("room")%>室<%=rsd("hall")%>厅   &nbsp;<%=rsd("areadis")%> &nbsp; <%=rsd("area")%>M<sup>2</sup>    &nbsp;<%=formatnumber(rsd("price"),0)%>元/套</a></td>
      </tr>
<%rsd.MoveNext
loop
%>
<tr bgColor="#ffffff">
   <td class="zzz" width="100%" height="17" align="right"><a href="secondhouse.asp?uid=<%=uid%>"><img src="images/more.gif" border="0">更多二手房</a></td>
</tr>
</tbody>
</table>
                </td>
              </tr>
</tbody>
            </table>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<%
rsd.Close
else
rsd.Close
end if
%>


<br>

<%
strsql="select top 8 hid,district,houseaddress,hall,room,areadis,area,price from tbllease se join tblmembers mem on se.uid=mem.uid where se.uid=" & sqlstr(uid) & " order by hid desc"
rsd.Open strsql,conn
if not(rsd.EOF and rsd.BOF) then
%>
<table class="box1" cellSpacing="0" cellPadding="2" width="550" border="0">
  <tr>
    <td width="100%"><table class="zzz" cellSpacing="0" cellPadding="0" width="100%" bgColor="#E6F2FF" border="0">
<tbody>
      <tr>
        <td class="zzz" width="70%"><font color="#999999">
        
        <table class="shuang" cellSpacing="0" cellPadding="0" width="550" align="center" background="images/bg4.gif" border="0">
          <tr>
            <td vAlign="top" width="550"><table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
              <tr>
                <td class="zzz" bgcolor="#FED564" width="74%" align="center">出 租 房 信 息</td>
              </tr>
              <tr>
                <td class="zzz" width="99%" bgColor="#EEEEEE" height="60" align="left">
            <table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
<%do until rsd.EOF%>
      <tr bgColor="#ffffff">
        <td class="zzz" width="100%" height="17"><a href="showlhouse.asp?hid=<%=rsd("hid")%>"><%=showdistrict(rsd("district"))%>  &nbsp; <%=rsd("houseaddress")%> &nbsp;<%=rsd("room")%>室<%=rsd("hall")%>厅   &nbsp;<%=rsd("areadis")%> &nbsp; <%=rsd("area")%>M<sup>2</sup>    &nbsp;<%=formatnumber(rsd("price"),0)%>元/月</a></td>
      </tr>
<%
rsd.MoveNext
if rsd.EOF then
exit do
end if
%>
      <tr>
        <td class="zzz" width="100%" bgColor="#eeeeee" height="17"><a href="showlhouse.asp?hid=<%=rsd("hid")%>"><%=showdistrict(rsd("district"))%>  &nbsp; <%=rsd("houseaddress")%> &nbsp;<%=rsd("room")%>室<%=rsd("hall")%>厅   &nbsp;<%=rsd("areadis")%> &nbsp; <%=rsd("area")%>M<sup>2</sup>    &nbsp;<%=formatnumber(rsd("price"),0)%>元/月</a></td>
      </tr>
<%rsd.MoveNext
loop
%>
<tr bgColor="#ffffff">
   <td class="zzz" width="100%" height="17" align="right"><a href="leasehouse.asp?uid=<%=uid%>"><img src="images/more.gif" border="0">更多出租房</a></td>
</tr>
</tbody>
</table>
                </td>
              </tr>
</tbody>
            </table>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<%
rsd.Close
else
rsd.Close
end if
%>

<%
end if
if errdis<>"" then Response.Write errids
%>










    </td>
  </tr>
</table></td></tr></tbody></table>
<!--#include file="footer.asp"--></body></html>