house_list.asp

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

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from house where mytype='"&lb&" ' order by id desc"
rs.open sql,conn,1

rs.pagesize=18 '每页显示多少条
pagecount=rs.pagecount '总页数
%>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff border=0>
  <TBODY>
    <TR vAlign=top> 
           <TD><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0  style="BORDER-COLLAPSE: collapse">
          <TR> 
            <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="100%" height="24" bgcolor="#FF8F2A" align="center"><font color="#FFFFFF">[<font color=yellow><%=request("lb")%></font>]信息列表</font></td>
                </tr>
              </table></TD>
          </TR>
          <TR> 
            <TD><DIV align=center> 
                <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 bgcolor="#FF8F2A">
                <TR> 
                    <TD width="11%" bgcolor="#FFFFFF">
					<p align="center"><font color="#FF8F2A">类型</font></TD>
                    <TD align=right width="13%" bgcolor="#FFFFFF"><div align="center">
						<font size="2" color="#FF8F2A"> 
                        
                        区域</font></div></TD>
                    <TD align=left width="16%" bgcolor="#FFFFFF"><div align="center">
						<font size="2" color="#FF8F2A"> 
                        户型
                        </font></div></TD>
                    <TD align=middle width="20%" bgcolor="#FFFFFF"> <div align="center">
						<font size="2" color="#FF8F2A"> 
                                               价格</font></div></TD>
                    <TD align=left width="10%" bgcolor="#FFFFFF"><div align="center">
						<font color="#FF8F2A" size="2"> 
                                              人气</font></div></TD>
                    <TD align=left width="18%" bgcolor="#FFFFFF"><div align="center">
						<font color="#FF8F2A" size="2"> 
                     
                        发布时间</font></div></TD>
                    <TD align=left width="12%" bgcolor="#FFFFFF"><div align="center">
						<font color="#FF8F2A">查看 
                      </font> 
                      </div></TD>
                  </TR>
                  
  <% 
  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="11%" bgcolor="#FFFFFF">&nbsp;<img src="img/plus.gif" width="7" height="7"><font size="2"> 
                      <% =rs("mytype")%>
                      </font></TD>
                    <TD align=right width="13%" bgcolor="#FFFFFF"><div align="center"><font size="2"> 
                        <% =rs("fw_quyu")%>
                        </font></div></TD>
                    <TD align=left width="16%" bgcolor="#FFFFFF"><div align="center"><font size="2"> 
                        <% =rs("fw_jiegou")%>
                        </font></div></TD>
                    <TD align=middle width="20%" bgcolor="#FFFFFF"> <div align="center"><font size="2"> 
                        <% =rs("fw_jiage") %><% =rs("fw_jiageLX") %>
                        </font></div></TD>
                    <TD align=left width="10%" bgcolor="#FFFFFF"><div align="center"><font color="#666666" size="2"> 
                        <% =rs("fw_lls") %>
                        </font></div></TD>
                    <TD align=left width="18%" bgcolor="#FFFFFF"><div align="center"><font color="#666666" size="2"> 
                        <% =rs("fw_fbri") %>
                        </font></div></TD>
                    <TD align=left width="12%" bgcolor="#FFFFFF"><div align="center"><a href="h_open.asp?id=<%=rs("id")%>">查看</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=?dqys="& dqys-1 &"&lb="& lb &">" &"上一页" &"</a>"

	  for t=newksy to js
	     response.write "<a href=?page=" &t&"&dqys="&dqys&"&lb="& lb &">" &t& "</a>&nbsp;"
	  next
	  

if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &"&lb="& lb &">" &"下一页" &"</a>"
%>
                &nbsp;</div></TD>
          </TR>
         
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>