user_myhouse.asp

一个朋友购买的商业版房产网源程序

<% 
if session("uid")="" then
response.Redirect"error.asp"
end if
%> 
<table bordercolor=#ffffff cellspacing=1 cellpadding=2 width="98%" bgcolor=#ff9900 border=1>
  <tr align=middle bordercolor=#007db5 bgcolor=#007db5> 
    <td width="12%" bordercolor="#ff9900" bgcolor="#FFCC66"><div align="center"><font class=end><b>类型</b></font></div></td>
    <td width="14%" bordercolor="ff9900" bgcolor="#FFCC66"><div align="center"><font class=end><b>所属区域</b></font></div></td>
    <td width="15%" bordercolor="ff9900" bgcolor="#FFCC66"><div align="center"><font class=end><b>房屋结构</b></font></div></td>
    <td width="18%" bordercolor="ff9900" bgcolor="#FFCC66"><div align="center"><font class=end><b>房屋价格</b></font></div></td>
    <td width="12%" bordercolor="ff9900" bgcolor="#FFCC66"><div align="center"><font class=end><b>浏览人数</b></font></div></td>
    <td width="18%" bordercolor="ff9900" bgcolor="#FFCC66"><div align="center"><font class=end><b>发布日期</b></font></div></td>
    <td width="11%" bordercolor="ff9900" bgcolor="#FFCC66"><div align="center"><font class=end></font><font class=end><b>操作</b></font></div></td>
  </tr>
  <tr bgcolor="#ffffff"> 
    <td class=htd align=middle colspan=7 height=30><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
        <TR> 
          <TD><DIV align=center> 
              <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <% ppname=session("uid")
				   set rs=server.createobject("adodb.recordset")
                   sql="select * from house where fw_uid='"& ppname &"' order by id desc"
                   rs.open sql,conn,1
				   rs.pagesize=15 '每页显示多少条
                   pagecount=rs.pagecount '总页数
                   if rs.bof and rs.eof then
                   response.write "您没有发布任何信息"
                   else
  
  page=clng(request.querystring("page"))
  if page<1 then page=1
  if page>rs.pagecount then page=rs.pagecount
  rs.absolutepage=page  '跳到多少页
  
  for i=1 to rs.pagesize
  %>
                <TR> 
                  <TD width="12%">&nbsp;<img src="images/006.gif" width="8" height="10"><font size="2"> 
                    <% =rs("mytype")%>
                    </font></TD>
                  <TD align=right width="14%"><div align="center"><font size="2"> 
                      <% =rs("fw_quyu")%>
                      </font></div></TD>
                  <TD align=left width="15%"><div align="center"><font size="2"> 
                      <% =rs("fw_jiegou")%>
                      </font></div></TD>
                  <TD align=middle width="18%"> <div align="center"><font size="2"> 
                      <% =rs("fw_jiage") %><% =rs("fw_jiageLX") %>
                      </font></div></TD>
                  <TD align=left width="12%"><div align="center"><font color="#666666" size="2"> 
                      <% =rs("fw_lls") %>
                      </font></div></TD>
                  <TD align=left width="18%"><div align="center"><font color="#666666" size="2"> 
                      <% =rs("fw_fbri") %>
                      </font></div></TD>
                  <TD align=left width="11%"><div align="center"><a href="h_open.asp?id=<%=rs("id")%>" target="_blank">查看</a> 
                    </div></TD>
                </TR>
                <% 
  rs.movenext
  if rs.eof then exit for 
  next
  end if 
  %>
              </TABLE>
            </DIV></TD>
        </TR>
        <TR> 
          <TD><div align="right"><img src="images/more_01.gif" width="29" height="9">&nbsp;&nbsp; 
              <%
	r=7
	 
	'总页数
	zys=round(clng(rs.pagecount)/r+0.5)
	
	'当前页数
	dqys=request.QueryString("dqys") 
	
	'开始页
	ksy=request.QueryString("ksy") 
	
	if dqys="" then dqys=1
	if ksy="" then ksy=1 
	 
	js=clng(dqys) * r '一个FOR语句结束
	if js > clng(rs.pagecount) then js=clng(rs.pagecount)
	
	newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
		
if clng(dqys) >1 then response.write "<a href=user.asp?gn=myhouse&dqys="& dqys-1 &"&pname="&ppname&">" &"上一页" &"</a>"

	  for t=newksy to js
	     response.write "<a href=user.asp?gn=myhouse&page=" &t&"&dqys="&dqys&"&pname="&ppname&">" &t& "</a>&nbsp;"
	  next
	  

if cdbl(dqys)< zys then response.write "<a href=user.asp?gn=myhouse&dqys="& dqys+1 &"&pname="&ppname&">" &"下一页" &"</a>"
%>
            </div></TD>
        </TR>
        <TR> 
          <TD height="20" valign="bottom" bgcolor="#ededed"> 
            <div align="center">请及时删除无用信息！谢谢合作！</div></TD>
        </TR>
        <TR> 
          <TD width="100%" height=0 align=right background="images/c-dl.gif"></TD>
        </TR>
      </TABLE></td>
  </tr>
</table>