⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 czindex.asp

📁 房屋中介网源代码
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="css1.css"-->
<% 
set rs=server.createobject("adodb.recordset")
sql=("select * from fangyuan where mytype='出租 ' order by id desc")'由大到小排序
rs.open sql,conn,1

rs.pagesize=15 '每页显示多少条
pagecount=rs.pagecount '总页数
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>出 租 信 息</title>

</head>

<body>
<!--#include file="top.asp"-->
<TABLE width=777 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD bgColor=#188eac width=1></TD>
      <TD align=middle width=776> <TABLE border=0 cellPadding=0 cellSpacing=0 width=771>
          <TBODY>
            <TR align=middle vAlign=top> 
              <TD width=181 height="267"> 
                <!--#include file="dlck.asp"-->
                <p>&nbsp;</p>
                <TABLE background=images/left_bg_1.gif border=0 cellPadding=0 
            cellSpacing=0 width="100%">
                  <TBODY>
                      <TR> 
                      <TD><!--#include file="java.asp"--></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
              <TD width=3><font size="2">&nbsp;</font></TD>
              <TD width=587><div align="left"> </div>
                <div align="left">
                  <table width="575" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="582"><table width="572" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="459"><font size="2"><img src="images/tiao01.gif" width="194" height="26"><IMG src="images/tiao02.gif" width="26" height="26" border=0></font></td>
                            <td width="16"><img src="images/jiantou01.gif" width="16" height="14"> 
                              <a href="csfb.htm"></a></td>
                            <td width="97"><a href="fb.asp?lb=出租"><font color="#FF0000" size="2">发布出租信息</font></a></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td><table width="572" border="0" align="left" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
                          <tr bordercolor="#CCCCCC" bgcolor="#D2D874"> 
                            <td width="41" valign="middle"><div align="center"><font size="2"> 
                                类别</font></div></td>
                            <td width="57" valign="middle"><div align="center"><font size="2">区域</font></div></td>
                            <td width="92" valign="middle"><div align="center"><font size="2">结构</font></div></td>
                            <td width="54" valign="middle"><div align="center"><font size="2">价格</font></div></td>
                            <td width="186" valign="middle"><div align="center"><font size="2">地址</font></div></td>
                            <td width="81"> <div align="center"><font size="2">日期</font></div></td>
                            <td width="39"> <div align="center"><font size="2">详细</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 bgcolor="#EFF1CF"> 
                            <td><div align="center"><font size="2"> 
                                <% =rs("mytype")%>
                                </font></div></td>
                            <td><div align="center"><font size="2"> 
                                <% =rs("fw_quyu")%>
                                </font></div></td>
                            <td><div align="center"><font size="2"> 
                                <% =rs("fw_jiegou")%>
                                </font></div></td>
                            <td><div align="center"><font size="2"> 
                                <% =rs("fw_jiage") %>
                                </font></div></td>
                            <td><div align="center"><font size="2"> 
                                <% =rs("fw_dizhi") %>
                                </font></div></td>
                            <td> <div align="center"><font size="2"><font size="2"> 
                                <% =rs("fw_fbri") %>
                                </font> </font></div></td>
                            <td> <div align="center"><font size="2"><a href="xxxx.asp?xiangxi=<% =rs("id") %>">查看</a></font></div></td>
                          </tr>
<% 
  rs.movenext
  if rs.eof then exit for 
  next
  end if 
  %>
                        </table>
                        <font size="2"><BR>
                        </font> <TABLE border=0 cellPadding=2 cellSpacing=2 width="100%">
                        </TABLE></td>
                    </tr>
                    <tr> 
                      <td valign="bottom">
<div align="right">
                          <%
	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 &">" &"上一页" &"</a>"

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

if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &">" &"下一页" &"</a>"
	
	'response.write  zys
	%>
                        </div></td>
                    </tr>
                  </table>
                </div></TD>
            </TR>
          </TBODY>
        </TABLE>
        
      </TD>
      <TD bgColor=#188eac width=1></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="let.asp"--></body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -