index.asp

我同学的毕业设计源代码

						sql="select top 8 * from news where type<>'新闻动态' and type<>'公告' order by id DESC"
                        rs.open sql,conn,1,1
						if rs.eof and rs.bof then
						Response.Write"<br>暂无信息"
						end if
					%>
                    <%do while not rs.eof%>
                    <tr> 
                      <td background="images/lib.gif"><p><img src="images/arrow5.gif" width="9" height="9"><font color="#000000">[</font><font color="#CC0033"><%=rs("type")%><font color="#000000">]</font></font> 
                          <%if len(rs("name"))>20 then%>
                          <a href="newsshow.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("name"),20)%>...</a> 
                          <%else%>
                          <a href="newsshow.asp?id=<%=rs("id")%>" target="_blank"> 
                          <%=rs("name")%></a> 
                          <%end if%>
                        </p></td>
                    </tr>
                    <% rs.movenext
											loop
											rs.close
											set rs=nothing
		                                     %>
                  </table></marquee></td>
              </tr>
              <tr> 
                <td height="25" colspan="2" align="right"><a href="baodianlist.asp">更多&gt;&gt;</a>&nbsp;</td>
              </tr>
            </table></td>
        </tr>
      </table>
	  <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="0"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr bgcolor="#ffb600"> 
                <td width="7%"><img src="images/20080320134845251.gif" width="32" height="19"></td>
                <td width="30%"><table width="98%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td><font color="#FFFFFF">最新出租信息</font></td>
                    </tr>
                  </table></td>
                <td width="63%" bgcolor="#ffb600">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td>&nbsp;</td>
                      <td>&nbsp;</td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#ffb600"> 
                <td colspan="3"><img src="images/5x5.gif" width="5" height="5"></td>
              </tr>
              <tr> 
                <td colspan="3" align="center" valign="top"><table border="0" cellpadding="2" cellspacing="2" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" id="AutoNumber5" align="center" width="96%">
                    <tr bgcolor="#f7f7f7"> 
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">所属区域</span></div></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size: 9pt">地　点</span></div></td>
					  <td width="15%" style="border-style: none; border-width: medium"> 
                        房屋类型</td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        户型</td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">租　金</span></div></td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">登记日期</span></div></td>
                    </tr>
                    <%sql="select top 5 * from rent order by zid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有房源"
else
do while not rs.eof
%>
                    <tr class="9size" bgcolor="#f7f7f7"> 
                      <td style="border-style: none; border-width: medium"><%=(rs.Fields.Item("Diduan").Value)%></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><a href="show.asp?typeto=rent&<%= "zid=" & rs.Fields.Item("zid").Value %>" target="_blank" onClick="return newpage(this.href);"><font color="#FF6600"> 
                          <%if len(rs("Xiaoqm"))>15 then %>
                          <%=left(rs("Xiaoqm"),15)%>... 
                          <%else%>
                          <%=rs("Xiaoqm")%> 
                          <%end if %>
                          </font></a></span></div></td>
						  <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><%=(rs.Fields.Item("Fangx").Value)%></span></div></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><%=(rs.Fields.Item("Taox").Value)%></span></div></td>
                      <td style="border-style: none; border-width: medium"><%=(rs.Fields.Item("Jiag").Value)%><%=(rs.Fields.Item("fangshi").Value)%></td>
                      <td style="border-style: none; border-width: medium"><a href="show.asp?typeto=rent&<%= "zid=" & rs.Fields.Item("zid").Value %>" target="_blank" onClick="return newpage(this.href);"></a><span style="font-size:9pt"><%=(rs.Fields.Item("dat").Value)%></span></td>
                    </tr>
                    <%
rs.movenext
loop
end if
rs.close
%>
                  </table></td>
              </tr>
              <tr> 
                <td height="20" colspan="2"> &nbsp;&nbsp;[<a href="user_index.asp">我要发布</a>]&nbsp; 
                </td>
                <td align="right"> <img src="images/fang.gif" width="12" height="12">&nbsp;<a href="houselist.asp?type=rent">更多出租房信息</a></td>
              </tr>
            </table></td>
        </tr>
      </table>
	  <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="0"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr bgcolor="#ffb600"> 
                <td width="7%"><img src="images/20080320134845251.gif" width="32" height="19"></td>
                <td width="31%"><table width="98%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td><font color="#FFFFFF">最新出售信息</font></td>
                    </tr>
                  </table></td>
                <td width="62%">&nbsp;</td>
              </tr>
              <tr bgcolor="#ffb600"> 
                <td colspan="3"><img src="images/5x5.gif" width="5" height="5"></td>
              </tr>
              <tr> 
                <td colspan="3" align="center" valign="top"><table border="0" cellpadding="2" cellspacing="2" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" id="AutoNumber4" align="center" width="96%">
                    <tr bgcolor="#f7f7f7"> 
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">所属区域</span></div></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size: 9pt">地　点</span></div></td>
					    <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt"> 房屋类型</span></div></td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt"> 户型</span></div></td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">价　格</span></div></td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">登记日期</span></div></td>
                    </tr>
                    <%sql="select top 5 * from sale order by zid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有房源"
else
do while not rs.eof
%>
                    <tr class="9size" bgcolor="#f7f7f7"> 
                      <td style="border-style: none; border-width: medium"><%=(rs.Fields.Item("Diduan").Value)%></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><a href="show.asp?typeto=sale&<%= "zid=" & rs.Fields.Item("zid").Value %>" target="_blank" onClick="return newpage(this.href);"><font color="#FF6600"> 
                          <%if len(rs("Xiaoqm"))>15 then %>
                          <%=left(rs("Xiaoqm"),15)%>... 
                          <%else%>
                          <%=rs("Xiaoqm")%> 
                          <%end if %>
                          </font></a></span></div></td>
						  <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><%=(rs.Fields.Item("Fangx").Value)%></span></div></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><%=(rs.Fields.Item("Taox").Value)%></span></div></td>
                      <td style="border-style: none; border-width: medium"><%=(rs.Fields.Item("Jiag").Value)%><%=(rs.Fields.Item("fangshi").Value)%></td>
                      <td style="border-style: none; border-width: medium"><a href="show.asp?typeto=sale&<%= "zid=" & rs.Fields.Item("zid").Value %>" target="_blank" onClick="return newpage(this.href);"></a><span style="font-size:9pt"><%=(rs.Fields.Item("dat").Value)%></span></td>
                    </tr>
                    <%
rs.movenext
loop
end if
rs.close
%>
                  </table></td>
              </tr>
              <tr> 
                <td height="20" colspan="2"> &nbsp;&nbsp;[<a href="user_index.asp">我要发布</a>]</td>
                <td align="right"><img src="images/fang.gif" width="12" height="12">&nbsp;<a href="houselist.asp?type=sale">更多出售房信息</a></td>
              </tr>
            </table></td>
        </tr>
      </table>
	  <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="0"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr bgcolor="#ffb600"> 
                <td width="8%"><img src="images/20080320134845251.gif" width="32" height="19"></td>
                <td width="30%"><table width="98%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td><font color="#FFFFFF">求租求购信息</font></td>
                    </tr>
                  </table></td>
                <td width="62%" bgcolor="#ffb600">&nbsp;</td>
              </tr>
              <tr bgcolor="#ffb600"> 
                <td colspan="3"><img src="images/5x5.gif" width="5" height="5"></td>
              </tr>
              <tr> 
                <td colspan="3" align="center" valign="top"><table border="0" cellpadding="2" cellspacing="2" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" id="AutoNumber4" align="center" width="96%">
                    <tr bgcolor="#f7f7f7"> 
                      <td width="10%" style="border-style: none; border-width: medium">类型</td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">所属区域</span></div></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size: 9pt">地　点</span></div></td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt"> 类　别</span></div></td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">价　格</span></div></td>
                      <td width="15%" style="border-style: none; border-width: medium"> 
                        <div align="left"><span style="font-size: 9pt">登记日期</span></div></td>
                    </tr>
                    <%sql="select top 5 * from need order by zid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有房源"
else
do while not rs.eof
%>
                    <tr class="9size" bgcolor="#f7f7f7"> 
                      <td style="border-style: none; border-width: medium"><%=(rs.Fields.Item("qiu").Value)%></td>
                      <td style="border-style: none; border-width: medium"><%=(rs.Fields.Item("Diduan").Value)%></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><a href="show_need.asp?<%= "zid=" & rs.Fields.Item("zid").Value %>&typeto=need" target="_blank" onClick="return newpage(this.href);"><font color="#FF6600"> 
                          <%if len(rs("Xiaoqm"))>10 then %>
                          <%=left(rs("Xiaoqm"),10)%>... 
                          <%else%>
                          <%=rs("Xiaoqm")%> 
                          <%end if %>
                          </font></a></span></div></td>
                      <td style="border-style: none; border-width: medium"> <div align="left"><span style="font-size:9pt"><%=(rs.Fields.Item("Taox").Value)%></span></div></td>
                      <td style="border-style: none; border-width: medium"><%=(rs.Fields.Item("Jiag").Value)%><%=(rs.Fields.Item("fangshi").Value)%></td>
                      <td style="border-style: none; border-width: medium"><a href="show.asp?typeto=sale&<%= "zid=" & rs.Fields.Item("zid").Value %>" target="_blank" onClick="return newpage(this.href);"></a><span style="font-size:9pt"><%=(rs.Fields.Item("dat").Value)%></span></td>
                    </tr>
                    <%
rs.movenext
loop
end if
rs.close
%>
                  </table></td>
              </tr>
              <tr> 
                <td height="20" colspan="2"> &nbsp;&nbsp;[<a href="user_index.asp">我要发布</a>]&nbsp; 
                </td>
                <td align="right"> <img src="images/fang.gif" width="12" height="12">&nbsp;<a href="houseneedlist.asp">更多求租求购信息</a></td>
              </tr>
            </table></td>
        </tr>
      </table>
	  <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="0">&nbsp;</td>
        </tr>
      </table>
    </td>
          
  </tr>
        
        
</table>
     
      
      
  
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#999999" class="bk">
  <tr>
    <td height="1">
	</td>
  </tr>
</table>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <map name="Map">
  <area shape="rect" coords="462,2,550,20" href="user_index.asp">
</map>
<map name="Map2">
  <area shape="rect" coords="477,7,560,26" href="loupanlist.asp">
</map>
<map name="Map3">
  <area shape="rect" coords="462,4,551,21" href="user_index.asp">
</map>
<map name="Map4">
  <area shape="rect" coords="463,2,550,19" href="user_index.asp">
</map>
</table>
</body>
</html>