<!--#include file=webhead.asp-->
<%dim id
		id=trim(request("id"))
		if IsNumeric(request.QueryString("id"))=False or request.QueryString("id")="" then
		response.write"<SCRIPT language=JavaScript>alert('参数错误！');"
		response.end	
		end if
		sql="select * from fcpic where   id=" &id & " "
		Set rs= Server.CreateObject("ADODB.Recordset")
		rs.open sql,conn,1,3
		if rs.bof and rs.eof then
		response.write"<SCRIPT language=JavaScript>alert('参数错误！');"
		response.end
		else
		rs("count")=rs("count")+1
		rs.update
		end if
		title=rs("picname")
		
		%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title><%=webname%>-房产图库-<%=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%" cellspacing="0" cellpadding="0">
												<tr>
													<td>　</td>
												</tr>
					</table>
					<table border="0" width="98%" cellspacing="0" cellpadding="0">
						<tr>
							<td>
							<p align="center"><font color="#FF0000"><%=rs("picname")%>　</font></td>
						</tr>
						<tr>
							<td>
							<p align="right">　浏览次数:<%=rs("count")%> 添加时间:<%=rs("adddate")%></td>
						</tr>

						<tr>
							<td align="center">
							　</td>
						</tr>

						<tr>
							<td align="center">
							<p align="right"><%
                
		Set rs2= Server.CreateObject("ADODB.Recordset")
		  	rs2.open "select picname,id from fcpic order by adddate desc",conn,1,1
		rs2.open sql1,conn,1,1
		do while not rs1.eof
		if rs2("id") =rs("id") then 
		exit do
		end if
		rs2.movenext
		loop
                      %>
           <%
    
           rs2.moveprevious
           previousid=rs("id")
           
           %>
					  	<%if rs2.bof then
response.write "上一篇：没有上一篇了"
else
%>上一篇：<a href="list.asp?id=<%=rs2("id")%>"><%=rs2("picname")%></a>&nbsp;&nbsp; 
                      <%
                      end if
                      rs2.movenext
                      rs2.movenext
                      if rs2.eof then
                      response.write "下一篇：没有下一篇了"
                      else
                      %>下一篇：<a href="list.asp?id=<%=rs2("id")%>"><%=rs2("picname")%></a>&nbsp;
                    <%end if%>

</td>
						</tr>

						<tr>
							<td align="center">　<table cellSpacing="1" cellPadding="0" width="95" bgColor="#ffffff" border="0">
															<tr>
																<td style="FONT-SIZE: 12px; " bgColor="#ffffff" height="30">
																<%if not rs2.eof then%><a  href="list.asp?id=<%=rs2("id")%>">
						<img   alt="<%=rs("picname")%>" src="../<%=rs("picb")%>" title="点击进入下一篇:<%=rs2("picname")%>" border=0></a>
						<%else%>
						<img   alt="<%=rs("picname")%>" src="../<%=rs("picb")%>"  title="没有下一篇了" border=0>
						<%end if%>
						</td>
															</tr>
														</table>
														</td>
						</tr>
						<tr>
							<td>　<div align="center">
								<table border="0" width="80%" cellspacing="0" cellpadding="0">
									<tr>
										<td>
										<p align="right">　<a href="javascript:history.back(-1)">返回上一页</a></td>
									</tr>
								</table>
							</div>
							</td>
						</tr>
					</table>
											<table border="0" width="100%">
			
			</table>
					
							<%rs.close
							set rs=nothing%>
					</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-->