liuchen_more.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 370 行 · 第 1/2 页

ASP
370
字号
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<!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="../img/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.asp"><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>
      <TABLE class=out3s_green height="100%" cellSpacing=0 cellPadding=0 
      width=255 bgColor=#7cb721 border=0>
        <TBODY>
        <TR>
          <TD vAlign=top>
            <TABLE cellSpacing=0 cellPadding=0 width="75%" align=center 
border=0>
              <TBODY>
              <tr>
			<td style="border-style: none; border-width: medium" background="../img/36.gif" height="37">
			&nbsp; <font color="#FFFFFF"><b>物 管 专 题</b></font></td>
				</tr>
              <tr>
			<td style="border-style: none; border-width: medium">
			<table width="198" border="0" cellpadding="0" cellspacing="0" class="main">
                          <% OpenDataConn
					set rs1=server.CreateObject("adodb.recordset")
					sql="select top 6 * from news where sort=16  order by dnt desc"
					rs1.open sql,conn,1,1
					do while not rs1.eof
					%>
                          <tr> 
                            <td width="23" height="21"> <div align="right">
								<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                            <td width="313" height="21" style="CURSOR: hand"> <a href=../house/liuchen_detail.asp?newsid=<%=trim(rs1("newsid"))%>&amp;sort=16><font color=#ffffff><%=left(trim(rs1("topic")),13)%></font></a></td>
                          </tr>
                          <%
                         
					rs1.movenext
					loop
					rs1.close
					set rs=nothing
					%>
                        </table>
			</td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium">
			<p align="right"><a href="guwen_more.asp?sort=16"><font color="#FFFFFF">更多&nbsp;&nbsp;&nbsp; 
			</a> </td>
				</tr>
              <TR>
                <TD></TD></TR>
              <TR>
                <TD background="../img/36.gif" height="39">
				&nbsp;  <font color="#FFFFFF"><b>
				购 房 准 备</b></TD></TR>
              <tr>
			<td align="center" width="96%" style="border-style: none; border-width: medium">
			<table width="252" border="0" cellpadding="0" cellspacing="0" class="main">
                          <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select top 6 * from news where sort=9  order by dnt desc"
					rs.open sql,conn,1,1
					do while not rs.eof
					%>
                          <tr> 
                            <td width="23" height="21"> <div align="right">
								<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                            <td width="313" height="21" style="CURSOR: hand" ><a href =../house/liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&amp;sort=9><font color=#ffffff><%=left(trim(rs("topic")),13)%></font></a></td>
                          </tr>
                          <%
					rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                        </table>
			</td>
				</tr>
				<tr>
			<td style="border-style: none; border-width: medium" height="16">
			<p align="right"><a href="liuchen_more.asp?sort=9"><font color="#FFFFFF">更多</a>&nbsp;&nbsp;&nbsp;
			</td>
				</tr>
				<tr>
			<td background="../img/36.gif" height="38">
			&nbsp;<font color="#FFFFFF"> <b>挑 选 新 房</b></td>
				</tr>
				<tr>
			<form name="form1" method="get" action="house/hs.asp">
                      <tr> 
                        <td width="100%" height="30" align="right">
						<table width="252" border="0" cellpadding="0" cellspacing="0" class="main">
                          <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select top 6 * from news where sort=10  order by dnt desc"
					rs.open sql,conn,1,1
					do while not rs.eof
					%>
                          <tr> 
                            <td width="23" height="21"> <div align="right">
								<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                            <td width="313" height="21" style="CURSOR: hand" ><a href=../house/liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&amp;sort=10><font color=#ffffff><%=left(trim(rs("topic")),13)%></font></a></td>
                          </tr>
                          <%
					rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                        </table>
						</td>
                      </tr>
                      <tr> 
                        <td height="23" align="right">
						<a href="liuchen_more.asp?sort=10"><font color="#FFFFFF">更多</a>&nbsp;&nbsp;&nbsp; </td>
                      </tr>
                    </form></TR>
                      <tr> 
                        <td height="40" align="right" background="../img/36.gif">
						<p align="left">&nbsp;&nbsp;<font color="#FFFFFF"><b>签 定 合 同</b></td>
                      </tr>
                      <tr> 
                        <td height="22" align="right">
						<table width="252" border="0" cellpadding="0" cellspacing="0" class="main">
                          <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select top 6 * from news where sort=11  order by dnt desc"
					rs.open sql,conn,1,1
					do while not rs.eof
					%>
                          <tr> 
                            <td width="17" height="21"> <div align="right">
								<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
                            <td width="181" height="21" style="CURSOR: hand" ><a href=../house/liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&amp;sort=11><font color=#ffffff><%=left(trim(rs("topic")),13)%></font></a></td>
                          </tr>
                          <%
					rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                        </table>
						</td>
                      </tr>
                      <tr> 
                        <td height="23" align="right">
						<a href="liuchen_more.asp?sort=11"><font color="#FFFFFF">更多</a>&nbsp;&nbsp;&nbsp; </td>
                      </tr>
                      <tr> 
                        <td height="37" align="right" background="../img/36.gif"><font color="#FFFFFF">
						<p align="left">&nbsp; <b>
						装 修 装 饰</b></td>
                      </tr>
                      <tr> 
                        <td height="30" align="right">
						<table width="252" border="0" cellpadding="0" cellspacing="0" class="main">
                          <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select top 6 * from news where sort=12  order by dnt desc"
					rs.open sql,conn,1,1

⌨️ 快捷键说明

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