<!--#include file=webhead.asp-->

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>便宜房产网-房产图库</title>
<script src="../js/Jimage.js"></script>

</head>

<div align="center">
<div align="center">
	<table border="0" width="784" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" >
		<tr>
			<td bgcolor="#E9E9E9" height=2></td>
				</tr>
		<tr>
			<td height=5></td>
				</tr>
		<tr>
			<td align="center">
	<p align="center"><%if ad2461class=0 then%><a target="_blank" href="<%=ad2461url%>"><img  alt="<%=ad2461name%>" src="<%=ad2461%>"  border="0" width=777 height=123></a>
	<%else%>
													<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="777" height="123">
	<param name="movie" value="<%=ad2461%>">
	<param name="quality" value="High">
	<embed src="<%=ad2461%>" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="777" height="123"></object>

	<%end if%></td>
				</tr>
		<tr>
			<td height=5></td>
				</tr>
		<tr>
			<td height=5></td>
				</tr>
			</table>
</div>
			<table width="784" border="0" cellspacing="0" cellpadding="0" class="lr" bordercolor="#000000" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px">
				<tr>
						<td width="200" valign="top" bgcolor="#F9F9F9"><!--#include file="in_pic.asp"-->
			　<td width=5></td>
					<td align="center" width=580 valign="top">
					<table border="0" width="99%" cellspacing="0" cellpadding="0">
												<tr>
													<td bgcolor="#F7F7F7" height=20>
													&nbsp;房产图库　</td>
															
													<td bgcolor="#E9E9E9"  width=2></td>
												</tr>
												<tr>
												
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>

												</tr>
											</table>
											<table border="0" width="100%">
			
			</table>
						<table border="0" width="100%"><%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select * from fcpic  order by adddate desc   ",conn,1,1
	if rs.recordcount=0 then 
		%>
		
		<%
		else
	  	rs.PageSize =16 '每页记录条数
		iCount=rs.RecordCount '记录总数
		iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    rs.AbsolutePage=Page
	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	
			
			j_1=int((rs.recordcount+3)/4)
			if j_1>4 then 
			j_1=4
			end if
			for j_count=1 to j_1%>
							<tr>
								<td width=25% align="center"><%	
 if not  rs.eof then
%><table cellSpacing="0" cellPadding="0" width="25" border="0">
											<tr>
												<td style="FONT-SIZE: 12px; " align="middle" height="86">
												<table cellSpacing="1" cellPadding="0" width="95" bgColor="#cccccc" border="0">
													<tr>
														<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
														<table cellSpacing="1" cellPadding="0" width="95" bgColor="#ffffff" border="0">
															<tr>
																<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
																<a  href="list.asp?id=<%=rs("id")%>">
						<img   height=79 alt="<%=rs("picname")%>" src="../<%=rs("pics")%>" width=115 border=0></a></td>
															</tr>
														</table>
														</td>
													</tr>
												</table>
												</td>
											</tr>
											<tr>
												<td style="FONT-SIZE: 12px; " height="20" align="center">
												
												<%=rs("picname")%></td></tr></table>
<%
rs.movenext
end if

%>　</td>
								<td width=25% align="center"><%	
 if not  rs.eof then
%><table cellSpacing="0" cellPadding="0" width="25" border="0">
											<tr>
												<td style="FONT-SIZE: 12px; " align="middle" height="86">
												<table cellSpacing="1" cellPadding="0" width="95" bgColor="#cccccc" border="0">
													<tr>
														<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
														<table cellSpacing="1" cellPadding="0" width="95" bgColor="#ffffff" border="0">
															<tr>
																<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
																<a  href="list.asp?id=<%=rs("id")%>">
						<img   height=79 alt="<%=rs("picname")%>" src="../<%=rs("pics")%>" width=115 border=0></td>
															</tr>
														</table>
														</td>
													</tr>
												</table>
												</td>
											</tr>
											<tr>
												<td style="FONT-SIZE: 12px; " height="20" align="center"><%=rs("picname")%></td></tr></table><%
rs.movenext
end if

%>　</td>
								<td width=25% align="center"><%	
 if not  rs.eof then
%><table cellSpacing="0" cellPadding="0" width="25" border="0">
											<tr>
												<td style="FONT-SIZE: 12px; " align="middle" height="86">
												<table cellSpacing="1" cellPadding="0" width="95" bgColor="#cccccc" border="0">
													<tr>
														<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
														<table cellSpacing="1" cellPadding="0" width="95" bgColor="#ffffff" border="0">
															<tr>
																<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
																<a  href="list.asp?id=<%=rs("id")%>">
						<img   height=79 alt="<%=rs("picname")%>" src="../<%=rs("pics")%>" width=115 border=0></td>
															</tr>
														</table>
														</td>
													</tr>
												</table>
												</td>
											</tr>
											<tr>
												<td style="FONT-SIZE: 12px; " height="20" align="center"><%=rs("picname")%></td></tr></table><%
rs.movenext
end if

%>　</td>
								<td width=25% align="center"><%	
 if not  rs.eof then
%><table cellSpacing="0" cellPadding="0" width="25" border="0">
											<tr>
												<td style="FONT-SIZE: 12px; " align="middle" height="86">
												<table cellSpacing="1" cellPadding="0" width="95" bgColor="#cccccc" border="0">
													<tr>
														<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
														<table cellSpacing="1" cellPadding="0" width="95" bgColor="#ffffff" border="0">
															<tr>
																<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
																<a  href="list.asp?id=<%=rs("id")%>">
						<img   height=79 alt="<%=rs("picname")%>" src="../<%=rs("pics")%>" width=115 border=0></td>
															</tr>
														</table>
														</td>
													</tr>
												</table>
												</td>
											</tr>
											<tr>
												<td style="FONT-SIZE: 12px;" height="20" align="center"><%=rs("picname")%></td></tr></table><%
rs.movenext
end if

%>　</td>
							</tr> <%next
              rs.close

              %>
							</table><%end if%>
							<table width="540" border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td height="8"></td>
							</tr>
							<tr>
								<td align="right">
<%	call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=center>")


		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then     
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)    
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)  
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "条信息" &  vbCrLf)
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>
											</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
			</div>
				<div align="center">
	<table border="0" width="784" cellspacing="0" cellpadding="0"  bordercolor="#000000" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" >	<tr>
		<td>　</td>
	</tr>
</table>
</div>
<!--#include file=webfoot.asp-->