📄 news.asp

📁 本房地产网站功能强大
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../inc/config.inc"-->
<!--#include file="../top.asp"-->
<%
 Dim Rs,Sql
 OpenDataConn
 Set Rs=Server.CreateObject("ADODB.Recordset") 
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>房产资讯-<%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<LINK 
href="../img1/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center 
background=../img/headbg4.gif border=0>
  <TBODY>
  <TR>
    <TD align=right width=35>
	<IMG height=13 src="../img/headarrow.gif" 
      width=17></TD>
    <TD align=middle width=10></TD>
    <TD class=TD_Place width=935>您现在的位置：<a href="../index.aspx"><FONT color=#ffffff><%=homepage_title%> </FONT> </a>  
	<FONT color=#ffffff>&gt;&gt;</FONT> 房产资讯</TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center 
background=img/headbg5.gif border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE height=100 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=260 height=100><!--#include file="left.asp"--></TD>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR></TR>
        <TR>
          </TR></TBODY></TABLE>
      <div align="center">
      <TABLE  cellSpacing=0 cellPadding=0 width=700 border=1 bordercolordark="#FFE2BB">
        <TBODY>
        <TR>
          <TD vAlign=top>
            <TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
              <TBODY>
              <TR>
                <TD></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=500 align=center 
              border=0><TBODY>
			<TABLE height=28 cellSpacing=0 cellPadding=0 width=700 border=0 background="../img1/fj.jpg">
              <TBODY>
              <TR>
                <TD>&nbsp;<font color="#EE5806">房产资讯</font></TD></TR></TBODY></TABLE>

                <table width="97%" height="113" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
                      <%
              dim curpage
              if request.querystring("curpage")="" then
                 curpage=1
              else
                 curpage=request.querystring("curpage")
              end if
              const numperpage=27
              set rs=server.createobject("adodb.recordset")
              sql="select * from news order by dnt desc"
              rs.open sql,conn,1,1
            if not rs.eof then
            rs.pagesize=numperpage
            dim totalpages
            totalpages=rs.pagecount
            rs.absolutepage=curpage
            end if        
           dim count
           count=0
           do while not rs.eof and count<numperpage
              %>
                      <tr> 
                        <td width="8%" height="20"> <div align="center">
							<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                        <td width="92%" height="22"><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=<%=trim(rs("sort"))%> class="linkone"><font color="#428DFF"><%=getStr(rs("topic"),25)%></font> 
                          <%if trim(rs("imgname"))<>"" and isNull(trim(rs("imgname")))  then response.write "(图)" end if%>
                          </a>　<font color="#EE5806"><!--#include file="../inc/sort.asp" -->(<%=Year(Rs("dnt"))&"-"&Month(Rs("dnt"))&"-"&Day(Rs("dnt"))%>)</font></td>
                      </tr>
                      <%
              rs.movenext       
                count=count+1
                loop
               rs.close
               set rs=nothing
              %>
                      <tr> 
                        <td height="30" colspan="2"> <div align="center" class="p12"> 
                            <span class="black"> 
                            <% if cint(curpage)<>1 then %>
                            <a href="news.asp?curpage=1" class="linkone">首页&nbsp;</a> 
                            <% else %>
                            首页&nbsp; 
                            <% end if %>
                            <% if cint(curpage)>1 then %>
                            <a href="news.asp?curpage=<%=curpage-1%>" class="linkone">上一页&nbsp;</a> 
                            <% else %>
                            &nbsp;上一页 
                            <% end if %>
                            <% if cint(curpage)<>cint(totalpages) then %>
                            </span><span><a href="news.asp?curpage=<%=curpage+1%>"  class="linkone">下一页</a></span><span class="black"><a href="liuchen_more.asp?curpage=<%=curpage+1%>" class="linkone"><% else %>
                            &nbsp;下一页 
                            <% end if %>
                            <% if cint(curpage)<>cint(totalpages) then %>
                            </a><a href="news.asp?curpage=<%=totalpages%>" class="linkone">&nbsp;末页 
                            <% else %>
                            &nbsp;末页 
                            <% end if %>
                            </a> 　　第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页　</span>　 　 </div></td>
                      </tr>
                    </table></TR></TBODY></TABLE>
            </div>
            <TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
              <TBODY>
              <TR>
                <TD></TD></TR></TBODY></TABLE>
		</TD>
    </TR>
  </TBODY></TABLE>
     
          
  
<!--#include file="../end.asp"-->

</BODY></HTML>
⌨️ 快捷键说明

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