zzfy.asp

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

        <td class="zzz" width="11%" align="right"><%=rsd("price")%></td>
        <td class="zzz" width="18%">
                <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="16%"><a class="zzz"
          onclick="window.open('showperson.asp?uid=<%=rsd("uid")%>','','width=350,height=400')"
          href="#"><%=rsd("uid")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      loop
      rsd.Close
      %>
      
            <tr>
        <td class="zzz" width="100%" bgColor="#eeeeee" height="15" align="right" colspan="6"><a href="moreuhouse.asp"><img src="images/more.gif" border="0" WIDTH="29" HEIGHT="9">更多自助房源信息</a></td>
      </tr>
</tbody>
    </table>
    </td>
  </tr>
</table>
</td></tr>
</tbody></table>







<br>
      <table height="19" cellSpacing="0" cellPadding="0" width="180" background="images/bg2.gif" border="0">
        <tbody>
        <tr>
          <td width="57" height="12">&nbsp;</td>
          <td width="81" height="12">
            <div class="zzz" align="center">求购、租房源</div></td>
          <td width="42" height="12">&nbsp;</td></tr></tbody></table>
      <table class="box1" cellSpacing="0" cellPadding="2" width="550" bgColor="#999999" background="images/bg3.gif" border="0">
        <tbody>
        <tr><td>


<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>
<%
strsql="select top 10 hid,houseaddress,hall,room,cman,ctel,me.uid,price from tblAhouse le join tblusers me on le.uid=me.uid order by hid desc"
%>
      <tr>
        <td class="zzz" bgColor="#ffcc66" width="7%" align="center"></td>
        <td class="zzz" bgColor="#ffcc66" width="33%" align="center"><p align="center">地址</td>
        <td class="zzz" bgColor="#ffcc66" width="11%" align="center">房型</td>
        <td class="zzz" bgColor="#ffcc66" width="11%" align="center">价格</td>
        <td class="zzz" bgColor="#ffcc66" width="18%" align="center">电话</td>
        <td class="zzz" bgColor="#ffcc66" width="16%" align="center">联系人</td>
      </tr>
      <%
      rsd.Open strsql,conn
      do until rsd.EOF
      %>
      <tr>
        <td class="zzz" width="5%" align="center" bgColor="#eeeeee">求购</td>
        <td class="zzz" width="35%" bgColor="#eeeeee" height="15">
        <a href="#" onClick="window.open('showahouse.asp?hid=<%=rsd("hid")%>','','resizable=1,scrollbars=yes,width=500,height=300');">
        <%=rsd("houseaddress")%></a>
        </td>
        <td class="zzz" width="11%" bgColor="#eeeeee" height="15" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" bgColor="#eeeeee" height="15" align="right"><%=rsd("price")%></td>
        <td class="zzz" width="18%" bgColor="#eeeeee" height="15">
                <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="16%" bgColor="#eeeeee"><a class="zzz"
          onclick="window.open('showperson.asp?uid=<%=rsd("uid")%>','','width=350,height=400')"
          href="#"><%=rsd("cman")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      if rsd.EOF then
      exit do
      end if
      %>
      <tr bgColor="#ffffff">
        <td class="zzz"  width="5%" align="center">求购</td>
        <td class="zzz" width="35%">
        <a href="#" onClick="window.open('showahouse.asp?hid=<%=rsd("hid")%>','','resizable=1,scrollbars=yes,width=500,height=300');"><%=rsd("houseaddress")%></a>
        </td>
        <td class="zzz" width="11%" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" align="right"><%=rsd("price")%></td>
        <td class="zzz" width="18%">
                <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="16%"><a class="zzz"
          onclick="window.open('showperson.asp?uid=<%=rsd("uid")%>','','width=350,height=400')"
          href="#"><%=rsd("cman")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      loop
      rsd.Close
      %>
      
<%
strsql="select top 10 cman,hid,houseaddress,hall,price,room,ctel,me.uid,me.uname from tblALease le join tblusers me on le.uid=me.uid order by hid desc"
%>

      <%
      rsd.Open strsql,conn
      do until rsd.EOF
      %>
      <tr>
        <td class="zzz" width="5%" align="center" bgColor="#eeeeee">求租</td>
        <td class="zzz" width="35%" bgColor="#eeeeee" height="15">
        <a href="#" onClick="window.open('showalease.asp?hid=<%=rsd("hid")%>','','resizable=1,scrollbars=yes,width=500,height=300');">
        <%=rsd("houseaddress")%></a>
        </td>
        <td class="zzz" width="11%" bgColor="#eeeeee" height="15" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" bgColor="#eeeeee" height="15" align="right"><%=rsd("price")%></td>
        <td class="zzz" width="18%" bgColor="#eeeeee" height="15">
                <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="16%" bgColor="#eeeeee"><a class="zzz"
          onclick="window.open('showperson.asp?uid=<%=rsd("uid")%>','','width=350,height=400')"
          href="#"><%=rsd("cman")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      if rsd.EOF then
      exit do
      end if
      %>
      <tr bgColor="#ffffff">
        <td class="zzz"  width="5%" align="center">求租</td>
        <td class="zzz" width="35%">
        <a href="#" onClick="window.open('showalease.asp?hid=<%=rsd("hid")%>','','resizable=1,scrollbars=yes,width=500,height=300');"><%=rsd("houseaddress")%></a>
        </td>
        <td class="zzz" width="11%" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" align="right"><%=rsd("price")%></td>
        <td class="zzz" width="18%">
                <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="16%"><a class="zzz"
          onclick="window.open('showperson.asp?uid=<%=rsd("uid")%>','','width=350,height=400')"
          href="#"><%=rsd("cman")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      loop
      rsd.Close
      %>
      
            <tr>
        <td class="zzz" width="100%" bgColor="#eeeeee" height="15" align="right" colspan="6"><a href="moreahouse.asp"><img src="images/more.gif" border="0" WIDTH="29" HEIGHT="9">更多求购、租房源信息</a></td>
      </tr>
</tbody>
    </table>
    </td>
  </tr>
</table>
</td></tr>
</tbody></table>


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

    
    
    
    </td>
    </tr>



      <tr>
        <td valign="top">
        
        
<table cellSpacing="1" cellPadding="5" width="180" align="center" bgColor="#003399" border="0">
              <tr onmouseover="this.style.backgroundColor='#E6F2FF';" onmouseout="this.style.backgroundColor='#F9F7F2';" bgColor="#f9f7f2">
                <td><a class="zzz" href="addlhouse.asp" target="_blank"><p align="center">出&nbsp;&nbsp;租&nbsp;&nbsp;登&nbsp;&nbsp;记</a></td>
              </tr>
              <tr onmouseover="this.style.backgroundColor='#E6F2FF';" onmouseout="this.style.backgroundColor='#F9F7F2';" bgColor="#f9f7f2">
                <td><a class="zzz" href="addhouse.asp" target="_blank"><p align="center">售&nbsp;&nbsp;房&nbsp;&nbsp;登&nbsp;&nbsp;记</a></td>
              </tr>
              <tr onmouseover="this.style.backgroundColor='#E6F2FF';" onmouseout="this.style.backgroundColor='#F9F7F2';" bgColor="#f9f7f2">
                <td><a class="zzz" href="alease.asp" target="_blank"><p align="center">求&nbsp;&nbsp;租&nbsp;&nbsp;登&nbsp;&nbsp;记</a></td>
              </tr>
              <tr onmouseover="this.style.backgroundColor='#E6F2FF';" onmouseout="this.style.backgroundColor='#F9F7F2';" bgColor="#f9f7f2">
                <td><a class="zzz" href="ahouse.asp" target="_blank"><p align="center">购&nbsp;&nbsp;房&nbsp;&nbsp;登&nbsp;&nbsp;记</a></td>
              </tr>
            </table>

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



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