index.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

                          set rscs=nothing
                          %>
                          </TABLE></td>
                          </tr>
                        </table>
                      </DIV></TD>
                  </TR></TABLE></td>
                </tr></table><table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#ffe7d0">
          <tr> 
            <td width="49%" valign="top" bgcolor="#FFFFFF"><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
             <% set rsqg=conn.execute("select top 6 * from house where mytype='求购' order by id desc")%>
                  <TR> 
                    <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="100%">最新<% =rsqg("mytype") %></td>
                        </tr>
                      </table></TD>
                  </TR>
                  <TR> 
                    <TD width="100%"><DIV align=center> 
                        <table width="100%" border="0" cellpadding="0" cellspacing="0" >
                          <tr> 
                            <td bordercolor="#ffe7d0"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                            <% if rsqg.bof and rsqg.eof then
                              response.write "暂时没有房源"
                              else
                              while not rsqg.eof%>
                            <TR> 
                              <TD width="6%"><div align="center">
								<IMG src="img/dot.gif" width="9" height="15"></div></TD>
                              <TD align=right> <div align="left"><a href="h_open.asp?id=<% =rsqg("id") %>"> 
                                  <% =rsqg("fw_jiegou") %>
                                  &nbsp;&nbsp; 
                                  <% =rsqg("fw_louceng") %>
                                  层 &nbsp;&nbsp; 
                                  <% =rsqg("fw_jiage") %><% =rsqg("fw_jiageLX") %>
                                  </a></div>
                                <div align="center"> </div></TD>
                            </TR>
                            <% 
                          rsqg.movenext
                          wend
                          end if 
                          rsqg.close
                          set rsqg=nothing
                          %>
                          </TABLE></td>
                          </tr>
                        </table>
                      </DIV></TD>
                  </TR>
               </TABLE></td>
            <td width="49%" valign="top" bgcolor="#FFFFFF"><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 style="BORDER-COLLAPSE: collapse">
               <% set rsqz=conn.execute("select top 6 * from house where mytype='求租' order by id desc")%>
                  <TR> 
                    <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="100%">最新<% =rsqz("mytype") %></td>
                        </tr>
                      </table></TD>
                  </TR>
                  <TR> 
                    <TD width="100%"> <DIV align=center> 
                        <table width="100%" border="0" cellpadding="0" cellspacing="0" >
                          <tr> 
                            <td bordercolor="#ffe7d0"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                            <% if rsqz.bof and rsqz.eof then
                              response.write "暂时没有房源"
                              else
                              while not rsqz.eof%>
                            <TR> 
                              <TD width="6%"><div align="center">
								<IMG src="img/dot.gif" width="9" height="15"></div></TD>
                              <TD align=right><div align="left"><a href="h_open.asp?id=<% =rsqz("id") %>"> 
                                  <% =rsqz("fw_jiegou") %>
                                  &nbsp;&nbsp; 
                                  <% =rsqz("fw_louceng") %>
                                  层 &nbsp;&nbsp; 
                                  <% =rsqz("fw_jiage") %><% =rsqz("fw_jiageLX") %>
                                  </a></div>
                                <div align="center"> </div></TD>
                            </TR>
                            <% 
                          rsqz.movenext
                          wend
                          end if 
                          rsqz.close
                          set rsqz=nothing
                          %>
                          </TABLE></td>
                          </tr>
                        </table>
                      </DIV></TD>
                  </TR></TABLE></td>
                </tr></table>
                <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#ffe7d0">
          <tr> 
            <td width="49%" valign="top" bgcolor="#FFFFFF"><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
             <% set rshz=conn.execute("select top 6 * from house where mytype='合租' order by id desc")%>
                  <TR> 
                    <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="100%">最新<% =rshz("mytype") %></td>
                        </tr>
                      </table></TD>
                  </TR>
                  <TR> 
                    <TD width="100%"><DIV align=center> 
                        <table width="100%" border="0" cellpadding="0" cellspacing="0" >
                          <tr> 
                            <td bordercolor="#ffe7d0"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                            <% if rshz.bof and rshz.eof then
                              response.write "暂时没有房源"
                              else
                              while not rshz.eof%>
                            <TR> 
                              <TD width="6%"><div align="center">
								<IMG src="img/dot.gif" width="9" height="15"></div></TD>
                              <TD align=right> <div align="left"><a href="h_open.asp?id=<% =rshz("id") %>"> 
                                  <% =rshz("fw_jiegou") %>
                                  &nbsp;&nbsp; 
                                  <% =rshz("fw_louceng") %>
                                  层 &nbsp;&nbsp; 
                                  <% =rshz("fw_jiage") %><% =rshz("fw_jiageLX") %>
                                  </a></div>
                                <div align="center"> </div></TD>
                            </TR>
                            <% 
                          rshz.movenext
                          wend
                          end if 
                          rshz.close
                          set rshz=nothing
                          %>
                          </TABLE></td>
                          </tr>
                        </table>
                      </DIV></TD>
                  </TR>
               </TABLE></td>
            <td width="49%" valign="top" bgcolor="#FFFFFF"><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 style="BORDER-COLLAPSE: collapse">
               <% set rsrz=conn.execute("select top 6 * from house where mytype='日租' order by id desc")%>
                  <TR> 
                    <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="100%">最新<% =rsrz("mytype") %></td>
                        </tr>
                      </table></TD>
                  </TR>
                  <TR> 
                    <TD width="100%"> <DIV align=center> 
                        <table width="100%" border="0" cellpadding="0" cellspacing="0" >
                          <tr> 
                            <td bordercolor="#ffe7d0"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                            <% if rsrz.bof and rsrz.eof then
                              response.write "暂时没有房源"
                              else
                              while not rsrz.eof%>
                            <TR> 
                              <TD width="6%"><div align="center">
								<IMG src="img/dot.gif" width="9" height="15"></div></TD>
                              <TD align=right><div align="left"><a href="h_open.asp?id=<% =rsrz("id") %>"> 
                                  <% =rsrz("fw_jiegou") %>&nbsp;&nbsp;&nbsp; 
                                  <% =rsrz("fw_louceng") %>
                                  层&nbsp;&nbsp;&nbsp; 
                                  <% =rsrz("fw_jiage") %><% =rsrz("fw_jiageLX") %>
                                  </a></div>
                                <div align="center"> </div></TD>
                            </TR>
                            <% 
                          rsrz.movenext
                          wend
                          end if 
                          rsrz.close
                          set rsrz=nothing
                          %>
                          </TABLE></td>
                          </tr>
                        </table>
                      </DIV></TD>
                  </TR></TABLE></td>
                </tr></table>
        <br>
        <br>
      </TD>
    </TR><!--#include file="let.asp"-->
 </TABLE>