index.asp

来自「房屋中介系统」· ASP 代码 · 共 144 行

<!--#include file ="conn.asp"-->
<!--#include file ="head.asp"-->
  <table align="center" width="80%">
	<tr>
	<td valign="top"><img src="images/chuzu.jpg"></td>	
	<td valign="top"><img src="images/qiuzu.jpg"></td>
	</tr>
	<tr>
	<td valign="top">
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
		        <% 
		        sql = "select * from house where puttype='出租' and checkup=1 order by id desc"
				Set rs = Server.CreateObject("ADODB.RecordSet")
				rs.Open sql,conn,1,1
				if rs.recordcount<>0 then
				i=0
				for i=1 to 5
				%>
				<tr>
					<td>
<a href=houseview.asp?hcgood=<%=rs(0)%>><%=rs("region")%><%=rs("address")%>　<%=rs("right")%><%=rs("frame")%></a>
					</td>
				</tr>
						<%
						rs.movenext
						if rs.eof then exit for
						next
						end if
						%>
				  <tr>
					<td style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" colspan="2" align="right">
				<%
				if i=>5 then
				response.write "<a href=houselist.asp?hcgood=出租>更多信息......</a>"
				end if 
				%></td>
				</tr>
				</table>
	</td>
	<td valign="top">
			<table>
			<%
			sql = "select * from house where puttype='求租' and checkup=1 order by id desc"
			Set rs = Server.CreateObject("ADODB.RecordSet")
			rs.Open sql,conn,1,1
			if rs.recordcount<>0 then
			i=0
			for i=1 to 5
			%>
				<tr>
					<td style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" valign="top">
<a href=houseview.asp?hcgood=<%=rs(0)%>><%=rs("region")%><%=rs("address")%>　<%=rs("right")%><%=rs("frame")%></a>
</td>
				</tr>
				<%
				rs.movenext
				if rs.eof then exit for
				next
				end if
				%>
				<tr>
				<td style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" align="right">
				<%
				if i=>5 then
				response.write "<a href=houselist.asp?hcgood=求租>更多信息......</a>"
				end if 
			    %>
				</td>
			   </tr>
			</table>
		</td>
	</tr>
	<tr>
	<td width="260" valign="top"><img src="images/chushou.jpg"></td>	
	<td width="260" valign="top"><img src="images/qiugou.jpg"></td>
	</tr>
	<tr>
		<td valign="top">
			<table border="0" width="100%" id="table5" cellspacing="0" cellpadding="0">
				<%
				sql = "select * from house where puttype='出售' and checkup=1 order by id desc"
				Set rs = Server.CreateObject("ADODB.RecordSet")
				rs.Open sql,conn,1,1
				if rs.recordcount<>0 then
				i=0
				for i=1 to 5
				%>
				<tr>
					<td style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" valign="top">
<a href=houseview.asp?hcgood=<%=rs(0)%>><%=rs("region")%><%=rs("address")%>　<%=rs("right")%><%=rs("frame")%></a>
</td>
				</tr>
				<%
				rs.movenext
				if rs.eof then exit for
				next
				end if
				%>
				<tr>
				<td style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" align="right">
				<%
				if i=>5 then
				response.write "<a href=houselist.asp?hcgood=出售>更多信息......</a>"
				end if 
				%></td>
				</tr>
			 </table>
		</td>
		<td valign="top">
			<table>
				<%
				sql = "select * from house where puttype='求购' and checkup=1 order by id desc"
				Set rs = Server.CreateObject("ADODB.RecordSet")
				rs.Open sql,conn,1,1
				if rs.recordcount<>0 then
				i=0
				for i=1 to 5
				%>
				<tr>
					<td style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" valign="top">
<a href=houseview.asp?hcgood=<%=rs(0)%>><%=rs("region")%><%=rs("address")%>　<%=rs("right")%><%=rs("frame")%></a>
</td>
				</tr>
				<%
				rs.movenext
				if rs.eof then exit for
				next
				end if
				%>
				<tr>
					<td style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" align="right">
				<%
				if i=>5 then
				response.write "<a href=houselist.asp?hcgood=求购>更多信息......</a>"
				end if 
				%>
				</td>
			  </tr>
		 </table>
		</td>
	</tr>
</table>
</body>
</html>