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

📄 index.asp

📁 房地产管理系统 vb写的,很不错!!!!!!!!!!!
💻 ASP
📖 第 1 页 / 共 3 页
字号:
						   Sql="select top 7 * from house where sh='1' and xxlb='3'  order by dateandtime desc"
						   Rs.Open Sql,Conn,1,1
						   Do While Not Rs.Eof
						  %>
                      <tr align="center"> 
                        <td height="24"><a href=house/hs_open.asp?id=<%=trim(rs("id"))%> class="linkone"><%=getStr(trim(rs("area")),7)%></A></td>
                        <td height="24"><%=Trim(Rs("fclx"))%></td>
                        <td height="24"><%=left(rs("jyprice"),15)%>元</td>
                        <td height="24"><%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%></td>
                      </tr>
                      <%
						   Rs.MoveNext
						   Loop
						   Rs.Close
						  %>
                    </table>
            </div>
			</TD></TR>
        <TR>
          <TD vAlign=top width=710 align=center colspan="3">
             </TD>
          </TR></TBODY></TABLE></TD>
    <TD vAlign=top align=right width=260>
	<table border="0" cellpadding="0" cellspacing="0" width="255" id="table837"  class=out4s_green>
		<tr>
			<td height="41">
			<img border="0" src="img/35s.gif" width="255" height="41"></td>
		</tr>
		<tr>
			<td bgcolor="#F3F7FA">
			<p align="center">
			<map name="FPMap2">
			<area href="house/hs.asp?xxlb=4" shape="rect" coords="6, 11, 92, 88">
			<area href="house/hs.asp?xxlb=1" shape="rect" coords="122, 15, 210, 91">
			<area href="house/hs.asp?xxlb=2" shape="rect" coords="9, 110, 91, 194">
			<area href="house/hs.asp?xxlb=3" shape="rect" coords="121, 115, 211, 194">
			</map>
			<img border="0" src="img/2_10.gif" width="212" height="195" usemap="#FPMap2"></td>
		</tr>
		</table>
	<TABLE cellSpacing=0 cellPadding=0 width=75 border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>

	<TABLE cellSpacing=0 cellPadding=0 width=255 bgColor=#7cb721 border=0 height="41">
        <TBODY>
        <TR>
          <TD width=255>
			<img border="0" src="img/39.gif" width="255" height="40"></TD>
          </TR></TBODY></TABLE>
      <TABLE class=out3s_green height=180 cellSpacing=0 cellPadding=0 width=255 border=0>
        <FORM name=form1 onsubmit="return UserLogin(this)" method=post>
        <TBODY>
        <TR>
          <TD>
            <div align="center">
            <table width="250" border="0" cellpadding="0" cellspacing="0" class="main">
                  <tr> 
                    <td width="250" height="85"><div align="center"> 
                        <SCRIPT language=JavaScript>              
<!--//              
var version = "other"              
browserName = navigator.appName;                 
browserVer = parseInt(navigator.appVersion);              
              
if (browserName == "Netscape" && browserVer >= 3) version = "n3";              
else if (browserName == "Netscape" && browserVer < 3) version = "n2";              
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";              
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";              
              
function marquee1()              
{              
	if (version == "e4"){              
	document.write("<marquee behavior=scroll direction=up style='HEIGHT: 155px; WIDTH: 200px' scrollamount=1 onmouseover='this.stop()' onmouseout='this.start()'>")              
	}              
}              
              
function marquee2()              
{              
	if (version == "e4"){              
	document.write("</marquee>")              
	}              
}              
marquee1();          
//-->          
</SCRIPT>
                        <%
					    rs.Open"select top 6 * from gonggao order by dateandtime desc",conn,1,1
						%>
                        <%do while not rs.eof%>
                        <table width="250" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td height="25">&nbsp; <img src="ima/arrow5.gif" width="5" height="5" align="absmiddle"> 
                              <a href="#" onClick="javascript:window.open('Gongao.Asp?id=<%=Trim(rs("ID"))%>','_blank','width=541;height=400,scrollbars=yes')" class="linkone"><%=Trim(left(rs("ggtext"),18))&".."%> </a></td>
                          </tr>
                        </table>
                        <%
								rs.movenext
								loop
								rs.close
								%>
                        <SCRIPT language=JavaScript>marquee2();</SCRIPT>
                      </div></td>
                  </tr>
                </table></div>
			</TD></TR></FORM></TBODY></TABLE>
     <TABLE cellSpacing=0 cellPadding=0 width=75 border=0 height="4">
        <TBODY>
        <TR>
          <TD height=4></TD></TR></TBODY></TABLE>
	<table border="0" cellpadding="0" cellspacing="0" width="255" id="table845">
		<tr>
			<td>
			<table width="250" align="center" cellpadding="0" cellspacing="0">
                        <tr>
                        <td> 
      <%
		tbsql3 = "select top 1 * from Banner where bz=5 order by linkid desc"
		set tbrs3 = conn.execute(tbsql3)
		  %><%if not tbrs3.eof then%>
      <%if lcase(tbrs3("type1")) = "gif" then%>
      <a target="_blank" href="<%=tbrs3("web")%>"><img border=0 src="fyfile/<%=tbrs3("picurl")%>" alt="<%=tbrs3("deseriptor")%>" width="250" height="80" style="border: 0px solid #000000"></a> 
      <%else%>
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="250" height="80">
        <param name="movie" value="fyfile/<%=tbrs3("picurl")%>">
        <param name="quality" value="high">
        <embed src="fyfile/<%=tbrs3("picurl")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="250" height="80"></embed></object> 
      <%end if
      end if%>
    </td>
  </tr>
</table>
			</td>
		</tr>
		<tr>
			<td>
			<table border="0" cellpadding="0" cellspacing="0" width="255" id="table847">
				<tr>
					<td>
					<table width="250" align="center" cellpadding="0" cellspacing="0">
                        <tr>
                        <td> 
      <%
		tbsql3 = "select top 1 * from Banner where bz=7 order by linkid desc"
		set tbrs3 = conn.execute(tbsql3)
		  %><%if not tbrs3.eof then%>
      <%if lcase(tbrs3("type1")) = "gif" then%>
      <a target="_blank" href="<%=tbrs3("web")%>"><img border=0 src="fyfile/<%=tbrs3("picurl")%>" alt="<%=tbrs3("deseriptor")%>" width="250" height="80" style="border: 0px solid #000000"></a> 
      <%else%>
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="250" height="80">
        <param name="movie" value="fyfile/<%=tbrs3("picurl")%>">
        <param name="quality" value="high">
        <embed src="fyfile/<%=tbrs3("picurl")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="250" height="80"></embed></object> 
      <%end if
      end if%>
    </td>
  </tr>
 </table></td>
				</tr>
			</table>
 </td>
		</tr>
	</table></TD>
	</TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=714>
		<table border="0" width="100%" id="table19" cellspacing="0" cellpadding="0" height="4">
			<tr>
				<td></td>
			</tr>
		</table>
		<TABLE height=170 cellSpacing=0 cellPadding=0 width=714 border=0 bordercolor="#FFFFFF" bgcolor="#FFFFFF">
        <TBODY>
        <TR>
          <TD bgColor=#FFFFFF>
			<table width="710" border="0" cellspacing="0" cellpadding="0" id="table1">
                <tr> 
                  <td width="4" background="fyfile/frams_143.jpg" height="33"><div align="center"></div></td>
                  <td width="355" valign="bottom" background="img/13.gif" height="33" align="left">
            <p align="right"><a href="house/guwen.asp"><font color=#FFFFFF>更多</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>
                  <td width="4" background="images/frams_145.jpg" height="33"> </td>
                  <td width="355" valign="bottom" background="img/14.gif" height="33">
            <p align="right"><a href="house/jiaju_more.asp?sort=2"><font color=#FFFFFF>更多</font></a>&nbsp;&nbsp;&nbsp;&nbsp; </td>
                </tr>
                <tr> 
                  <td background="fyfile/frams_143.jpg"> </td>
                  <td valign="top">
					<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0" class="main" id="table6" height="26">
                      <%
						   Sql="select top 6 * from news where sort=16 order by dnt desc"
						   'response.write(sql)
						   Rs.Open Sql,conn,1,1
						   Do While Not Rs.Eof
						  %>
                      <tr> 
                        <td height="21">
						<img border="0" src="img/arr_w1.gif" width="9" height="9"> 
                          <a href=house/guwen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=14 class="linkone"><%=getStr(trim(rs("topic")),13)%></a> <font color="#666666">[<%=year(Trim(rs("dnt")))&"-"&month(Trim(rs("dnt")))&"-"&day(Trim(rs("dnt")))%>]</font></td>
                      </tr>
                      <tr height="1"> 
                        <td height="1" background="ima/back.gif"></td>
                      </tr>
                      <%
						   Rs.MoveNext
						   Loop
						   Rs.Close
						  %>
                    </table></td>
                  <td background="images/frams_145.jpg"> </td>
                  <td valign="top">
					<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0" class="main" id="table7">
                      <%
						   Sql="select top 7 * from news where sort=2 order by dnt desc"
						   Rs.Open Sql,conn,1,1
						   Do While Not Rs.Eof
						  %>
                      <tr> 
                        <td height="22">
						<img border="0" src="img/arr_w1.gif" width="9" height="9"><a href=house/guwen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=14 class="linkone"><%=getStr(trim(rs("topic")),12)%></a> <font color="#666666">[<%=year(Trim(rs("dnt")))&"-"&month(Trim(rs("dnt")))&"-"&day(Trim(rs("dnt")))%>]</font></td>
                      </tr>
                      <tr height="1"> 
                        <td height="1" background="ima/back.gif"></td>
                      </tr>
                      <%
						   Rs.MoveNext
						   Loop
						   Rs.Close
						  %>
                    </table></td>
                </tr>
                <tr> 
                  <td background="fyfile/frams_143.jpg"> </td>
                  <td valign="top">
					 </td>
                  <td background="images/frams_145.jpg"> </td>
                  <td valign="top">
					 </td>
                </tr>
        </TBODY></TABLE>
		<table border="0" cellpadding="0" cellspacing="0" width="710" id="table846">
			<tr>
				<td> </td>
			</tr>
			<tr>
				<td>
				<table width="710" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td> 
      <%
		tbsql3 = "select top 1 * from Banner where bz=4 order by linkid desc"
		set tbrs3 = conn.execute(tbsql3)
		  %><%if not tbrs3.eof then%>
      <%if lcase(tbrs3("type1")) = "gif" then%>
      <a target="_blank" href="<%=tbrs3("web")%>"><img border=0 src="fyfile/<%=tbrs3("picurl")%>" alt="<%=tbrs3("deseriptor")%>" width="710" height="150" style="border: 0px solid #000000"></a> 
      <%else%>
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="710" height="150">
        <param name="movie" value="fyfile/<%=tbrs3("picurl")%>">
        <param name="quality" value="high">
        <embed src="fyfile/<%=tbrs3("picurl")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="710" height="150"></embed></object> 
      <%end if
      end if%>
    </td>
  </tr>
</table>
				</td>
			</tr>
		</table>
	</TD>
    <TD vAlign=top align=right width=256><TABLE cellSpacing=0 cellPadding=0 width=75 border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE><TABLE cellSpacing=0 cellPadding=0 width=255 border=0>
        <TBODY>
        <TR>
          <TD width=255>
			<img border="0" src="img/20.gif" width="255" height="41"></TD>
      </TR></TBODY></TABLE>
<table width="99.5%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class=out3s_gray>
                      <tr> 
                        <td width="45%" height="24"><a href=house/jijia01.asp align="justify">
						<img border="0" src="img/arr_w1.gif" width="9" height="9"> 
                          按揭计算器</a> 
                        <td width="50%"><a href=house/jijia05.asp align="justify"> 
                          <img border="0" src="img/arr_w1.gif" width="9" height="9"> 提前还贷计算器</a></td>
                      </tr>
                      <tr class="trline"  height="1"> 
                        <td background="ima/back.gif"  height="1" align="justify"></td>
                        <td background="ima/back.gif" align="justify"></td>
                      </tr>
                      <tr> 
                        <td height="24"><a href=house/jijia02.asp align="justify">
						<img border="0" src="img/arr_w1.gif" width="9" height="9"> 
                          公积金计算器</a></td>
                        <td ><a href=house/jijia06.asp align="justify"> 
                          <img border="0" src="img/arr_w1.gif" width="9" height="9"> 
                          个人信用评估</a></td>
                      </tr>
                      <tr class="trline"  height="1"> 
                        <td background="ima/back.gif"  height="1" align="justify"></td>
                        <td background="ima/back.gif" align="justify"></td>
                      </tr>
                      <tr> 
                        <td height="25"><a href=house/jijia03.asp aspalign="justify">
						<img border="0" src="img/arr_w1.gif" width="9" height="9"> 税率计算器</a></td>
                        <td><a href= house/jijia08.asp align="justify"> 
                          <img border="0" src="img/arr_w1.gif" width="9" height="9"> 
                          购房能力评估</a></td>
                      </tr>
                      <tr class="trline"  height="1"> 
                        <td background="ima/back.gif"  height="1" align="justify"></td>
                        <td background="ima/back.gif" height="1" align="justify"></td>
                      </tr>
                      <tr> 
                        <td height="24"><a href=house/jijia04.asp align="justify">
						<img border="0" src="img/arr_w1.gif" width="9" height="9"> 组合计算器</a></td>
                        <td><a href=house/jijia07.asp align="justify"> 

⌨️ 快捷键说明

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