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

📄 index.asp

📁 功能的增加及完善 1.完善了上次不能读写房源编号的错误; 2.增加了不是会员不能查看房主的相系方法的功能; 3.增加了不是会员不能发布的功能; 4.完善了会员中心信息等功能; 5.新增了一个
💻 ASP
📖 第 1 页 / 共 2 页
字号:
					   <td><img name="n2020202020at" src="97/2020202020at.png" width="300" height="29" border="0" alt=""></td>
					  </tr>
					</table></td>
				  </tr>
				  <tr>
				   <td><img name="n2323232323aw" src="97/2323232323aw.png" width="601" height="39" border="0" alt=""></td>
				  </tr>
				  <tr>
				   <td><table align="left" border="0" cellpadding="0" cellspacing="0" width="601">
					  <tr>
					   <td><img name="n2424242424ax" src="97/2424242424ax.png" width="13" height="122" border="0" alt=""></td>
					   <td><table width="578" height="122" border="0" cellpadding="0" cellspacing="0">
                         <tr>
                           <td align="center" valign="middle"><table border="0" width="16%" cellpadding="2">
    <tr>
<% sqlP="select top 4 * from imgbook order by id desc"
	set rsP=conn.execute(sqlP)
	if rsP.eof and rsP.bof then
	response.Write"暂无信息"
	else
	while not rsP.eof%>
      <td width="20%" height="111">
        <div align="center">
          <center>
        <table border="0" width="10">
          <tr>
            <td width="100%" height="103">
              <table border="0" width="100%" bgcolor="#559900" cellspacing="1" cellpadding="5">
                <tr>
                  <td width="100%" height="99" bgcolor="#FFCC00">
                    <p align="center"><a href="pictures.asp?id=<% =rsP("id") %>" target="_blank"><img src="<% =rsP("news_content")%>" name="P" width="110" height="89" border="0"></a></td>
                </tr>
              </table>            </td>
          </tr>
        </table>
          </center>
        </div>      </td>
<% rsP.movenext
	wend
	end if %>
    </tr>
  </table></td>
                         </tr>
                       </table></td>
					   <td><img name="n2626262626az" src="97/2626262626az.png" width="10" height="122" border="0" alt=""></td>
					  </tr>
					</table></td>
				  </tr>
				  <tr>
				   <td><img name="n2828282828bb" src="97/2828282828bb.png" width="601" height="18" border="0" alt=""></td>
				  </tr>
				  <tr>
				   <td><table align="left" border="0" cellpadding="0" cellspacing="0" width="601">
					  <tr>
					   <td><img name="n3131313131be" src="97/3131313131be.png" width="301" height="39" border="0" alt=""></td>
					   <td><img name="n3232323232bf" src="97/3232323232bf.png" width="300" height="39" border="0" alt=""></td>
					  </tr>
					</table></td>
				  </tr>
				  <tr>
				   <td><table align="left" border="0" cellpadding="0" cellspacing="0" width="601">
					  <tr>
					   <td><img name="n3333333333bg" src="97/3333333333bg.png" width="13" height="117" border="0" alt=""></td>
					   <td><table width="276" height="117" border="0" cellpadding="0" cellspacing="0">
                         <tr>
                           <td align="left" valign="top"><table border="0" width="100%" cellspacing="1" cellpadding="0">
<% set rsTOP=server.createobject("adodb.recordset")
				  sqlTOP="select top 5 * from news where mytype='热点新闻' order by lls desc"
				  rsTOP.open sqlTOP,conn,3,3
		          for i=1 to 10 %>
<tr>
<td width="5%"><img border="0" src="imag/001.gif"></td>
<td width="95%"><a title="<% =left(rsTOP("nr"),25) %>..." href=open.asp?xiangxi=<% =rsTOP("id") %> target="_blank"><% =left(rsTOP("bt"),20) %><% if len(rsTOP("bt")) > 21 then 
				  response.Write"..."
				  end if%></a>&nbsp;&nbsp;<font style="font-size: 10px" color="#C0C0C0"><% =rstop("riqi") %></font>
</td>
</tr>
<% rsTOP.movenext
                   if rsTOP.eof then exit for
                   next
                   rsTOP.close %>
</table></td>
                         </tr>
                       </table></td>
					   <td><img name="n3535353535bi" src="97/3535353535bi.png" width="12" height="117" border="0" alt=""></td>
					   <td><img name="n3636363636bj" src="97/3636363636bj.png" width="12" height="117" border="0" alt=""></td>
					   <td><table width="278" height="117" border="0" cellpadding="0" cellspacing="0">
                         <tr>
                           <td align="left" valign="top"><table border="0" width="95%" cellspacing="1" cellpadding="0">
<% set rsnew=server.createobject("adodb.recordset")
				  sqlnew="select top 5 * from news where mytype='房产新闻' order by id desc"
				  rsnew.open sqlnew,conn,3,3
		          for i=1 to 10 %><tr>
<td width="5%"><img border="0" src="imag/001.gif"></td>
<td width="95%"><a title="<% =left(rsnew("nr"),25) %>..." href=open.asp?xiangxi=<% =rsnew("id") %> target="_blank"><% =left(rsnew("bt"),20) %></a>&nbsp;&nbsp;<font style="font-size: 10px" color="#C0C0C0"><% =rsnew("riqi") %></font>
</td>  
</tr><% rsnew.movenext
                   if rsnew.eof then exit for
                   next
                   rsnew.close %>
</table></td>
                         </tr>
                       </table></td>
					   <td><img name="n3838383838bl" src="97/3838383838bl.png" width="10" height="117" border="0" alt=""></td>
					  </tr>
					</table></td>
				  </tr>
				  <tr>
				   <td><table align="left" border="0" cellpadding="0" cellspacing="0" width="601">
					  <tr>
					   <td><img name="n4242424242bp" src="97/4242424242bp.png" width="301" height="26" border="0" alt=""></td>
					   <td><img name="n4343434343bq" src="97/4343434343bq.png" width="300" height="26" border="0" alt=""></td>
					  </tr>
					</table></td>
				  </tr>
				  <tr>
				   <td><img name="n4444444444br" src="97/4444444444br.png" width="601" height="40" border="0" alt=""></td>
				  </tr>
				  <tr>
				   <td><table align="left" border="0" cellpadding="0" cellspacing="0" width="601">
					  <tr>
					   <td><img name="n4545454545bs" src="97/4545454545bs.png" width="13" height="47" border="0" alt=""></td>
					   <td><table width="578" height="47" border="0" cellpadding="0" cellspacing="0">
                         <tr>
                           <td align="left" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%">&nbsp;</td>
<td width="98%">
<DIV align=center> 
                  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
     <% dim t
	 Set RsSmall=Server.Createobject("ADODB.Recordset")
	 RsSmallSrt="select top 4 * from news where mytype='房产知识'  order by id desc"
	 RsSmall.Open RsSmallSrt,Conn,1,3 %>
     <tr> 
     <% t=0
      while not RsSmall.eof %>
      <td width="369"><div align="left">&nbsp;&nbsp;<IMG src="imag/001.gif">&nbsp;                   
       <a title="<% =left(RsSmall("nr"),15) %>..." href=open.asp?xiangxi=<% =RsSmall("id") %>  target="_blank"><% =RsSmall("bt") %></a> 
       </div></td> 
       <% t=t+1
	    if t=2 then
	    t=0 %>
     </tr>
     <% end if
     RsSmall.movenext
     wend %>
       </table></DIV>
</td>
<td width="1%">&nbsp;</td>
</tr>
</table></td>
                         </tr>
                       </table></td>
					   <td><img name="n4747474747bu" src="97/4747474747bu.png" width="10" height="47" border="0" alt=""></td>
					  </tr>
					</table></td>
				  </tr>
				  <tr>
				   <td><img name="n4848484848bv" src="97/4848484848bv.png" width="601" height="21" border="0" alt=""></td>
				  </tr>
				</table></td>
			   <td><img name="n66060606af" src="97/66060606af.png" width="14" height="716" border="0" alt=""></td>
			  </tr>
			</table></td>
		  </tr>
		</table></td>
	  </tr>
	</table></td>
  </tr>
  <tr>
   <td><img name="n4949494949bw" src="97/4949494949bw.png" width="779" height="9" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="n5050505050bx" src="97/5050505050bx.png" width="779" height="88" border="0" alt=""></td>
  </tr>
</table>
</div>

<map name="n44040404adMap">
  <area shape="rect" coords="25,13,60,31" href="#">
  <area shape="rect" coords="78,15,129,29" href="#">
  <area shape="rect" coords="153,14,207,29" href="#">
  <area shape="rect" coords="227,15,280,29" href="#">
  <area shape="rect" coords="304,15,357,30" href="#">
  <area shape="rect" coords="374,15,431,30" href="#">
  <area shape="rect" coords="449,12,502,30" href="#">
  <area shape="rect" coords="527,14,581,30" href="#">
</map>
<map name="n44040404adMap2">
  <area shape="rect" coords="30,15,58,30" href="index.asp">
  <area shape="rect" coords="77,14,127,30" href="gsjj.asp">
  <area shape="rect" coords="155,15,207,30" href="house.asp?lb=&#20986;&#21806;">
  <area shape="rect" coords="229,15,279,29" href="house.asp?lb=&#27714;&#36141;">
  <area shape="rect" coords="305,13,358,29" href="house.asp?lb=&#20986;&#31199;">
  <area shape="rect" coords="377,13,428,30" href="house.asp?lb=&#27714;&#31199;">
  <area shape="rect" coords="451,14,501,29" href="house.asp?lb=&#21512;&#31199;">
  <area shape="rect" coords="527,14,580,30" href="house.asp?lb=&#30041;&#35328;">
</map>
</body>

</html>

⌨️ 快捷键说明

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